ASP与网站计数器
2007-09-29 17:18
190 查看
插入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%>
<%
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.net 2.0使用Global.asax制作网站计数器的一点心得
- 【Vegas原创】网站计数器(asp)
- Asp.net 2.0使用Global.asax制作网站计数器的一点心得
- asp.net网站图片计数器!
- ASP Access实现网站计数器(访问量)
- 【Vegas原创】网站计数器(asp)
- 似乎知道了为什么网站计数器不会显示/(ASP中FSO的神奇功能)
- ASP.NET 开发人员应该知道的8个网站
- ASP.NET网站单独
- ASP.NET 2.0加密网站配置文件中的信息
- asp.net网站打包(包含数据库建库脚本 oracle) 成安装程序 exe 或msi
- ASP.Net 各类网站第一打开慢的问题解决方案
- ASP.NET网站与ASP.NET应用程序的区别
- 使用EF Code First搭建一个简易ASP.NET MVC网站,允许数据库迁移
- 图文解说Win7系统机器上发布C#+ASP.NET网站
- 用VS2015写一个简单的ASP.net网站
- asp.net获取网站路径
- asp.net 源码网站
- 通过避免下列10个常见ASP.NET缺陷使网站平稳运行
- ASP.NET第三方控件网站