asp 資料庫連接代碼與資料庫關閉代碼

 dim conn,rs;//這裡如果是調用外部檔案就必須定義這裡
這裡是資料庫建立聯連方法

    sub opendb()
        set rs=server.CreateObject("adodb.recordset")
        set conn=server.CreateObject("adodb.connection")
        conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source="&server.mappath("datasource/hhinfo.mdb")
        conn.open
    end sub

//這裡是asp資料關閉方法
    sub closedb()
        if isobject(rs) then
            if not(rs is nothing) then
                rs.close
                set rs=nothing
            end if
        end if
        if isobject(conn) then
            if not(conn is nothing) then
                conn.close
                set conn=nothing
            end if
        end if
    end sub

本站原創轉載註明:www.111cn.net