ASP与网站计数器

原创 2007年09月29日 17:18:00

插入head的部分 

<%
CountFile=Server.MapPath("counter/counter.cr") 'txt文件保存的位置
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counternum=Out.ReadLine
Out.Close
SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
if session("guest")="" then
Application.lock
counternum= counternum + 1
session("guest")=true
end if
Out.WriteLine(counternum)
Application.unlock
Response.Write counternum
'为了在页面正确显示计数器的值,调用VBScript函数Document.write
Out.Close
%>

以下插入到body部分

<%
picture=right("00000"&cint(counternum),5)
%>
总访问量: 
<%for i=1 to 5%>
<img src="images/counter/<%=mid(picture,i,1)%>.gif">'指定图片的路径
<%next%>

相关文章推荐

asp网站计数器

  • 2015年05月06日 18:20
  • 4KB
  • 下载

查看计算机中可用的 ASP.NET 性能计数器

如何:查看计算机中可用的 ASP.NET 性能计数器 使用 Windows 性能计数器工具,可以查看 ASP.NET 可用的系统级性能计数器。 查看可用的 ASP.NET 计数器 在 Windo...
  • lchyz89
  • lchyz89
  • 2012年08月23日 16:43
  • 310

asp fso网站计数器

  • 2013年07月19日 14:29
  • 5KB
  • 下载

网站计数器ASP

  • 2013年03月01日 22:55
  • 19KB
  • 下载

ASP.NET性能计数器

ASP.NET 支持两组性能计数器 系统,在 ASP.NET 性能计数器对象中的 PerfMon 中公开应用程序,在 ASP.NET Applications 性能对象中公开  注:每 400...
  • kaosini
  • kaosini
  • 2012年11月23日 11:03
  • 804

简单网站计数器—asP

  • 2010年06月11日 10:14
  • 8KB
  • 下载

memcache实现网站公用计数器

最近项目中碰到了一个计数器的实现问题,网上查了很多资料也没有一个完整的实现。所以自己查找xmemcache client和memcache相关的API和说明,找到了一个比较完美的实现方法。 关键类:...

JSP计数器--网站统计访问量

计数器 你是第位访问者
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP与网站计数器
举报原因:
原因补充:

(最多只允许输入30个字)