首页>网络编程教程>ASP教程

简单的ASP统计制作实例

作者：Eve Cole 更新时间：2025-02-19 06:12:01

一个能对访问者进行编号、记录访问次数、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〉

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

相关文章