最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 简单数据库连接类
时间:2022-07-02 22:36:04 编辑:袖梨 来源:一聚教程网
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 "
Response.Write "错 误 号:" & Err.Number & "
"
Response.Write "错误描述:" & Err.Description & "
"
Response.Write "错误来源:" & Err.Source & "
"
Response.Write ""
Err.Clear
Response.End
End Sub
End Class
相关文章
- 《夜族崛起》铁匠西里尔位置一览 05-17
- 《寓言之地》1.02更新内容一览 05-17
- 《辐射4》steam好评率介绍 05-17
- 《夜族崛起》技能强化珠宝掉落说明 05-17
- 《辐射4》主机控制台介绍 05-17
- 《星露谷物语》海草和绿藻获取方法 05-17