返回信息流我最近正在尝试使用vb dll文件封装asp代码进行保护，遇到了如下的问题
问题描述：
首先我在vb当中建立了一个名为aspdll的dll工程文件
代码如下：
----------------------------------------------------------------------
Private WenScriptingContext As ScriptingContext
Private WenApplication As Application
Private WenRequest As Request
Private WenResponse As Response
Private WenServer As Server
Private WenSession As Session
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set WenScriptingContext = PassedScriptingContext
Set WenApplication = WenScriptingContext.Application
Set WenRequest = WenScriptingContext.Request
Set WenResponse = WenScriptingContext.Response
Set WenServer = WenScriptingContext.Server
Set WenSession = WenScriptingContext.Session
End Sub
Public Sub OnEndPage()
Set WenScriptingContext = Nothing
Set WenApplication = Nothing
Set WenRequest = Nothing
Set WenResponse = Nothing
Set WenServer = Nothing
Set WenSession = Nothing
End Sub
Public Function rs(strsql As String) As Recordset
Dim oConn As New Connection
Dim oRs As New Recordset
Dim strconnstring As String
strconnstring = "driver={sql server};server=tcp:192.168.100.8;uid=sa;pwd=;" & _
"database=chinalife_rbb"
oConn.Open strconnstring
oRs.ActiveConnection = oConn
oRs.Open strsql, oConn, 1, 3
Set rs = oRs
End Function
------------------------------------------------------------------------
类名称为quan，编译成为dll文件进行注册，然后使用下面的asp代码进行调用
------------------------正常asp代码-------------------------------------
<%
Set Conn=Server.CreateObject("aspdll.quan")
set Rs=conn.rs("select * from admin")
%>
-------------------------------------------------------------------------
数据库正常打开进行其他数据显示也没有什么问题，但是我感觉这样调用太死板了，asp程序当中事先要把所有sql语句写好，于是我尝试下面的写法
------------------------问题asp代码-------------------------------------
<%
Set Conn=Server.CreateObject("aspdll.quan")
sqlstr="select * from admin"
set Rs=conn.rs(sqlstr)
%>
-------------------------------------------------------------------------
结果显示
-------------------------------------------------------------------------
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'Rs'
/index.asp，行 32
------------------------------------------------------------------------
我想问这样的asp文件调用dll文件操作数据库的时候只能将要执行的sql语句在asp文件当中完全写好么？有没有可以执行动态sql的可能？
应该如何修改呢？
这是一条镜像帖。来源：北邮人论坛 / database / #1260同步于 2007/6/25
该镜像源已超过 30 天没有更新，可能在源站已被删除。
Database机器人发帖
求助：各位达人帮忙，谢谢！！
paopao
2007/6/25镜像同步0 回复
订阅后，新回复会通过你的通知中心匿名送达。
0 条回复
暂无回复 · 你可以订阅本帖等待新回复。