<%
』────────────────────────────────
』功能說明：db類是實現數據庫連接的類，裡面留有數據庫連接字符串接口
』包括模塊：無，一般都是被其他模塊包括
』調用方法：1、如果使用原有數據庫連接，則不用更改數據庫連接字符串ConnStr
』 具體操作為：Set DBC=New DataBaseClass
』 DBC.ConnStr="其他連接字符串"
』 2、方法使用：Set Conn=DBC.OpenConnection()得到一個連接對像
』────────────────────────────────
Class dbclass
』────────────────────────────────
』定義變量
Private IConnStr
』────────────────────────────────
』 ConnStr屬性
Public Property Let ConnStr(Val)
IConnStr = Val
End Property
』────────────────────────────────
』 ConnStr屬性
Public Property Get ConnStr()
ConnStr = IConnStr
End Property
』────────────────────────────────
』 類初始化
Private Sub Class_initialize()
End Sub
』────────────────────────────────
』 類註銷
Private Sub Class_Terminate()
ConnStr = Null
End Sub
』────────────────────────────────
』 建立一個連接
Public Function OpenConnection()
Dim TempConn
』On Error Resume Next
Set TempConn = Server.CreateObject("ADODB.Connection")
TempConn.Open ConnStr
Set OpenConnection = TempConn
Set TempConn = Nothing
if Err.Number <> 0 then
Response.Write("<script>alert(』[系統錯誤]\n\n數據庫連接錯誤！請檢查系統參數設置>>站點常量設置,或者/inc/const.asp文件!』);</script>")
Response.End
end if
End Function
End Class
%>
|
|
當前位置：開發者網絡 >> 技術教程 >> ASP教程 >> ASP技巧 >> 內容
