网络编程
位置：首页>> 网络编程>> Asp编程>> asp如何让计数器只对新进用户计数？

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

　　发布时间：2010-05-13 16:36:00　

标签：计算器,用户,计数,asp

 你说的就是真正的计数器，它只在有新的用户进入网站时，计数器才会加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
％>

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com