ASP Source Code ASP File: iaspsock.asp |
|
<HTML>
<HEAD>
<TITLE>iASPSock Test</TITLE>
</HEAD>
<BODY>
<H2 align=center>iASPSock Test</H2>
<P><BR>
<%
rem On Error Resume Next
rem
***********************************************************
rem * Create the object
rem
***********************************************************
Set Socket = Server.CreateObject("ASPSock.Conn")
rem
***********************************************************
rem * Set the host we'll be connecting to
rem
***********************************************************
Socket.setRemoteHost "192.168.200.5"
'Socket.remotehost = "192.168.200.5"
rem
***********************************************************
rem * This is the NNTP (news) Port
rem
***********************************************************
Socket.setPort 7
'Socket.port = 7
'Response.Write Socket.remotehost & ", " &
Socket.port & "<br>"
rem
***********************************************************
rem * Open socket
rem
***********************************************************
If Socket.Open() then
Response.Write "Connected" &
"<br>"
rem
***********************************************************
rem * Time Setting
rem
***********************************************************
Socket.setTimeout(60)
rem
***********************************************************
rem * Message to Client
rem
***********************************************************
Socket.WriteLn "This is first line"
Socket.Write "Write Method is Working <br>"
Response.Write "Message has been Sent Successfully"
& "<br>"
rem
***********************************************************
rem * Message from Client
rem
***********************************************************
Socket.WriteLn
"WriteLine Method is Working"
Response.Write "Message has been Sent Successfully"
& "<br>"
Response.Write "Reading
first line..." & "<br>"
Response.Write Socket.ReadLn & "<br>"
Response.Write
"ReadBytesAsString begins..." & "<br>"
Response.Write Socket.ReadBytesAsString(40) &
"<br>"
Response.Write "We Are
in ReadBytes: " & "<br>"
abc = socket.ReadBytes(5)
for i = 0 to 4
response.write(abc(i))
next
Response.Write "<br>"
Response.Write "We Are in ReadLn" &
"<br>"
Response.Write Socket.ReadLn
rem
***********************************************************
rem * Close the Socket
rem
***********************************************************
Socket.Close
else
Response.Write "<p>Connection Failed: " &
Socket.error
end if
rem
***********************************************************
rem * Release the object
rem
***********************************************************
Set Socket = nothing
%>
</BODY>
</HTML>