As a programmer, I believe that everyone has their own function library and class library. When working on a project, extract the desired functions and classes from the library. This can improve development efficiency. A class in the CJJ special ASP class library
The code copy is as follows:
'---*********************TConnString************************************---
'Database connection string structure
ClassTConnString
PublicDBName, DBPath, DBServer, DBUser, DBPass, DBType
EndClass
'---*********************TConnString************************************---
'---************************TDBOperate************************************---
'General database operation class
ClassTDBOperate
Privatecls_oConn,cls_oRS' class private Connection object, RecordSet object
Privatecls_sErrInfo,cls_sConn,cls_sSQL,cls_sURL,cls_sFormAction
Privatecls_iPageSize' Number of pages
Privatecls_lTotalPage,cls_lTotalRecord,cls_lPageNo
'Class Initialization
PrivateSubClass_Initialize()
EndSub
'*********************************************
'Type: Properties
'Purpose: Create a database connection based on the obtained ConnectionString
'Input: a_sConn: Data type string
'Return: None
'*********************************************
PublicPropertyLetSetConn(a_sConn)
DimsObjType
sObjType=LCase(TypeName(a_sConn))
IfsObjType<>"string"Then
cls_sErrInfo=cls_sErrInfo&"<li>SetConn: Illegal string parameter</li>"&Chr(10)
ExitProperty
EndIf
Setcls_oConn=CreateObject("Adodb.Connection")
OnErrorResumeNext
cls_oConn.Opena_sConn