Objects | data | database <%
' ────────────────────────────────
' Function Description: DB Class is the class that implements the database connection, which leaves the database connection string interface
' Includes modules: None, generally included by other modules
' Call method: 1, if you are using an existing database connection, you do not have to change the database connection string connstr
' The specific operation is: Set dbc=new databaseclass
' DBC. Connstr= "Other Connection Strings"
' 2, Method uses: Set CONN=DBC. OpenConnection () Gets a Connection object
' ────────────────────────────────
Class Dbclass
' ────────────────────────────────
' Define variables
Private Iconnstr
' ────────────────────────────────
' ConnStr Property
Public Property Let ConnStr (Val)
Iconnstr = Val
End Property
' ────────────────────────────────
' ConnStr Property
Public Property Get ConnStr ()
ConnStr = Iconnstr
End Property
' ────────────────────────────────
' Class initialization
Private Sub Class_Initialize ()
End Sub
' ────────────────────────────────
' Class logoff
Private Sub Class_Terminate ()
ConnStr = Null
End Sub
' ────────────────────────────────
' Establish a connection
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 (' [System error]\n\n database connection Error! Please check system parameter settings >> site constant settings, or/inc/const.asp file! '); </script> ")
Response.End
End If
End Function
End Class
%>
