使用 cookies 做一个简单计数器

主要是根据用户访问时间来判断，在一台计算机在一定时间之内的访问都不会被计数。而不理会用户是否关闭浏览器，是否更换ip地址。

说明:
1.为方便用户测试，我把判断时间设定为10秒，测试时，有详细的程序进程显示帮助理解
2.存成任意名字，放在任意目录下
3.计数器数据记录在2.asp这个文件中
4.需要fso权限和用户允许cookies，无需数据库支持

思路如下：
　　　　　　　　判断用户cookies是否存在(判断后写用户cookies为当前时间)
　　　　　　　　　　　　　　　　　｜　　　　　　　　　　｜
　　　　　　　　　　　　　　　　存在　　　　　　　　　不存在
　　　　　　　　　　　　　　　　　｜　　　　　　　　　　｜　　　　　　　　　　　　　　　　　
　　　　　判断cookies包含的用户访问时间是否过期　　　为用户添加cookies
　　　　　｜　　　　　　　　　　　　　　　　｜　　　　　｜
　　　　过期　　　　　　　　　　　　　　未过期　　　计数器计数
　　　　　｜　　　　　　　　　　　　　　　　｜
　　计数器计数　　　　　　　　　　　　计数器不计数

代码拷贝框
<style type=text/<a href="/list/css/index.html" title="css" target="_blank"><acronym>css</acronym></a>>body { font-family: "tahoma"; font-size: 12px; text-decoration: none}</style><%dim user_login,count_result,count_content,comparedatecount_result="2.<a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a>" '这里设定记录计数器数据的文件名为2.<a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a>comparedate=10 '设定比较时间，无单位user_login=request.cookies("user_login") '取得用户cookiesif user_login="" then '如果cookies不存在，就赋予用户一个cookies，并将计数器加一 response.write "用户没有cookies,线在创建<p>" call createcookies call modifycountelse response.write "用户cookies存在，现在去比较时间是否过期<p>" call indentifydateend if 'response.redirect count_result'修改计数器文件sub modifycount if checkfileexists(count_result)=1 then '计数器文件存在 response.write "计数器文件存在，现在去增加计数器的数值<p>" call addcount elseif checkfileexists(count_result)=0 then '计数器文件不存在就添加这个文件 response.write "计数器文件不存在，现在区创建这个文件,并将记录设定为1<p>" call createcount end ifend sub'给计数器文件增加数值sub addcount response.write "给计数器加一完毕<p>" count_content=cint(readtextfile(count_result))+1 '读这个文件的内容and给count_result.<a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a>加一 call savetextfile(count_result, count_content)end sub'创建计数器文件sub createcount response.write "创建文件完毕<p>" createfile(count_result) '创建文件 count_content=1 '计数器归零 call savetextfile(count_result, count_content) end sub'判断cookies相差时间时间sub indentifydate if datediff("s",cdate(user_login), now())>comparedate then '用户机上的cookies所记录的时间与当前相差是否超过10s' response.write "超过10秒，cookies已经过期，现在给计数器加一<p>" call modifycount else response.write "短于10秒钟，没有过期，计数器不增长<p>" end ifresponse.write "现在给cookies重新赋予现在的时间" call createcookiesend sub'给用户创建一个新的cookies并赋值,设定cookies失效时间为1天sub createcookies response.cookies("user_login")=now() response.cookies("user_login").expires=date+1end sub' 检查文件是否存在function checkfileexists(strfile) dim strtestfile, objfso strtestfile = server.mappath(strfile) set objfso = createobject("scripting.filesystemobject") ' 检查文件是否存在 if objfso.fileexists(strtestfile) then checkfileexists = 1 else checkfileexists = 0 end if set objfso = nothingend function'写文件sub savetextfile(strfile, strfileinnew) dim objfso, objoutstream, strtestfile strtestfile = server.mappath(strfile) set objfso = server.createobject("scripting.filesystemobject") set objoutstream = objfso.opentextfile(strtestfile,2,true,false) objoutstream.writeline(strfileinnew) objoutstream.close set objoutstream = nothing set objfso = nothingend sub' 读文件的内容function readtextfile(strfile) dim strtestfile, objfso, objinstream strtestfile = server.mappath(strfile) set objfso = server.createobject("scripting.filesystemobject") set objinstream = objfso.opentextfile (strtestfile,1, false, false) readtextfile = objinstream.readall objinstream.close set objinstream = nothing set objfso = nothingend functionfunction createfile(strfile) dim strtestfile, objfso, ob<a href="/list/js/index.html" title="js" target="_blank"><acronym>js</acronym></a>tream strtestfile = server.mappath(strfile) set objfso = createobject("scripting.filesystemobject") if objfso.fileexists(strtestfile) then createfile = 0 else ' 新建文本文件 set ob<a href="/list/js/index.html" title="js" target="_blank"><acronym>js</acronym></a>tream = objfso.createtextfile(strtestfile, true) ob<a href="/list/js/index.html" title="js" target="_blank"><acronym>js</acronym></a>tream.write(filecontent) createfile = 1 set objfile = nothing end if set objfso = nothingend function %>
[ctrl+a 全部选择然后拷贝]
运行代码框
<!doctype <a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a> public "-//w3c//dtd <a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a> 4.0 transitional//en"><<a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a>><head><title> new document </title><meta http-equiv="content-type" content="text/<a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a>; charset=gb2312"><meta name="generator" content="editplus"><meta name="author" content="田耕"><meta name="keywords" content=""><meta name="description" content=""><style type="text/<a href="/list/css/index.html" title="css" target="_blank"><acronym>css</acronym></a>">body,table,tr,td{ font-size:12px; color:#000000; }.sec1 { background-color: #99cc99; cursor: hand; color: #000000; border-left: 1px solid #ffffff; border-top: 1px solid #ffffff; border-right: 1px solid gray; border-bottom: 1px solid #ffffff }.sec2 { background-color: #d4d0c8; cursor: hand; color: #000000; border-left: 1px solid #ffffff; border-top: 1px solid #ffffff; border-right: 1px solid gray; font-weight: bold; }.main_tab { background-color: #d4d0c8; color: #000000; border-left:1px solid #ffffff; border-right: 1px solid gray; border-bottom: 1px solid gray; }</style><script language="<a href="/list/javascript/index.html" title="javascript" target="_blank"><acronym>javascript</acronym></a>"></script></head><body bgcolor="#ffffff" text="#000000" leftmargin="0" topmargin="0"><table width="588" border="0" cellspacing="1" cellpadding="4" align="center"> <tr> <td width="82%">当前位置：展馆分布 > <span id="weizi"><b>a</b>展馆<b>1</b>楼展厅</span></td> <td width="18%"> </td> </tr> <tr> <td colspan="2" height="1" bgcolor="#000000"></td> </tr> <tr> <td colspan="2" height="4"></td> </tr> <tr> <td colspan="2"> <table border=0 cellspacing=0 cellpadding=0 width=578 id=sectable> <tr height=20 align=center> <td class=sec2 width=10% onclick="secboard(0,'a','1')">a展馆1楼展厅</td> <td class=sec1 width=10% onclick="secboard(1,'a','2')">a展馆2楼展厅</td> <td class=sec1 width=10% onclick="secboard(2,'b','1')">b展馆1楼展厅</td> <td class=sec1 width=10% onclick="secboard(3,'b','2')">b展馆2楼展厅</td> <td class=sec1 width=10% onclick="secboard(4,'c','1')">c展馆1楼展厅</td> <td class=sec1 width=10% onclick="secboard(5,'c','2')">c展馆2楼展厅</td> </tr> </table> <table border=0 cellspacing=0 cellpadding=0 width=578 height=160 id=maintable class=main_tab> <tbody style="display:block;"> <tr> <td align="center"><br> 一<br> </td> </tr> </tbody> <tbody style="display:none;"> <tr> <td align="center"><br> 二<br> </td> </tr> </tbody> <tbody style="display:none;"> <tr> <td align="center"><br> 三<br> </td> </tr> </tbody> <tbody style="display:none;"> <tr> <td align="center"><br> 四<br> </td> </tr> </tbody><tbody style="display:none;"> <tr> <td align="center"><br> 五<br> </td> </tr> </tbody><tbody style="display:none;"> <tr> <td align="center"><br> 六<br> </td> </tr> </tbody> </table> </td> </tr></table> </body></<a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a>>
[ctrl+a 全部选择提示：你可先修改部分代码，再按运行]

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

使用 cookies 做一个简单计数器

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

使用 cookies 做一个简单计数器

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范