极乐门资源网 Design By www.ioogu.com

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

<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]

标签:
|如何|何让|让计|计数|数器|器只|只对|对新|新进|进用|用户|户计|计数|数?|?|

极乐门资源网 Design By www.ioogu.com
极乐门资源网 免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
极乐门资源网 Design By www.ioogu.com

评论“如何让计数器只对新进用户计数?”

暂无如何让计数器只对新进用户计数?的评论...