简单的ASP统计制作实例

一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例，需要的朋友可以参考下

我做了一个网站，当然啦，跟大家一样，也摆了个计数器在上面，每天看计数器都在不断的翻，心里很高兴，不过后来我又想，到底是谁看了我的网站啊?是新朋友还是老朋友啊?也不知他们来了多少次，我还想给他们都编上号，于是我申请了 免费统计，不过一连换了N个都不满意，唉，看来，只有自己动手才能丰衣足食了，说干就干，还望高手笑话之于，不访指教。

我以ACCESS库为例子，其实用SQL SERVER库也只要改一下链接库的语句就得啦，

库结构如下

库文件名： CONT.ASP 本来是CONT.MDB但在建好后把扩展名改为了ASP,以防库被下载。

表名：tab

字段名 数据类型 说明

ID 自动编号 访客的编号

IP 文本 用于记录访客的IP

dat1 日期时间 用于记录访客最后访问的时间

dat 日期时间 用于记录访客第一次访问的时间

CS 数字，整型 用于记录访客访问次数

程序很简单，只有两个文件，dispcont.asp 用于显示统计结果，contpage.asp用于统计信息，

先看看CONTPAGE.ASP 是乍么统计的，代码如下：

1. 〈%SetConn=Server.CreateObject(ADODB.Connection)
2. Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
3. Conn.Openconnstr'*****以上语句用于连接库，cont.asp是库文件名。
5. keren=request.cookies(keren)'读取cookies,cookies的名为：keren,哈哈。。阿余的E文学的臭，只懂用拼音啦。
6. ifkeren=then'判断cookees是不是空，如果是空，那么肯定是新朋友啦，否则是老朋友。
8. sql=SELECT*FROMtabwhereid=-1
9. setrs=server.createobject(ADODB.Recordset)
10. rs.Opensql,conn,1,3
11. rs.addnew'如果是新访客的话，在库中新增一条记录。
12. rs(cs)=1'记下访问次数为1
13. rs(ip)=request.servervariables(remote_addr)'记下IP，
14. rs(dat)=now'记下当前的日期时间，
15. rs(dat1)=date'记下当前的日期，以后用来做第一次访问的日期，
16. response.cookies(keren)=rs(id)'写入一个cookies，内容就和ID一样。
17. response.cookies(keren).expires=date+365'设置cookies的有效日期从现在开始，365天，

1. else'以上是新朋友的处理办法，对老朋友怎么办呢？看下面的：
2. sql=SELECT*FROMtabwhereid=&keren'到库中去找出我们老朋友的记录
3. setrs=server.createobject(ADODB.Recordset)
4. rs.Opensql,conn,1,3
5. rs(cs)=rs(cs)+1'好啦，找到啦，把访问次数加上1
6. rs(ip)=request.servervariables(remote_addr)'看看他的IP是多少了，记下来。
7. rs(dat)=now'记下现在的时间，也就是最后一次访问的时间，
8. response.cookies(keren)=rs(id)'再把cookies写进去，我不知这句是否多余，没有试。
9. response.cookies(keren).expires=date+365'设置cookies过期时间，免得一年到了我就不认得他了。

1. endif
3. rs.update'该记的都记下了，更新库吧。
4. rs.close'关闭recordset对象。
5. setconn=nothing'释放conn，我还是认为connection要随开随关才对，放到SESSION中我认为最不可取。4%〉

好啦，记录就做好啦，有二十几行代码，很简单的一个小程序。

程序写好了，怎么放到页面中呢?很简单，在首页上随便找个地方，加上这行代码：〈img src=contpage.asp width=0 height=0〉就行了。

接下来就是把记录显示出来，这个能做得比阿余好的人多的是，不过还是来现个丑。

文件名：dispcont.asp , 请看代码：

1. 〈%
2. SetConn=Server.CreateObject(ADODB.Connection)
3. Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
4. Conn.Openconnstr'*****以上语句用于连接库，cont.asp是库文件名。
6. page3=request(pag)
7. ifpage3=thenpage3=session(contpag)'分页数，当前分页
8. ifpage3=thenpage3=1
10. pa=request(pa)
11. ifpa=thenpa=session(contpa)'每页显示数
12. ifpa=thenpa=15'默认每页显示15条，可任意改
13. session(contpag)=page3
14. session(contpa)=pa
15. pages=pa'每页显示数量***************以上一段程序用于实现分页功能
17. SQL=SELECT*FROMtaborderby-dat,-id
18. dimrs
19. Setrs=Server.CreateObject(ADODB.RecordSet)
20. rs.Opensql,conn,1,1
21. csi=0
22. cs1=0
23. cs100=0
24. csdat1=0
25. dowhilenotrs.eof
26. csi=csi+rs(cs)
27. ifrs(cs)=1thencs1=cs1+1
28. ifrs(cs)〉=100thencs100+1
29. ifdatevalue(rs(dat))=datethen
30. csdat1=csdat1+1
31. endif
32. rs.movenext
33. loop
34. ZS=RS.RECORDCOUNT
35. '*****************************************************8以下一段程序用于分页显示
36. %〉
38. 〈head〉
39. 〈title〉卓越电脑统计〈/title〉
40. 〈/head〉
41. 〈bodystyle=font-size:9ptbgcolor=#D8EDF8〉
42. 共有〈%Response.Writezs%〉条记录，现在是第〈%Response.Writepage3%〉页每页显示：[〈ahref=dispcont.asp?pag=〈%=page3%〉&pa=15〉15]条、[〈ahref=dispcont.asp?pag=〈%=page3%〉&pa=20〉20]条、[〈ahref=dispcont.asp?pag=〈%=page3%〉&pa=30〉30]条、[〈ahref=dispcont.asp?pag=〈%=page3%〉&pa=40〉40]条
43. [〈ahref=dispcont.asp〉刷新]
44. 〈divalign=left〉
45. 〈tableborder=0cellpadding=0style=font-size:9pt〉
46. 〈tr〉〈td〉页码〈/td〉〈%page2=1
47. fori=1tozssteppages
48. ifpage3=cstr(page2)then
49. %〉〈td〉[〈%Response.Writepage2%〉]〈/td〉
50. 〈%else%〉
51. 〈td〉〈ahref=dispcont.asp?pag=〈%Response.Writepage2%〉〉[〈%Response.Writepage2%〉]〈/td〉
52. 〈%endif
53. page2=page2+1
54. next
55. sn=pages*(page3-1)'当前记录号=每页显示数*页数-每页显示数
56. ifsn〉zsthensn=0
57. rs.movesn,1
58. '**********************************以上一段用于分页
59. %〉〈/tr〉〈/table〉
60. 〈/div〉〈tablestyle=font-size:9ptwidth=100%bordercolorlight=#000000border=1bordercolordark=#FFFFFFbgcolor=#A4D1E8cellspacing=0cellpadding=3〉
61. 〈tr〉〈td〉编号〈/td〉〈td〉最后访问首页〈/td〉〈td〉最后访问IP〈/td〉〈td〉首页次数〈/td〉〈td〉首次访问日期〈/td〉〈/tr〉〈%
62. fori=1topages
63. Response.Write〈/tr〉
64. Response.Write〈td〉&rs(ID)&〈/td〉
65. Response.Write〈td〉&rs(dat)&〈/td〉
66. Response.Write〈td〉&rs(IP)&〈/td〉
67. Response.Write〈td〉&rs(CS)&〈/td〉
69. Response.Write〈td〉&rs(DAT1)&〈/td〉
70. Response.Write〈/tr〉
71. rs.movenext
72. ifrs.eofthenexitfor
73. next
74. rs.close
75. %〉
76. 〈tr〉〈td〉合计〈%=zs%〉〈/td〉〈td〉访问次数为100次以上的有〈%=cs100%〉〈/td〉〈td〉访问次数为1的有：〈%=cs1%〉〈/td〉〈td〉总访问次数〈%=csi%〉〈/td〉〈td〉今天访问量：〈%=csdat1%〉〈/td〉〈/tr〉
77. 〈/table〉

以上是完整的分页显示全部复制下来就可用(注意：没有考虑一条记录也没有的情况)，还是那句话只有自己动手才能丰衣足食，抓紧试验一下吧!