談Access為后臺數據庫的網站統計系統(2)_Access數據庫教程
教程Tag：暫無Tag,歡迎添加,賺取U幣!
推薦：解讀將文本文件轉換為ACCESS數據庫的方法本文向你介紹如何不用借助Access，直接在程序中創建一個數據庫，然后從標準的ASCII文本文件中讀取數據到數據庫中。原文是微軟知識庫中的一篇文章，但當時是針對VB3寫的，所以其中的代
好啦，記錄就做好啦，有二十幾行代碼，很簡單的一個小程序，程序寫好了，怎么放到頁面中呢？很簡單，在首頁上隨便找個地方，加上這行代碼：<img src="contpage.asp" width="0" height="0">就行了。
接下來就是把記錄顯示出來。
文件名：dispcont.asp , 請看代碼：
| 以下為引用的內容： <% Set Conn=Server.CreateObject("ADODB.Connection") Connstr="DBQ=" server.mappath("cont.asp") ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" Conn.Open connstr ‘’*****以上語句用于連接庫，cont.asp是庫文件名。 page3=request("pag") if page3="" then page3=session("contpag") ‘’分頁數，當前分頁 if page3="" then page3="1" pa=request("pa") if pa="" then pa=session("contpa") ‘’每頁顯示數 if pa="" then pa=15 ‘’默認每頁顯示15條，可任意改 session("contpag")=page3 session("contpa")=pa pages=pa ‘’每頁顯示數量***************以上一段程序用于實現分頁功能 SQL="SELECT * FROM tab order by -dat,-id" dim rs Set rs=Server.CreateObject("ADODB.RecordSet") rs.Open sql,conn,1,1 csi=0 cs1=0 cs100=0 csdat1=0 do while not rs.eof csi=csi rs("cs") if rs("cs")=1 then cs1=cs1 1 if rs("cs")>=100 then cs100 1 if datevalue(rs("dat"))=date then csdat1=csdat1 1 end if rs.movenext loop ZS=RS.RECORDCOUNT ‘’*****************************************************8以下一段程序用于分頁顯示 %> <head> <title>站長資訊在線統計</title> </head> <body style="font-size: 9pt" bgcolor="#D8EDF8"> 共有<%Response.Write zs%>條記錄，現在是第<%Response.Write page3%>頁 每頁顯示：[<a href="dispcont.asp?pag=<%=page3%>&pa=15">15]條、[<a href="dispcont.asp?pag=<%=page3%>&pa=20">20]條、[<a href="dispcont.asp?pag=<%=page3%>&pa=30">30]條、[<a href="dispcont.asp?pag=<%=page3%>&pa=40">40]條 [<a href="dispcont.asp">刷新] <div align="left"> <table border="0" cellpadding="0" style="font-size: 9pt"> <tr><td>頁碼</td><%page2=1 for i=1 to zs step pages if page3=cstr(page2) then %><td >[<%Response.Write page2%>]</td> <% else %> <td ><a href="dispcont.asp?pag=<%Response.Write page2%>">[<%Response.Write page2%>]</td> <% end if page2=page2 1 next sn=pages*(page3-1) ‘’當前記錄號=每頁顯示數*頁數-每頁顯示數 if sn>zs then sn=0 rs.move sn,1 |
分享：揭秘十萬條Access數據表分頁的解決方法后臺數據庫用是Access,客戶用了一年后說打開界面非常慢,查看了數據庫后發現數據表中的記錄已有五萬多條,自己試過將記錄復制到10 萬條,打開界面非常慢,翻頁也是同樣的問題,我采用的方
相關Access數據庫教程：
- 相關鏈接：
- 教程說明：
Access數據庫教程-談Access為后臺數據庫的網站統計系統(2)
。