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

标签:计算器,用户,计数,asp
0
投稿

猜你喜欢

  • 隐蔽的ASP后门 大家可以查看下

    2010-08-05 21:26:00
  • asp datediff 时间相减

    2011-03-25 10:34:00
  • ACCESS数据库转换MYSQL数据库的软件

    2007-09-20 20:06:00
  • 用自定义html标签让IE支持html 5新增元素

    2008-03-18 12:57:00
  • 记得使用try+catch

    2010-01-29 12:48:00
  • 盖座漂亮的“楼”–浅谈网页设计中的构图

    2010-09-10 12:44:00
  • 深入了解MySQL的数据类型以及建库策略

    2008-12-17 16:16:00
  • DreamWeaver经典技巧四则

    2007-12-03 11:34:00
  • Access下如何使用通用对话框

    2008-11-20 16:41:00
  • Web开发技术发展史话

    2011-04-25 19:16:00
  • 960 Grid System 基本原理及使用方法

    2009-02-28 13:35:00
  • 什么是JSON及JSON的结构

    2008-06-15 07:16:00
  • js如何能知道浏览者计算机使用的语言是繁体还是简体

    2008-10-09 13:10:00
  • Mysql日期和时间函数大全

    2011-03-08 09:52:00
  • SqlServer中的日期与时间函数

    2011-11-03 17:12:34
  • 用户体验中的五大要素

    2008-07-07 16:41:00
  • 网页栅格系统研究(3):粒度问题

    2008-10-28 19:46:00
  • HTML5 离线存储之Web SQL

    2011-06-19 14:13:19
  • asp中常用的字符串安全处理函数集合(过滤特殊字符等)

    2011-02-20 10:40:00
  • MySQL数据库性能优化之索引优化

    2012-05-08 07:16:37
  • asp之家 网络编程 m.aspxhome.com