服务器之家：专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - 一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例

一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例

2019-10-30 15:44asp教程网 ASP教程

一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例 我做了一个网站，www.aspku.net当然啦，跟大家一样，也摆了个计数器在上面，每天看计数器都在不断的翻，心里很高兴，不过后来我又想，到底是谁看了我的网站啊

一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例  

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

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

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


字段名   数据类型   说明  

ID      自动编号     访客的编号  
IP      文本         用于记录访客的IP  
dat1    日期时间     用于记录访客最后访问的时间  
dat     日期时间     用于记录访客第一次访问的时间  

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

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

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

<%  
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 where id=-1"  
set rs=server.createobject("ADODB.Recordset")  
rs.Open sql,conn, 1, 3  
rs.addnew '如果是新访客的话，在库中新增一条记录。  
rs("cs")=1 '记下访问次数为1  
rs("ip")=request.servervariables("remote_addr") '记下IP，  
rs("dat")=now '记下当前的日期时间，  
rs("dat1")=date '记下当前的日期，以后用来做第一次访问的日期，  
response.cookies("keren")=rs("id") '写入一个cookies，内容就和ID一样。  
response.cookies("keren").expires=date+365 '设置cookies的有效日期从现在开始，365天，  


else '以上是新朋友的处理办法，对老朋友怎么办呢？看下面的：  
sql="SELECT * FROM tab where id="&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")=now '记下现在的时间，也就是最后一次访问的时间，  
response.cookies("keren")=rs("id") '再把cookies写进去，我不知这句是否多余，没有试。  
response.cookies("keren").expires=date+365 '设置cookies过期时间，免得一年到了我就不认得他了。  


end if  

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



%>  

好啦，记录就做好啦，有二十几行代码，很简单的一个小程序，但我想，高手肯定还有高招，有高招的朋友不忘了教教阿余，  

程序写好了，怎么放到页面中呢？很简单，在首页上随便找个地方，加上这行代码：<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                                
       '**********************************以上一段用于分页                
%>  </tr></table>         
</div> <table style="font-size: 9pt" width="100%" bordercolorlight="#000000" border="1" bordercolordark="#FFFFFF" bgcolor="#A4D1E8" cellspacing="0" cellpadding="3">        
<tr><td>编号</td><td>最后访问首页</td><td>最后访问IP</td><td>首页次数</td><td>首次访问日期</td></tr><%  
for i=1 to pages  
Response.Write "</tr>"    
  Response.Write  "<td>"&rs("ID")&"</td>"    
  Response.Write  "<td>"&rs("dat")&"</td>"    
  Response.Write  "<td>"&rs("IP")&"</td>"    
  Response.Write  "<td>"&rs("CS")&"</td>"    

  Response.Write  "<td>"&rs("DAT1")&" </td>"    
    Response.Write "</tr>"    
   rs.movenext                                     
if rs.eof then exit for                                     
next                            
    rs.close     
%>    
<tr><td>合计<%=zs%></td><td>访问次数为100次以上的有<%=cs100%> </td><td>访问次数为1的有：<%=cs1%></td><td>总访问次数<%=csi%></td><td>今天访问量：<%=csdat1%></td></tr>   
</table>  

'****************************以上是完整的分页显示全部复制下来就可用。没有考虑一条记录也没有的情况。  

  • IP
  • 次数
  • 访问者
  • 编号

    • 延伸 · 阅读

    精彩推荐
    最近更新
    编辑推荐
    阅读排行
    热门标签
    SQL命令 　 dll文件 　 QueryString 　 对象错误 　 msxml3.dll 　 80072ee7 　 innerHTML 　 回车符 　 ExecuteGlobal 　 CutStrX 　 ScriptTimeOut 　 远程 　 空值 　 批处理 　 XHTML 　 Scripting 　 FileSystemObject 　 目录读写 　 权限检测 　 ASP注入 　 CC攻击 　 Err.Number 　 错误描述 　 禁止 　 源码分享 　 相对路径 　 页面执行效率 　 源程序 　 function 　 like 　
    © 2019-2025 服务器之家 版权所有 www.zzvips.com 关于我们联系我们版权申明网站地图