背景: #EDF0F5 #FAFBE6 #FFF2E2 #FDE6E0 #F3FFE1 #DAFAF3 #EAEAEF 默认  
阅读新闻

ASP写的一个小计数器(实用)

[日期:2006-03-16] 来源:  作者: [字体: ]

<%

Function WebCounter()
Dim CounterName,objFS,HitRate,imgName
Dim objReadTS,objWriteTS

on Error Resume Next
CounterName =server.MapPath("/bbs/jishu.txt")
Set objFS = CreateObject("Scripting.FileSystemObject")


Set ObjReadTS = objFS.OpenTextFile(CounterName,1,-1,0)
HitRate = objReadTS.ReadLine
objReadTS.Close
If not Session("On_line") Then
HitRate = CLng(HitRate)+1
Session("On_line") = True
Set objWriteTS = objFS.CreateTextFile(CounterName,-1,0)
objWriteTS.WriteLine HitRate
objWriteTS.close
End If
'For i=1 to cint(Len(HitRate))
'imgName =mid(HitRate,i,1)

Response.Write hitrate
'Next
End Function

response.Write "<div align=center class=style1>总第&nbsp;"
response.Write webcounter()
response.Write "&nbsp;次访问</div>"
%>

阅读:
录入:admin

推荐 】 【 打印
上一篇:如何获取来访者的IP及来路
下一篇:MS SQL压缩数据库日志方法
相关新闻      
本文评论       全部评论
发表评论


点评: 字数
姓名:

  • 尊重网上道德,遵守中华人民共和国的各项有关法律法规
  • 承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • 本站管理人员有权保留或删除其管辖留言中的任意内容
  • 本站有权在网站内转载或引用您的评论
  • 参与本评论即表明您已经阅读并接受上述条款