手机
当前位置:查字典教程网 >编程开发 >ASP教程 >asp 简单数据库连接类
asp 简单数据库连接类
摘要:ClassCls_DBPrivateConnStrPrivateDBpath,DBLink,DBi=====================...

Class Cls_DB
Private ConnStr
Private DBpath,DBLink,DBi
==============================
函 数 名:DB_Conn
作 用:数据库连接函数
参 数:
==============================
Private Sub DB_Conn()
On Error Resume Next
Set Conn = Server.CreateObject("Adodb.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(SiteDB)
Conn.Open ConnStr
If Err Then
Call AspErr()
End If
End Sub

==============================
函 数 名:DB_Open
作 用:创建读取对象
参 数:
==============================
Public Sub DB_Open()
Call DB_Conn()
Set Rs=Server.Createobject("Adodb.RecordSet")
End Sub

==============================
函 数 名:DB_Close
作 用:关闭读取对象
参 数:
==============================
Public Sub DB_Close()
Set Rs=Nothing
If IsObject(Conn) Then Conn.Close
Set Conn = Nothing
End Sub

=============================
函 数 名:AspErr
作 用:连接报错
参 数:
=============================
Private Sub AspErr()
DBLink = Request.ServerVariables("url")
DBLink = Split(DBLink,"/")
For DBi = 0 To Ubound(DBLink)-1
DBpath = DBpath&DBLink(DBi)&"/"
Next
Response.Write "<body>"
Response.Write "错 误 号:" & Err.Number & "<br />"
Response.Write "错误描述:" & Err.Description & "<br />"
Response.Write "错误来源:" & Err.Source & "<br />"
Response.Write "</body>"
Err.Clear
Response.End
End Sub
End Class

【asp 简单数据库连接类】相关文章:

简单分页函数一 常用

asp下tag的实现,简单介绍与部分代码

asp统计在线人数 global.asa写法

在ASP中连接MySQL数据库,最好的通过ODBC方法

asp的通用数据分页类

asp 过滤数组重复数据

用ASP实现对ORACLE数据库的操作

Asp类 的数据库领域

一个ACCESS数据库访问的类第1/3页

asp打包类

精品推荐
分类导航