关于ASP调用VB写的COM组件的问题

[huangyj]

第一次利用ASP调用VB写的COM组件，本想利用这个组件的接口，返回多个结果给调用着，但是一直不成功，每次都是告知参数错误。
据说ASP调用的方法不能用函数的参数做为返回值，不知道是不是这么回事情？请知道的朋友解答，谢谢！

[cuixiping]

谁说不可以。ByVal按值， ByRef按指，就是实现这个功能的。

[OnlyVB]

源码贴出来看看！
用vb写组件最值得注意的是：在vb中定义各变量的类型都为Variant，其它类型都会出错！

[huangyj]

哦，难怪！
我定义的是数据集，RecordSet
代码不在我机器上，等下找到贴上来。

[Jaron]

要在工程-引用里加入 Microsoft ActiveX Data Object 2.x Library
Public Conn As New ADODB.Connection
Public rs As New ADODB.Recordset 'Create New Object
Public Function Conn_Open(strSQLServerName, strSQLDBUserName, strSQLDBPassword, strSQLDBName)
Dim strCon As String
Set Conn = New ADODB.Connection
On Error GoTo errhandler:
strCon = "Provider=SQLOLEDB;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"
Conn.Open strCon
errhandler:
strError = "错误源：" & Err.Source & vbCrLf & "描述：" & Err.Description
Exit Function
End Function

[Jaron]

Function cms_html_Vote(Vote_string, voteid)
Dim strsql
If voteid = 0 Then
strsql = "select top 1 * from tblvote order by id desc"
Else
strsql = "select * from tblvote where id = '" & CInt(voteid) & "' order by id desc"
End If
Dim rs_cms_Vote As New ADODB.Recordset
Set rs_cms_Vote = CreateObject("ADODB.Recordset")
rs_cms_Vote.Open strsql, Conn, 1, 1
If Not (rs_cms_Vote.EOF And rs_cms_Vote.BOF) Then
.........
end function

[huangyj]

谢谢
OnlyVB(边城浪子)
的指导！