ASP教程：自己寫的資料庫操作

資料庫操作類在網上一搜一大把，我這並不比那些好，只是是自己寫的，用著更習慣。所以我這個類沒有什麼特別的地方，只是自己用著習慣罷了，至於效率等方面，歡迎賜教！！

<%
Class dbClass
'-------------------------------------------------------------------------
    '變數說明
    'conn-----------connection對象
    'strsql---------執行查詢的語句
    'vTbName--------查詢分頁的表名
    'vPKey----------查詢分頁的表的主鍵
    'vPgFields------查詢分頁要顯示的欄位
    'vPgSize--------查詢分頁每頁顯示的記錄數
    'vCurrPg--------查詢分頁顯示的當前頁
    'vConditions----查詢分頁的條件
    'vOrderBy-------查詢分頁的排序
'-------------------------------------------------------------------------
    private conn,strsql,vTbName,vPKey,vPgFields,vPgSize,vCurrPg,vConditions,vOrderBy
    '類的初始化
    private Sub Class_Initialize()
        '當是MS Sql資料庫時設定以下兩個變數
        'dim dbServer            '資料庫伺服器的名稱或ip地址
        'dim dbname              '資料庫的名字
        dim dbPath              '若是Access資料庫，此處設定其路徑
        dim dbUser              '資料庫的登入使用者名稱
        dim dbPass              '資料庫的登入密碼
        dim connstr
        dbPath = "/testasp/data/data.mdb" '設定資料庫路徑
        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資料庫
        'connstr = "Provider = Sqloledb; User ID = " & dbUser & "; Password = " & dbPass &_
        ' "; Initial Catalog = " & dbname & "; Data Source = " & dbServer
        on error resume next
        set conn=server.CreateObject("adodb.connection")
        conn.open connstr
        errMsg "串連資料庫"
    End Sub
    '類結束
    Private Sub Class_terminate()
        conn.close
        set conn=nothing
    End Sub
'-------------------------------------------------------------------------
'給類的變數設定值
'-------------------------------------------------------------------------   
    '設定sql語句
    Public Property Let sqlStr(Byval Values)
    strsql=Values
    End Property
    '設定查詢分頁的表名
    public property let tbName(Byval Values)
    vTbName=Values
    end property
    '--------------------------------------------------------
    '設定查詢分頁的表的主鍵
    public property let pKey(ByVal Values)
    vPKey=Values
    end property
    '--------------------------------------------------------
    '設定顯示的欄位
    public property let pgFields(ByVal Values)
    vPgFields=Values
    end property
    '--------------------------------------------------------
    '設定每頁顯示的記錄數
    public property let pgSize(ByVal Values)
    vPgSize=Values
    end property
    '---------------------------------------------------------