home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 5 / hacker05 / 05_HACK_05.ISO / sockets / activsocket / asocket.exe / data1.cab / Example_Files / Asp / Example1.asp < prev    next >
Encoding:
Text File  |  2002-06-21  |  2.8 KB  |  99 lines
  1. <%
  2. ' **************************************************
  3. ' Example1: Connect to a POP3 mailserver, and list all incoming mails
  4. '    The file must be named 'example1.asp'
  5. ' **************************************************
  6. %>
  7.  
  8. <!--#include file="ASocket.inc"-->
  9.  
  10. <object runat=server progid="ActivXperts.Socket" id=asObj> </object>
  11.  
  12. <%
  13.   Function WaitForData( o )
  14.     nRetr = 0
  15.     Do While nRetr < 5 and o.HasData = False
  16.         o.Sleep 2000
  17.         nRetr = nRetr + 1
  18.     Loop
  19.   End Function
  20. %>
  21.  
  22. <%
  23. If Request( "BUTTON_LIST" ) <> "" Then
  24.   
  25.   asObj.Connect Request( "STR_MAILSERVER" ), 110
  26.   Response.Write "Connect: result = " & asObj.LastError & "<br>"
  27.  
  28.   If asObj.LastError = asERR_WSAHOST_NOT_FOUND Then
  29.     Response.Write "Error asERR_WSAHOST_NOT_FOUND: Specify a valid hostname-parameter in the Connect-method." & "<br>"
  30.   End If
  31.   If asObj.LastError = asERR_SUCCESS Then
  32.  
  33.     ' YES, we established a connection
  34.  
  35.     WaitForData( asObj )
  36.     str = asObj.ReceiveData
  37.     Response.Write "Received: " & str & "<br>"
  38.  
  39.     asObj.Sleep 1000
  40.     str = "user " & Request( "STR_USERNAME" )
  41.     asObj.SendString str
  42.     Response.Write "Send: " & str & " , result = " & asObj.LastError & "<br>"
  43.  
  44.     WaitForData( asObj )
  45.     str = asObj.ReceiveData
  46.     Response.Write "Received: " & str & "<br>"
  47.  
  48.     If Left( str, 3 ) = "+OK" Then
  49.       asObj.Sleep 1000
  50.       str = "pass " & Request( "STR_PASSWORD" )
  51.       asObj.SendString str
  52.       Response.Write "Send: " & str & " , result = " & asObj.LastError & "<br>"
  53.  
  54.       WaitForData( asObj )
  55.       str = asObj.ReceiveData
  56.       Response.Write "Received: " & str & "<br>"
  57.  
  58.       If Left( str, 3 ) = "+OK" Then
  59.         asObj.Sleep 1000
  60.         str = "List"
  61.         asObj.SendString str
  62.         Response.Write "Send: " & str & " , result = " & asObj.LastError & "<br>"
  63.  
  64.         WaitForData( asObj )
  65.  
  66.         str = asObj.ReceiveData
  67.         Response.Write "Received: " & str & "<br>"
  68.       End If
  69.     End If
  70.  
  71.     ' And finally, disconnect
  72.     asObj.Disconnect
  73.   End If
  74.  
  75. Else
  76. %>
  77.  
  78.   <html>
  79.   <body>
  80.  
  81.   <hr>
  82.   <h1>ActivSocket <% = asObj.Version %> demo.</h1>
  83.   Expiration date: <% = asObj.ExpirationDate %><br>
  84.   <hr>
  85.   <br>
  86.   <form action="Example1.asp" method=post>
  87.     <table>
  88.     <td width="20"></td><td>Mailserver:</td><td><input size=40 type=text name="STR_MAILSERVER" value="pop3.mymailserver.com"></td><tr>
  89.     <td></td><td>Username:</td><td><input size=40 type=text name="STR_USERNAME" value="myname@mymailserver.com"></td><tr>
  90.     <td></td><td>Password:</td><td><input size=40 type=password name="STR_PASSWORD" value=""></td><tr>
  91.     <td></td><td><input type=Submit name="BUTTON_LIST" value="List"></td><td>Wait for a couple of seconds for the result.</td><tr>
  92.     </table>
  93.   </form>
  94.  
  95.   </body>
  96.   </html>
  97.  
  98. <% End If %>
  99.