ASP调用DLL总对象方法与数据库进行连接

原创 2006年06月09日 12:15:00

ASP代码如下:
<%
function GetRootID(ClassID)
DBPath=Server.MapPath("database.mdb")
set S_DB = server.CreateObject( "SQLCONN.DB")
S_DB.Conn_Open DBPath
response.Write("<br>数据库打开成功!")
GetRootID = S_DB.GetRootID(ClassID)
Set S_DB=nothing
end function
ClassID=22
response.Write("<br>查询 ClassID: "&ClassID)
RSRootID=GetRootID(ClassID)
response.Write("<br>根目录RootID: "&RSRootID)
%>

VB6.0 中新建ActiveX-DLL项目
点工程-引用-Microsoft ActiveX  Data  Objects 2.8 Library
工程名SQLCONN
类名DB
sqlconn.DLL代码如下:

Option Explicit
Public strError As String
Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset


Public Property Get ErrorString() As String
ErrorString = strError
End Property

Public Function Conn_Open(DBPath)
Dim strCon As String
Set Conn = New ADODB.Connection
On Error GoTo errHandler:
strCon = "DBQ=" & DBPath & ";DRIVER={Microsoft Access Driver (*.mdb)};"
Conn.Open strCon
errHandler:
strError = "错误源:" & Err.Source & vbCrLf & "描述:" & Err.Description
Exit Function
End Function

Function GetRootID(ByVal ClassID)
Dim query
query = "select ClassID,RootID from ArticleClass where ClassID=" & ClassID
Set Rs = Conn.Execute(query)
If Not (Rs.EOF And Rs.BOF) Then
GetRootID = Rs("RootID")
Else
GetRootID = ClassID
End If
Rs.Close
Set Rs = Nothing
End Function

生成sqlconn.dll之后,在开始菜单中点运行 输入 regsrv32 d:/dll/sqlconn.dll 存放注册路径
在iis中测试运行asp 文件即可

参考网址http://www.jaron.cn/chs_scripts/8/2003-05/20030508152020-100943.html

此程序中的数据库表。连接方式都未搜集完全,只是调用了一个普通的连接。
相关数据库名称:database.mdb
数据表名称:ArticleClass
表中记录:ClassID(22),RootID(4)
详细请参考动易数据库就行了

相关文章推荐

用VB生成DLL封装ASP代码一个例子:连接access数据库等

用VB生成DLL封装ASP代码一个例子:连接access数据库等 封装为dll会带来很多的好处,主要包括只是产权的保护,以及效率和安全性能的提升。这个例子中被封装的dll文件可以隐藏access数据库...
  • shaily
  • shaily
  • 2007年12月04日 19:48
  • 1524

asp调用DLL或com组件的简述及网上摘例

动态联接库(DLL)是加快应用程序关键部分的执行速度的重要方法 asp调用DLL或com组件的方法:步骤一: 装载 METADATA 标签中指定的类型库。 Path是mydll.dll在机器上存放的路...

ASP.net连接mysql数据库(使用MySql.Data.dll)

以前用ASP.net做web网站时用的都是sqlserver 数据库,也没有了解用mysql如何连接,遂今天试了下,多余就不说了,直接上步骤了。 首先我采用的是MySql.Data.dll这种方式连接...

AjaxPro.dll,asp.net 前台js调用后台方法(无刷新)

1、什么是Ajax Ajax是异步Javascript和XML(Asynchronous JavaScript and XML)的英文缩写。"Ajax"这个名词的发明人是Jesse James ...

asp.net数据库连接,三层架构方法调用

asp.net数据库连接,三层架构方法调用 http://www.cnblogs.com/dingjie08/archive/2009/03/05/1404103.html   as...

什么情况下用+运算符进行字符串连接比调用StringBuffer/StringBuilder对象的append方法连接字符串性能更好?

如果在编写代码的过程中大量使用+进行字符串评价还是会对性能造成比较大的影响,但是使用的个数在1000以下还是可以接受的,大于10000的话,执行时间将可能超过1s,会对性能产生较大影响。如果有大量需要...

什么情况下用+运算符进行字符串连接比调用StringBuilder对象的append方法连接字符串性能更好?

经常在网上看到或者在周围听到有人说字符串拼接不要直接用 String 相加, StringBuilder 的效率要比 String 直接相加拼接要高。还有人常说, StringBuffer 是同步的(...

什么情况下用+运算符进行字符串连接比调用StringBuffer/StringBuilder对象的append方法连接字符串性能更好?

tring一旦赋值或实例化后就不可更改,如果赋予新值将会重新开辟内存地址进行存储。 而StringBuffer类使用append和insert等方法改变字符串值时只是在原有对象存储的内存地址...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP调用DLL总对象方法与数据库进行连接
举报原因:
原因补充:

(最多只允许输入30个字)