关于ASP调用自制ACTIVEX DLL的问题

[monday]

我写了一个这样的ACTIVEDLL：

Option Explicit

'对象的声明
Dim rp As Response
Dim rq As Request
Dim ap As Application
Dim sr As Server
Dim sn As Session

Public Sub OnStartPage(mysc)
'进行对象的实例化
Set rp = mysc.Response
Set rq = mysc.Request
Set sr = mysc.Server
Set ap = mysc.Application
Set sn = mysc.Session
'ActiveX DLL组件已经被创建了
End Sub

'当组件被销毁的时候触发这个事件
Public Sub OnEndPage()
'销毁对象
Set rp = Nothing
Set rq = Nothing
Set sr = Nothing
Set ap = Nothing
Set sn = Nothing
'ActiveX DLL组件已经被销毁
End Sub

Public Function SearchArchives(conn As Connection, content As String, mode As Integer) As Recordset
Dim rs As Recordset
Dim strSQL As String

strSQL = "select * from name where name like '%" + content + "%'"
rs.Open strSQL, conn, 1, 1
Set SearchArchives = rs
End Function

编译通过后用REGSVR32注册了。在ASP中是这样调用的：

Set se = Server.CreateObject("SMAICSearch.SearchEngine")
set rs=se.SearchArchives(conn,content,0) <---提示类型不匹配

为什么啊？？

[monday]

看了上楼的地址，加了如下代码：

Private Conn As ADODB.Connection
……
Public Function GetConn(ConnStr As String) As Boolean
'On Error Resume Next <--这两行如果不屏蔽的话不会有错误，但返回值一直是假
'Conn.Open ConnStr
Conn.Open "dsn=smaic"
If Err.Number <> 0 Then
rp.Write Err.Description
GetConn = False
Else
GetConn = True
End If
End Function

可是在ASP调用时
Set se = Server.CreateObject("SMAICSearch.SearchEngine")
fl = se.GetConn("dsn=smaic") <--提示 未设置对象变量或 With block 变量

搞不懂啊～～～

[flyintosky555]

mode As Integer改为mode As long 或者mode As variant 就可以了

[monday]

我明白了……

[Jaron]

http://www.jaron.cn/chs_scripts/8/2003-05/20030508152020-100943.html

[lovehwq21]

Public Function SearchArchives(conn As Connection, content As String, mode As Integer) As Recordset
Dim rs As Recordset
Dim strSQL As String

strSQL = "select * from name where name like '%" + content + "%'"
rs.Open strSQL, conn, 1, 1
Set SearchArchives = rs
End Function

估计上面参数的类型声明不对，改为conn As Adodb.Connection试试

[lovehwq21]

忘了补充一句了，类似的定义全部都这样改过来

[online]

http://www.csdn.net/Develop/read_article.asp?id=22628

[Comer]

up