asp如何让计数器只对新进用户计数?
时间:2010-05-13 16:36:00
你说的就是真正的计数器,它只在有新的用户进入网站时,计数器才会加1,忠实可靠。
把下列代码放到的global.asa的session_onstart中去即可实现:
<script language=vbscript runat=server>
sub application_onstart
filepath=server.mappath("/count")
filename=filepath+"\counter.txt"
set fs=createobject("scripting.filesystemobject")
if not fs.fileexists(filename) then
fs.createtextfile(filename)
set f=fs.getfile(filename)
s=1
Set ts = f.OpenAsTextStream(2, -2)
ts.writeline(cstr(s))
ts.close
else
set f=fs.getfile(filename)
Set ts = f.OpenAsTextStream(1, -2)
s=ts.readline+1
ts.close
end if
application(“visitor”)=s
end sub
sub session_onstart
session.timeout=5
application("visitor ")=application("visitor ")+1
set f=fs.getfile(filename)
Set ts = f.OpenAsTextStream(2, -2)
ts.writeline (cstr(application("visitor ")))
ts.close
end sub
</script>
<%
s=cstr(application("visitor")+10^6)
s=mid(s,2,6)
for i=1 to 6
response.write "<img src='flashdays/liyanbing/images/"
&mid(s,i,1)&".gif' width='18' height='25'>"
next
%>
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
隐蔽的ASP后门 大家可以查看下
asp datediff 时间相减
ACCESS数据库转换MYSQL数据库的软件
![](https://img.aspxhome.com/file/UploadPic/20079/20/2007920201417132s.jpg)
用自定义html标签让IE支持html 5新增元素
记得使用try+catch
盖座漂亮的“楼”–浅谈网页设计中的构图
深入了解MySQL的数据类型以及建库策略
DreamWeaver经典技巧四则
Access下如何使用通用对话框
Web开发技术发展史话
960 Grid System 基本原理及使用方法
什么是JSON及JSON的结构
js如何能知道浏览者计算机使用的语言是繁体还是简体
Mysql日期和时间函数大全
SqlServer中的日期与时间函数
用户体验中的五大要素
网页栅格系统研究(3):粒度问题
![](https://img.aspxhome.com/file/UploadPic/200810/28/2008102819524130s.png)