Activex 调用问题,郁闷~~~
jdler 2003-11-24 05:14:41 控件代码如下:
Public cn As New ADODB.Connection
Public rsTable As ADODB.Recordset
Public rs As ADODB.Recordset
Public Function ReadLog(SQLstr As String) As String
cn.Open "DRIVER={Microsoft Access Driver *.mdb)};DBQ=c:\a.mdb"
cn.Execute ("Insert Into a (a) Values ("a"))
End Function
我在VB中可以用以下代码引用:
Dim x As ASPDLL.PublicClass
Set x = New ASPDLL.PublicClass
a = x.ReadLog("a")
但是在ASP中我如此引用却报错:
set x = Server.CreateObject("ASPDLL.PublicClass")
a=s.ReadLog("test")
用
set a=s.ReadLog("test")
也不行!错误提示如下:
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
ASPDLL 错误 '800a005b'
未设置对象变量或 With block 变量
/index.asp,行13
还望各位朋友帮忙解决一下!!!