请问如何将数据库打开操作封装在DLL中,然后在ASP页面中执行SQL语句?
在DLL中进行适当操作后,可以在ASP页面中直接执行类似以下语句:
conn.Execute("select top 10 * from [ClientDate]")
求此DLL写法,谢谢!(请不要贴以前得DLL制作方法得链接,我基本上都看过了.)
高手指点,100分相送!
问题点数：100、回复次数：8Top
1 楼liuyangxuan（阿轩）回复于 2004-05-04 16:52:07 得分 0
？？？Top
2 楼lnlhg（没吃饱的熊）回复于 2004-05-04 16:52:35 得分 0
???Top
3 楼xieyj（如果有一天...）回复于 2004-05-04 16:53:14 得分 0
可以使用 vb 编写组件，生成 dll 文件后，在服务器上注册，然后直接调用他方法.Top
4 楼lnlhg（没吃饱的熊）回复于 2004-05-04 16:56:13 得分 0
这个我都知道,但是在ASP页面中调用组件中得函数打开数据库后,conn并不是通用得,ASP页面中别的操作(非组件中得函数)都无法使用conn.
我就是寻求一种可以组件内外都能使用conn得方法.
备注:
Set conn = New ADODB.Connection
chestnut = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\调试文件夹\Test\DLL\3\lala.mdb"Top
5 楼lnlhg（没吃饱的熊）回复于 2004-05-04 16:56:45 得分 0
conn.Open chestnutTop
6 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2004-05-04 17:02:10 得分 100
组件中
Private conn As ADODB.Connection
Private rs As ADODB.Recordset
Public Function GetConn() As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=Northwind;Data Source=yang"
conn.Open
Set GetConn = conn
End Function
asp中
<%
Dim DataQuery
Dim strID
Dim strResult
Dim DataQuery
Set DataQuery=Server.CreateObject("WebDb.GetInfomation")
set rs=server.createobject("adodb.recordset")
sql="select * from employees"
Rs.open sql,DataQuery.getconn,1,3 '组件中返回的conn可以使用
response.Write Rs("LastName")
set Rs=nothing
%>Top
7 楼lnlhg（没吃饱的熊）回复于 2004-05-04 17:10:38 得分 0
哇靠,online(龙卷风V2.0--再战江湖) 真乃神人也!我好几次问问题都是你答到点子上的,100分不给你给谁?
不知道这位大哥有没有QQ,如果有请留下,要不发到lnlhg@21cn.com,我们交个朋友,谢谢!
我比较擅长做网站,不过组件还是接触不久.有空可以来我的私服玩玩,呵呵
http://mu.netone.ccTop
8 楼xylegend（pal）回复于 2004-05-04 20:16:46 得分 0
upTop
