作為程序員，相信每個人都有自己的函數庫及類庫。在做項目時，從庫裡面提取想要的函數及類。這樣可以提高開發效率。 CJJ專用ASP類庫中的某個class
複製代碼代碼如下:
'----********************TConnString*****************************----
'數據庫連接字符串結構體
ClassTConnString
PublicDBName,DBPath,DBServer,DBUser,DBPass,DBType
EndClass
'----********************TConnString*****************************----
'----*********************TDBOperate*****************************----
'通用數據庫操作類
ClassTDBOperate
Privatecls_oConn,cls_oRS'類私有Connection對象、RecordSet對象
Privatecls_sErrInfo,cls_sConn,cls_sSQL,cls_sURL,cls_sFormAction
Privatecls_iPageSize'分頁數
Privatecls_lTotalPage,cls_lTotalRecord,cls_lPageNo
'類初始化
PrivateSubClass_Initialize()
EndSub
'*****************************************
'類型：屬性
'目的：根據獲取的ConnectionString，創建數據庫連接
'輸入：a_sConn:數據類型字符串
'返回：無
'*****************************************
PublicPropertyLetSetConn(a_sConn)
DimsObjType
sObjType=LCase(TypeName(a_sConn))
IfsObjType<>"string"Then
cls_sErrInfo=cls_sErrInfo&"<li>SetConn：非法的字符串參數</li>"&Chr(10)
ExitProperty
EndIf
Setcls_oConn=CreateObject("Adodb.Connection")
OnErrorResumeNext
cls_oConn.Opena_sConn