欢迎来到天天文库
浏览记录
ID：9488958
大小：62.50 KB
页数：7页
时间：2018-05-01
《access为后台数据库的网站统计系统--》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、Access为后台数据库的网站统计系统>> 一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例 我以ACCESS库为例子，其实用SQLSERVER库也只要改一下链接库的语句就得啦，库结构如下 库文件名： CONT.ASP本来是CONT.MDB但在建好后把扩展名改为了ASP,以防库被下载。 表名：tab 字段名 数据类型 说明 ID 自动编号 访客的编号 IP 文本 用于记录访客的IP dat1 日期时间 用于记录访客最后访问的时间 dat 日期时间
2、 用于记录访客第一次访问的时间 CS 数字，整型 用于记录访客访问次数 程序很简单，只有两个文件，dispcont.asp 用于显示统计结果，contpage.asp用于统计信息， 先看看CONTPAGE.ASP是乍么统计的，代码如下：<%SetConn=Server.CreateObject(ADODB.Connection)Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriv
3、er(*.mdb)};Conn.Openconnstr*****以上语句用于连接库，cont.asp是库文件名。keren=request.cookies(keren)读取cookies,cookies的名为：keren,哈哈。。阿余的E文学的臭，只懂用拼音啦。ifkeren=then判断cookees是不是空，如果是空，那么肯定是新朋友啦，否则是老朋友。sql=SELECT*FROMtabote_addr)记下IP，rs(dat)=nop;keren到库中去找出我们老朋友的记录setrs=serv
4、er.createobject(ADODB.Recordset)rs.Opensql,conn,1,3rs(cs)=rs(cs)+1好啦，找到啦，把访问次数加上1rs(ip)=request.servervariables(remote_addr)看看他的IP是多少了，记下来。rs(dat)=nogsrc=contpage.aspappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};Conn.Openconnstr&r
5、squo123下一页>>>>这篇文章来自..，。;*****以上语句用于连接库，cont.asp是库文件名。 page3=request(pag)ifpage3=thenpage3=session(contpag)分页数，当前分页ifpage3=thenpage3=1 pa=request(pa)ifpa=thenpa=session(contpa)每页显示数ifpa=thenpa=15默认每页显示15条，可任意改session(contpag)=page3session(contpa)=pap
6、ages=pa每页显示数量***************以上一段程序用于实现分页功能 SQL=SELECT*FROMtaborderby-dat,-iddimrsSetrs=Server.CreateObject(ADODB.RecordSet)rs.Opensql,conn,1,1csi=0cs1=0cs100=0csdat1=0doovenextloopZS=RS.RECORDCOUNT*****************************************************8
7、以下一段程序用于分页显示%> <head><title>站长资讯在线统计</title></head> <bodystyle=font-size:9ptbgcolor=#D8EDF8> 共有<%Response.p;pa=15>15]条、[<ahref=dispcont.asp?pag=<%=page3%>pa=20>20]条、[<ahref=dispcont.asp?pag=<%
8、=page3%>pa=30>30]条、[<ahref=dispcont.asp?pag=<%=page3%>pa=40>40]条 [<ahref=dispcont.asp>刷新] <divalign=left> <tableborder=0cellpadding=0style=font-size:9pt> <tr>
此文档下载收益归作者所有
