谈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)
。