如何让计数器只对新进用户计数?_编程10000问教程-查字典教程网
如何让计数器只对新进用户计数?
如何让计数器只对新进用户计数?
发布时间:2016-12-29 来源:查字典编辑
摘要:如何让计数器只对新进用户计数?subapplication_onstartfilepath=server.mappath("/count")...

如何让计数器只对新进用户计数?

<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

%>

[1]

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新编程10000问学习
    热门编程10000问学习
    编程开发子分类