一聚教程网:一个值得你收藏的教程网站

热门教程

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

热门栏目