CJJ專用ASP類庫中的某個class
2024-05-04 11:03:09
供稿：網友
作為程序員，相信每個人都有自己的函數庫及類庫。在做項目時，從庫里面提取想要的函數及類。這樣可以提高開發效率。CJJ專用ASP類庫中的某個class
復制代碼 代碼如下:
'----******************** TConnString *****************************----
'數據庫連接字符串結構體
Class TConnString
Public DBName,DBPath,DBServer,DBUser,DBPass,DBType
End Class
'----******************** TConnString *****************************----
'----********************* TDBOperate *****************************----
'通用數據庫操作類
Class TDBOperate
Private cls_oConn,cls_oRS '類私有Connection對象、RecordSet對象
Private cls_sErrInfo,cls_sConn,cls_sSQL,cls_sURL,cls_sFormAction
Private cls_iPageSize '分頁數
Private cls_lTotalPage,cls_lTotalRecord,cls_lPageNo
'類初始化
Private Sub Class_Initialize()
End Sub
'*****************************************
' 類型： 屬性
' 目的： 根據獲取的Connection String，創建數據庫連接
' 輸入： a_sConn:數據類型字符串
' 返回： 無
'*****************************************
Public Property Let SetConn(a_sConn)
Dim sObjType
sObjType = LCase(TypeName(a_sConn))
If sObjType <> "string" Then
cls_sErrInfo = cls_sErrInfo & "<li>SetConn：非法的字符串參數</li>" & Chr(10)
Exit Property
End If
Set cls_oConn = CreateObject("Adodb.Connection")
On Error Resume Next
cls_oConn.Open a_sConn
