Question

利用ASP session实现网站计数功能,解决刷新加1的问题

Answer 1

< %
CountFile=Server.MapPath("counter.txt") '文件counter.txt是用来储存数字的文本文件，无此文件请创建，初始内容一般是0
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter=Out.ReadLine '读取计数器文件中的值
Out.Close '关闭文件

SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock '方法Application.lock禁止别的用户更改计数器的值
counter= counter + 1 '计数器的值增加1
Out.WriteLine(counter) '把新的计数器值写入文件
Application.unlock '使用方法Application.unlock后，允许别的用户更改计数器的值

Response.Write("您是本网站第")
Response.Write("<font color='#000000' face='Arial, Helvetica, sans-serif' size='2'><b>")
Response.Write(counter) '显示计数器
Response.Write("</b>")
Response.Write("位浏览者")
'Out.Close '关闭文件,
%>