home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 5 / hacker05 / 05_HACK_05.ISO / sockets / activsocket / asocket.exe / data1.cab / Example_Files / Asp / Example2.asp < prev   
Encoding:
Text File  |  2002-06-21  |  2.0 KB  |  74 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_GO" ) <> "" Then
  24.   asObj.Protocol = asPROTOCOL_TELNET
  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.     strReceived = asObj.ReceiveData
  37.  
  38.  
  39.     asObj.Sleep 1000
  40.     str = "user " & Request( "STR_COMMAND1" )
  41.     asObj.SendString str
  42.  
  43.     WaitForData( asObj )
  44.     str = asObj.ReceiveData
  45.     strReceived =  strReceived & str
  46.  
  47.     ' And finally, disconnect
  48.     asObj.Disconnect
  49.   End If
  50.  
  51. End If
  52. %>
  53.  
  54.   <html>
  55.   <body>
  56.  
  57.   <hr>
  58.   <h1>ActivSocket <% = asObj.Version %> demo.</h1>
  59.   Expiration date: <% = asObj.ExpirationDate %><br>
  60.   <hr>
  61.   <br>
  62.   <form action="Example2.asp" method=post>
  63.     <table>
  64.     <td width="20"></td><td>Received:</td><td><textarea rows="13" name="TEXT_RECEIVED" cols="44" value = <% = strReceived %>></textarea></td><tr>
  65.     <td width="20"></td><td>Host:</td><td><input size=40 type=text name="STR_HOST" value="140.109.4.14"></td><tr>
  66.     <td width="20"></td><td>Command1:</td><td><input size=40 type=text name="STR_COMMAND1" value="library"></td><tr>
  67.     <td></td><td><input type=Submit name="Go" value="Go">:</td><td> </td><tr>
  68.     </table>
  69.   </form>
  70.  
  71.   </body>
  72.   </html>
  73.  
  74. <% End If %>