如何将winsocket编程写成服务器组件

[alan817]

现在在写网络即时咨询平台，主要是为了客户端不需要安装任何东西就可以在线咨询

用VB的WINSOCKET写服务端
想把Client写成服务器组件，让ASP程序用创建组件的方式来调用，请教如何实现？？

我这样写，但是有错误
Dim Response As Response
Dim Request As Request
Dim Server As Server
Dim Application As Application
Dim Session As Session
Dim ClientSocket As Winsock


Private Sub Class_Initialize()
Dim objContext As ObjectContext
Set objContext = GetObjectContext()
Set Response = objContext("Response")
Set Request = objContext("Request")
Set Server = objContext("Server")
Set Application = objContext("Application")
Set Session = objContext("Session")
Set ClientSocket = objContext("Winsocket")
End Sub

Public Sub DoConnect()
ClientSocket.Connect
End Sub


在创建的时候出错(set o=server.createobject("Client.socket"))

错误类型：
Client (0x800A01A8)
需要对象

[zou19820704]

我也不晓得，我帮你顶！！

[alan817]

高手都哪里去了~~
帮忙看一下了

[南山明月]

让ASP程序用
写成COM 吧

[是是非非]

用 WinSock2的API吧