一段asp防刷新,使用cookies和session来判断的网站访问统计代码

此段代码是使用cookies判断访问者,指定cookie过期时间,在cookie有效期内计数器不重复增加。(如果访客清空浏览器cookie即导致计数器判断失效。)

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

if Request.Cookies("countcookie")="" then
        Response.Cookies("countcookie")="visited"
        Response.Cookies("countcookie").Expires=DateAdd("h", 1, now)          
        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后,允许别的用户更改计数器的值
end if

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       '关闭文件
%>


此段代码是使用session判断访问者,关闭浏览器即清空session,访问者再次打开浏览器计数器增加。

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

if session("counter")="" then
                session("counter")=now()
                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后,允许别的用户更改计数器的值
end if

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       '关闭文件
%>

参考网址:
count统计代码:http://zhidao.baidu.com/question/95173640.html
DateAdd函数使用:http://blog.swine123.com/archives/1953.html
ASP Cookies使用:http://www.w3school.com.cn/asp/coll_cookies_request.asp
ASP Session 对象:http://www.w3school.com.cn/asp/asp_ref_session.asp


本文固定链接:成事博客一段asp防刷新,使用cookies和session来判断的网站访问统计代码
喜欢 (0)分享 (0)
发表我的评论
取消评论

表情     9 + 8 = ? (必填)

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址