亚洲AV无码乱码在线观看不卡|最新大伊香蕉精品视频在线|亚洲不卡av一区二区|国产美女无遮挡免费

數(shù)據(jù)庫操作類在網(wǎng)上一搜一大把，我這并不比那些好，只是是自己寫的，用著更習(xí)慣。所以我這個類沒有什么特別的地方，只是自己用著習(xí)慣罷了，至于效率等方面，歡迎賜教��！

程序代碼：

以下為引用的內(nèi)容：
<%
Class dbClass
'-------------------------------------------------------------------------
    '變量說明
    'conn-----------connection對象
    'strsql---------執(zhí)行查詢的語句
    'vTbName--------查詢分頁的表名
    'vPKey----------查詢分頁的表的主鍵
    'vPgFields------查詢分頁要顯示的字段
    'vPgSize--------查詢分頁每頁顯示的記錄數(shù)
    'vCurrPg--------查詢分頁顯示的當(dāng)前頁
    'vConditions----查詢分頁的條件
    'vOrderBy-------查詢分頁的排序
'-------------------------------------------------------------------------
    private conn,strsql,vTbName,vPKey,vPgFields,vPgSize,vCurrPg,vConditions,vOrderBy
    '類的初始化
    private Sub Class_Initialize()
        '當(dāng)是MS Sql數(shù)據(jù)庫時設(shè)置以下兩個變量
        'dim dbServer            '數(shù)據(jù)庫服務(wù)器的名稱或ip地址
        'dim dbname              '數(shù)據(jù)庫的名字
        dim dbPath              '若是Access數(shù)據(jù)庫，此處設(shè)置其路徑
        dim dbUser              '數(shù)據(jù)庫的登錄用戶名
        dim dbPass              '數(shù)據(jù)庫的登錄密碼
        dim connstr
        dbPath = "/testasp/data/data.mdb" '設(shè)置數(shù)據(jù)庫路徑
        dbUser = "admin"
        dbPass = "123456"
        '若是access,并且有密碼
        connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbPath) &_
         ";User ID=" & dbUser & ";Password=;Jet OLEDB:Database Password=" & dbPass
        '若是access，并且沒有密碼
        'connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(dbPath)
        '若是ms-sql數(shù)據(jù)庫
        'connstr = "Provider = Sqloledb; User ID = " & dbUser & "; Password = " & dbPass &_
        ' "; Initial Catalog = " & dbname & "; Data Source = " & dbServer
        on error resume next