asp 簡單數據庫連接類

　　Class Cls_DB
Private ConnStr
Private DBpathDBLinkDBi
==============================
函數名DB_Conn
作    用數據庫連接函數
參    數
==============================
Private Sub DB_Conn()
On Error Resume Next
Set Conn = ServerCreateObject("AdodbConnection")
ConnStr="Provider=MicrosoftJetOLEDB;Data Source=" & ServerMapPath(SiteDB)
ConnOpen ConnStr
If Err Then
   Call AspErr()
End If
End Sub

　　==============================
函數名DB_Open
作    用創建讀取對象
參    數
==============================
Public Sub DB_Open()
Call DB_Conn()
Set Rs=ServerCreateobject("AdodbRecordSet")
End Sub

==============================
函數名DB_Close
作    用關閉讀取對象
參    數
==============================
Public Sub DB_Close()
Set Rs=Nothing
If IsObject(Conn) Then ConnClose
Set Conn = Nothing
End Sub

=============================
函數名AspErr
  作    用連接報錯
參    數
=============================
Private Sub AspErr()
DBLink = RequestServerVariables("url")
DBLink = Split(DBLink"/")
For DBi = To Ubound(DBLink)
   DBpath = DBpath&DBLink(DBi)&"/"
Next
ResponseWrite "<body style=fontsize:px>"
ResponseWrite "錯誤號" & ErrNumber & "<br />"
ResponseWrite "錯誤描述" & ErrDescription & "<br />"
ResponseWrite "錯誤來源" & ErrSource & "<br />"
ResponseWrite "</body>"
ErrClear
ResponseEnd
End Sub
End Class

From:http://tw.wingwit.com/Article/program/net/201311/14028.html