Classic ASP

Receive a Line Terminated by CRLF

Demonstrates Socket.ReceiveToCRLF, which receives text through a CRLF line terminator and returns the text including the terminator.

Background. Chilkat encodes CR followed by LF using StringCharset and searches the incoming byte stream for that exact sequence. This is convenient for line-oriented text protocols.

Chilkat Classic ASP Downloads

Download Chilkat for Classic ASP

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

set socket = Server.CreateObject("Chilkat.Socket")

'  Connect to the server using TLS.  The 3rd argument enables the TLS handshake after the TCP
'  connection succeeds; the 4th is the maximum time to wait, in milliseconds.
bTls = 1
maxWaitMs = 5000
success = socket.Connect("example.com",5000,bTls,maxWaitMs)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( socket.LastErrorText) & "</pre>"
    Response.End
End If

'  StringCharset controls the character encoding used when sending and receiving text.
socket.StringCharset = "utf-8"
'  Send a request using a simple application-defined text protocol in which each message ends with a
'  CRLF.
command = "STATUS" & vbCrLf
success = socket.SendString(command)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( socket.LastErrorText) & "</pre>"
    Response.End
End If

'  Receive text through a CRLF line terminator, returning the text including the terminator.  This is
'  convenient for line-oriented text protocols in which each response is a CRLF-terminated line.
responseLine = socket.ReceiveToCRLF()
If (socket.LastMethodSuccess = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( socket.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( responseLine) & "</pre>"

%>
</body>
</html>