我做了个防止刷新的计数器,但我想让用户在重新打开IE时候,还是计数!怎么写呢?
我做了个防止刷新的计数器,是利用cookies!
但是我想实现让用户在重新打开IE时候,还是计数!或者是过了10分钟后,打开计数!我不知道Expires怎么用,我让它几分钟后就过期,该怎么写呀!谢谢大家帮帮忙!
<%
dim visitors
'获取本网站在服务器上的路径
file=server.MapPath("counter.txt")
'打开文件并读出以前的来访数量
set fileacc=server.CreateObject("Scripting.FileSystemObject")
set myFile=fileacc.OpenTextFile(file)
visitors=myFile.readline
myFile.close
'增加一人,存回去
if Request.cookies("index1")="" then
visitors=visitors+1
Response.cookies("index1")="yes"
Response.Cookies("index1").Expires=date+1
end if
set myFile=fileacc.CreateTextFile(file)
myFile.WriteLine(visitors)
myFile.close
strlength=len(visitors)
'使用Response.Write方法生成Html代码
for i=1 to 8-strlength
Response.Write"<img src=images\number/0.gif>"
next
for i=1 to strlength
Response.Write "<img src=images\number/" & mid(visitors,i,1) & ".gif>"
next
set fileacc=nothing
%>