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

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

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

Asp.net调用DLL文件

Asp.net调用DLL文件(如:DecryptActiveX.dll)1、把dll文件放到bin文件夹下,先引用你的dll文件(右击bin文件夹—添加引用)2、using你dll的命名空间 (如:u...
  • zhangyj_315
  • zhangyj_315
  • 2009年03月06日 17:56
  • 16082

在ASP中调用dll

在ASP中调用dll    动态联接库(DLL)是加快应用程序关键部分的执行速度的重要方法,但有一点恐怕大部分人都不知道,那就是在ASP文件也能通过调用DLL来加快服务器的执行速度,下面我简单的介绍一...
  • Suprman
  • Suprman
  • 2006年10月03日 19:33
  • 2333

dll封装后,ASP调用

Option ExplicitVB ActiveX DLL 类模块代码-----引用ASP中的一些设置------Private ScriptingContext As ASPTypeLibrary....
  • mymyal123
  • mymyal123
  • 2005年01月12日 15:25
  • 817

ASP 调用C#编写的DLL的方法(成功运行)

  • 2013年06月20日 15:46
  • 2KB
  • 下载

asp.net 引用 dll 库

  • 2011年07月14日 08:52
  • 180KB
  • 下载

ASP连接SQL Server数据库总结

Microsoft SQL Server7.0是一种大型、分布式数据库系统,也可被认为是一种大型、分布式数据仓库。SQL Server是一个十分注重安全性的数据库,特别是在7.0版本发布以后,可以将数...
  • denlee
  • denlee
  • 2007年04月29日 15:00
  • 14907

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

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

ASP.NET调用DLL

public partial class _1 : System.Web.UI.Page     {         [DllImport("kernel32", SetLastError = t...
  • z1a2q3wb
  • z1a2q3wb
  • 2017年01月08日 11:19
  • 71

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

ASP代码如下:function GetRootID(ClassID)DBPath=Server.MapPath("database.mdb")set S_DB = server.CreateObje...
  • xqf222
  • xqf222
  • 2006年06月09日 12:15
  • 2065
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP调用DLL总对象方法与数据库进行连接
举报原因:
原因补充:

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