Sockets 套接字ASP经典

我正试图用下面的代码用经典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

Set oSck=Server.CreateObject（“MSWinsock.Winsock”）
如果oSck.state为0，则
关闭
如果结束
oSck.RemoteHost=“192.168.1.101”
oSck.RemotePort=“502”
oSck.Protocol=0
oSck.connect
myTimer=0
当oSck.State 7和myTimer<1000000时执行
myTimer=myTimer+1
环
如果oSck.State=7，则
回复。写下（“连接”）
如果结束

但是状态永远不会是7，所以连接永远不会建立。结束状态为6。

---

有什么想法吗？非常感谢

这很难，不知道另一边是什么。是否可以调试另一端，即连接到的计算机？While循环需要多长时间才能完成？您只增加一个计数器，但不在循环中睡眠/延迟。