Access为后台数据库的网站统计系统--.doc

　　Access为后台数据库的网站统计系统 　　一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例 　　我以ACCESS库为例子，其实用SQL SERVER库也只要改一下链接库的语句就得啦，库结构如下 　　库文件名：　CONT.ASP 本来是CONT.MDB但在建好后把扩展名改为了ASP,以防库被下载。 　　表名：tab 　　字段名　 数据类型　 说明 　　ID　　　自动编号　　 访客的编号 　　IP　　　文本　　　　 用于记录访客的IP 　　dat1　　日期时间　　 用于记录访客最后访问的时间 　　dat　　 日期时间　　 用于记录访客第一次访问的时间 　　CS　　　数字，整型　 用于记录访客访问次数 　　程序很简单，只有两个文件，dispcont.asp　用于显示统计结果，contpage.asp用于统计信息， 　　先看看CONTPAGE.ASP 是乍么统计的，代码如下： lt;% Set Conn=Server.CreateObject(ADODB.Connection) Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}; Conn.Open connstr *****以上语句用于连接库，cont.asp是库文件名。 keren=request.cookies(keren) 读取cookies,cookies的名为：keren,哈哈。。阿余的E文学的臭，只懂用拼音啦。 if keren= then 判断cookees是不是空，如果是空，那么肯定是新朋友啦，否则是老朋友。 sql=SELECT * FROM tab ote_addr) 记下IP， rs(dat)=nop;keren 到库中去找出我们老朋友的记录 set rs=server.createobject(ADODB.Recordset) rs.Open sql,conn, 1, 3 rs(cs)=rs(cs)+1 好啦，找到啦，把访问次数加上1 rs(ip)=request.servervariables(remote_addr) 看看他的IP是多少了，记下来。 rs(dat)=nog src=contpage.asp appath(cont.asp)+;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}; Conn.Open connstr rsquo 123下一页 这篇文章来自..，。;*****以上语句用于连接库，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 ovenext loop ZS=RS.RECORDCOUNT *****************************************************8以下一段程序用于分页显示 %gt; 　　 lt;headgt; lt;titlegt;站长资讯在线统计lt;/titlegt; lt;/headgt; 　　 lt;body style=font-size: 9pt bgcolor=#D8EDF8gt; 　　 共有lt;%Response.p;pa=15gt;15]条、[lt;a href=dispcont.asp?pag=lt;%=page3%gt;pa=20gt;20]条、[lt;a href=dispcont.asp?pag=lt;%=page3%gt;pa=30gt;30]条、[lt;a href=dispcont.asp?pag=lt;%=page3%gt;pa=40gt;40]条　　　　 [lt;a href=dispcont.aspgt;刷新]　　　 lt;div