关闭

ASP与网站计数器

410人阅读 评论(0) 收藏 举报

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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:19757次
    • 积分:318
    • 等级:
    • 排名:千里之外
    • 原创:9篇
    • 转载:10篇
    • 译文:0篇
    • 评论:6条