怎么做一个再服务器上运行，再客户机上使用的部件，急！！问题解决马上送分。

Question

做的C/S结构，我想再客户机上调用服务器上运行的一个部件（应该用ACTIVEX EXE吧），怎么做啊，请高手指教？

Answer 1

是啊，我步知道该怎么在客户端使用这个ACTIVEX EXE

Answer 2

用COM+组件在服务器上创建实例不能实现吗？

Answer 3

Set objNew = CreateObject("HelloProj.HelloClass", "myserver")
提示“部件不能创建对象”

Answer 4

你最好找本COM+的书看看 www.dapha.net上有一本光这样跟你说你也不会明白的，你上面的问题组件得到服务器上发布才能在客户端实例化的，而且数据池连接应该这样创建：
'********************************************************************************
'*   功能  描述：从共享属性中读取连接字串
'*   参数  说明：
'*         输入：FilePath
'*         输出：None
'*   返回值说明：String
'*   作      者：ajiu
'*   更      新：
'*   创建  日期：2003/6/4
'*   更新  日期：
'********************************************************************************
Private Function GetConnectString(ByVal FilePath As String) As String
    Dim uSharedP            As SharedProperty               '共享属性对象
    Dim uSharedPG           As SharedPropertyGroup          '属性组对象
    Dim uSharedPGM          As SharedPropertyGroupManager   '组管理对象
    
    Dim bFlag As Boolean                                '
    
    On Error GoTo ErrorHandler
    
    Set uSharedPGM = New SharedPropertyGroupManager
    Set uSharedPG = uSharedPGM.CreatePropertyGroup("DBConnect", LockSetGet, Standard, bFlag)
    Set uSharedP = uSharedPG.CreateProperty("ConnectString", bFlag)
    If bFlag = False Then '增加数据库连接池
        uSharedP.Value = GetConnectStringFromConfigFile(FilePath) & ";OLE DB Services=-1;"
    End If
    GetConnectString = uSharedP.Value
    GoTo ExitHandler
ErrorHandler:
    Err.Raise Err.Number, Err.Source, Err.Description
ExitHandler:
    Set uSharedPGM = Nothing
End Function

Answer 5

要用到COM的思想，进程外组件:)