计数器的各种实现方法-老鄢博客

计数器的各种实现方法

发布时间：2007-04-03 22:24:00 作者：admin 阅读：1152次

<html>
<head>
<title>计数器示例</title>
</head>
<body>
fso计数器
<%
set fso=server.createobject("scripting.filesystemobject")
set file=fso.opentextfile(server.mappath("counter.txt"),1)
counter=file.readline()
counter=counter+1
set file=fso.opentextfile(server.mappath("counter.txt"),2)
file.writeline(counter)
response.write counter
%>
<br>
cookies计数器
<%
dim varnum
varnum=request.Cookies("varnum")
if varnum="" then
varnum=1
else
varnum=varnum+1
end if
response.write "你是第"&varnum&"次访问该网页!"
response.cookies("varnum")=varnum
response.cookies("varnum").expires=#2007-4-10#
%>
<br>
Application计数器
<%
'客户刚打开浏览器时，Session("visited")=""，则计数器会加1，并令Session("visited")=True。
'如果客户刷新页面，或从其它页面返回，则不再计数。
If Session("visited")="" Then
'下面一段先将新的访问次数保存到Application中
If Application("visitNum")="" Then
'如果是第一位客户，就将访问次数设为1
Application.Lock
Application("visitNum")=1
Application.Unlock
Else
'否则将原有次数加1
Application.Lock
Application("visitNum")=Application("visitNum")+1
Application.Unlock
End If
'将Session("visited")设为True，表示已经访问过
Session("visited")=True
End If
'在页面上输出访问次数
Response.Write "您是第" & Application("visitNum") & "访客"
%>