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>