<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") & "访客"
%>
- 版权声明：本站原创文章，于18年前，由发表，共 1053字。
- 转载请注明：计数器的各种实现方法 | 老鄢博客 +复制链接
