【www.gdgbn.com--php与数据库】

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

本文来源：http://www.gdgbn.com/jiaocheng/20758/