示例： set db = new adodb_class if db.select_table("select * from news order by id desc") then page = request("page") Select_page(page,20)'每頁20條 for i=1 to 20 response.write db.rs("title")'類內置rs，不可變 db.rs.movenext if db.rs.eof then exit for next end if db.rsPage = 總頁數，db.nowPage= 經過處理后當前頁，db.rsCounts數總記錄數量。
if db.update_table("delete from news where ispass=1") then'update同樣 response.write "共刪除"db.updated"行" end if
call db.insert_table("insert into news (title,content) values ('"title"','"content"')","news","id") response.write "最后添加ID為"db.Insertd
' Version 1.0 ' Copyright [email]simple_1982@hotmail.com[/email] ' E-mail [email]xsg2005@163.com[/email] '/*****************/ class adodb_class dim conn,connstr,rs dim dbclass'數據庫類型access,sql2000,sql2005三個值之一 dim SqlDbName,SqlUser,SqlPass,SqlServer dim SqlAccess dim Selectd,Insertd,Updated dim rsCounts,rsPage,readCounts,nowPage '記錄集 總數/頁數 查詢次數
selectd = 0 Insertd = 0 Updated = 0 End Sub '********打開數據庫鏈接****************** Private Sub AccessConn() connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" server.mappath(SqlAccess) ";Persist Security Info=False" End Sub Private Sub Sql2kConn() connstr = "driver={SQL server};server="SqlServer";uid="SqlUser";pwd="SqlPass";database="SqlDbName End Sub Private Sub Sql2k05Conn() connstr="Provider=SQLNCLI.1;Password="SqlPass";User ID="SqlUser";Initial Catalog="SqlDbName";Data Source="SqlServer End Sub Private Sub OpenConn(db_class) dbclass = db_class select case db_class case "access":call AccessConn() case "sql2000":call Sql2kConn() case "sql2005":call Sql2k05Conn() end select on error resume next set conn = server.CreateObject("adodb.Connection") conn.open connstr if err then Response.write "數據庫鏈接失敗br>sqlstring = " + connstr Response.End() err.clear end if End Sub '**********結束/查詢構造************* Public Function Select_Table(sql) if not not isempty(conn) or isnull(conn) then call OpenConn(dbclass) elseif conn.state = 0 then call OpenConn(dbclass) end if on error resume next Set rs = Server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 if err then Select_Table = False rs.close exit Function err.clear End If If rs.eof and rs.bof then rs.close Select_Table = false Else Select_Table = true End If readCounts = readCounts + 1 End Function '分頁處理 Public Function Select_page(page,psize) if isnull(page) or page = "" then page = 1 if page 1 then page = 1 if rs.state = 1 then if not rs.eof then rs.pagesize = psize rsPage = rs.pagecount rsCounts = rs.recordcount if int(page) > Int(rsPage) then page = rsPage rs.absolutepage = page:nowPage = page end if end if End Function '更新記錄 Public Function Update_Table(Sql) if not isempty(conn) or isnull(conn) then call OpenConn(dbclass) elseif conn.state = 0 then call OpenConn(dbclass) end if on error resume next if Sql > "" then conn.Execute Sql,Updated if err then Update_Table = false err.clear else Update_Table = true end if Else Update_Table = false end if conn.close Set conn = nothing End Function '增加 '輸入：insert SQL語句，表名，自增字段 Public Function Insert_Table(sql,table,id_column) if not isempty(conn) or isnull(conn) then call OpenConn(dbclass) elseif conn.state = 0 then call OpenConn(dbclass) end if on error resume next if sql > "" then conn.Execute(sql) if err then Insert_Table = false:err.clear else Insert_Table = true end if '獲得最后增加ID if table > "" and id_column > "" then Set ds = conn.Execute("select "id_column" from "table" order by "id_column" desc") end if if err then Insertd = 0:err.clear else Insertd = ds(0) end if Set ds = nothing closed() else Insert_Table = false end if End Function '關閉數據庫鏈接 Public Function closed() if not isempty(rs) and not isnull(rs) then if rs.state = 1 then rs.close end if end if rsCounts = 0:rsPage = 1:nowPage = 1 end function '**********釋放類************ Private Sub Class_Terminate() readCounts = 0:rsCounts = 0:rsPage = 0 if not isempty(conn) and not isnull(conn) then if conn.state = 1 then conn.close end if Set conn = nothing end if
if not isempty(rs) then if not isnull(rs) then if rs.state=1 then rs.close end if set rs=nothing end if end if End Sub End Class %>
