关于Asp中使用DLL

wgzymzx 2004-12-25 03:06:36
我向封装数据库的访问到DLL中。
用vb些了如下的dll
'数据库连接字符串
Private Const cs = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\Vb\WgAdo\WorkShell.mdb;Uid=admin;Pwd=verace;';"

Public Function GetRs(paSql As String) As Recordset
Dim rs As Recordset
Set rs = New Recordset
rs.CursorLocation = adUseClient
rs.Open paSql, cs
Set GetRs = rs
End Function

在VB中用测试工程测试没有问题。
但是在Asp中使用如下程序访问时,总是报错
sql = " select staff_id, staff_name, work_type, email " &_
" from t_staff " &_
" where user_name='" & Trim(Request("Name")) & "' and password='" & Trim(Request("Pwd")) &"'"

set rs=server.CreateObject("ADODB.Recordset")
Set wg1=Server.CreateObject("Wg.WgAdo")
rs=wg1.GetRs(sql)
Set wg1=Nothing

错误信息:
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'GetRs'
/check/LoginCheck.asp,行14

但是这样使用:
Set wg1=Server.CreateObject("Wg.WgAdo")
wg1.GetRs(sql)
Set wg1=Nothing
就不会报错,请问该如何处理,才可以从DLL中返回一个记录集,并且可以在ASP中正确引用
邮件:wanggang@verace.com.cn
...全文
204 点赞 收藏 10
写回复
10 条回复
online 2004年12月26日
http://dev.csdn.net/develop/article/22/22628.shtm
回复 点赞
starboy1413 2004年12月25日
Regsvr32
回复 点赞
阿泰 2004年12月25日
set rs=server.CreateObject("ADODB.Recordset")
Set wg1=Server.CreateObject("Wg.WgAdo")
rs=wg1.GetRs(sql)
Set wg1=Nothing

不需要
set rs=server.CreateObject("ADODB.Recordset")

直接
Dim rs
Set rs=wg1.GetRs(sql)
即可
回复 点赞
hhjjhjhj 2004年12月25日
set rs=server.CreateObject("ADODB.Recordset")改成 dim rs
rs=wg1.GetRs(sql) 改成 set rs=wg1.GetRs(sql)

回复 点赞
gu1dai 2004年12月25日
rs=wg1.GetRs(sql)改成

set rs=wg1.GetRs(sql)试试看
, 不防看看。
回复 点赞
gu1dai 2004年12月25日
你确定注册成功了吗?
回复 点赞
cpio 2004年12月25日
rs=wg1.GetRs(sql)改成

set rs=wg1.GetRs(sql)试试看
回复 点赞
yb2008 2004年12月25日
sql = "select staff_id, staff_name, work_type, email " &_
" from t_staff " &_
" where user_name='" & Trim(Request("Name")) & "' and password='" & Trim(Request("Pwd")) &"'"

改:

sql = " select staff_id,staff_name,work_type,email" &"from t_staff" &" where user_name like '" & Trim(Request("Name")) & "' and password like '" & Trim(Request("Pwd")) &"'"
回复 点赞
yb2008 2004年12月25日
要先注册*.dll

Regsvr32 *.dll 才可以使用!
回复 点赞
wgzymzx 2004年12月25日
顶一下
回复 点赞
发动态
发帖子
ASP
创建于2007-09-28

1.9w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区公告
暂无公告