关闭

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

标签: 数据库aspdllfunctionmicrosoftstring
1990人阅读 评论(0) 收藏 举报
分类:

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)
详细请参考动易数据库就行了

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1277196次
    • 积分:15003
    • 等级:
    • 排名:第787名
    • 原创:292篇
    • 转载:60篇
    • 译文:2篇
    • 评论:177条
    文章存档
    最新评论
    C#+Jquery
    C#+Jquery