ASP Source Code
ASP File: jpop3.asp
กก
ASP Script
Comments
HTML and Text
<%@Language =JScript%>
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
</HEAD>
<BODY BGCOLOR="#F0A080">
<p align="center"><big><big>Welcome to Use Halcyon AspPOP3 Mail Receiver</big></big></p>
<%
//'dim FixUpItems
if(Request.form("host").Count != 0 && Request.form("uid").Count != 0 && Request.form("pwd").Count != 0)
{
strHost = Request.Form("host")
strUid = Request.Form("uid")
strPwd = Request.Form("pwd")
var Mailer = Server.CreateObject("POP3svg.Mailer");
Mailer.RemoteHost = strHost;
Mailer.UserName = strUid;
Mailer.Password = strPwd;
Mailer.OpenPop3();
Response.Write("<table width=90% border=1>");
Response.Write("<tr>");
Response.Write("<td ><b>" + "Msg #" + "<b></td>");
Response.Write("<td ><b>" + "Subject" + "<b></td>");
Response.Write("<td ><b>" + "FromName" + "<b></td>");
Response.Write("<td><b>" + "FromAddress" + "<b></td>");
Response.Write("<td><b>" + "BodyText" + "<b></td>");
Response.Write("<td><b>" + "Version" + "<b></td>");
Response.Write("<td><b>" + "Delete" + "<b></td>");
Response.Write("</tr>");
count=Mailer.MessageCount;
Session("mail")=Mailer;
var i
for (i = 1; i <= count; i++) {
Mailer.Retrieve(i);
Session("mailer"+i)=Mailer;
Response.Write("<tr>");
Response.Write("<td><b>" + i + "</b></td>");
Response.Write("<td><a href=jmesr.asp?>" + Mailer.Subject +"</a></td>");
Response.Write("<td><b>" + Mailer.FromName + "<b></td>");
Response.Write("<td><b>" + Mailer.FromAddress + "<b></td>");
Response.Write("<td><b>" + Mailer.BodyText + "<b></td>");
Response.Write("<td><b>" + Mailer.Version + "<b></td>");
%>
<td><b>
<form action="jdel.asp" method="post">
<input type=hidden value=
<%=i%>
name="del" >
<input type="submit" value="delete!">
</form>
</b></td>
<%
Response.Write("</tr>");
}
Response.Write("</table>");
if(count==0)
Response.Write("<font size =4>Sorry,You have no new message!!</font>");
}
else
{
%>
<table border=0>
<form action="jpop3.asp" method="post">
<tr><td>Enter POP3 Mail Host:<td><input type=text size=45 name=host value="">
<tr><td>Enter POP3 User Name:<td><input type=text size=45 name=uid value="">
<tr><td>Enter POP3 Password:<td><input type=password size=45 name=pwd value="">
<input type="Submit">
</form>
</table>
<%}%>
</BODY>
</HTML>