sockets - 套接字 ASP 经典

Question

我正在尝试使用以下代码创建带有经典 asp 的套接字

Set oSck = Server.CreateObject("MSWinsock.Winsock")
if oSck.state <> 0 then
    oSck.close
end if
oSck.RemoteHost = "192.168.1.101"
oSck.RemotePort = "502"
oSck.Protocol = 0
oSck.connect


myTimer = 0
Do While oSck.State <> 7 and myTimer < 1000000
myTimer = myTimer + 1
Loop


if oSck.State = 7 then
    response.write("connect")
end if

但状态永远不会是 7，因此永远不会建立连接。结束状态是 6。有什么想法吗？非常感谢您