萬盛學電腦網 >> 網絡編程 >> asp編程 >> asp 簡單數據庫連接類
asp 簡單數據庫連接類
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 style='font-size:12px'>"
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 刪除圖片與文件函數
