Classic ASP

Accept the Next Incoming Connection

Demonstrates Socket.AcceptNext, which waits for and accepts the next incoming connection on a listening socket, delivering it as a new connected Socket.

Background. A maxWaitMs of 0 waits indefinitely; a positive value waits up to that many milliseconds. For a TLS listener, acceptance includes the server-side TLS handshake.

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")

success = socket.BindAndListen(5000,25)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( socket.LastErrorText) & "</pre>"
    Response.End
End If

'  Wait for and accept the next incoming connection on the listening socket.  maxWaitMs = 0 waits
'  indefinitely; a positive value waits up to that many milliseconds.  For a TLS listener, acceptance
'  includes the server-side TLS handshake.
set connectedSock = Server.CreateObject("Chilkat.Socket")
success = socket.AcceptNext(20000,connectedSock)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( socket.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Accepted a connection from " & connectedSock.RemoteIpAddress) & "</pre>"

%>
</body>
</html>