会员登陆
登录加载中...
超级搜索
栏  目  
类  别  
关键词  
 站内搜索   网络搜索
  
 当前位置:文章首页>>本站原创>>网站编程>>简单页面访问量统计函数
推荐给你的朋友阅读:

简单页面访问量统计函数

来源:飞腾设计网 发表日期: 2010-08-01 16:16:28

    先看函数:

'**************************************************
'函 数 名:VCount()
'作    用:页面访问量函数
'使用说明:用于统计网站页面访问量
'参数设置: Flag表示是显示调用还是统计调用,值为1时为统计调用,其值累计;值为0时为显示调用,只显示不累计;
'注意事项:(1)、如果要在同一页面中使用,则必须先使用显示调用,再使用统计调用;(2)、统计文件count.txt所在目录要有写权限及网站要有FSO权限。
'**************************************************
Function VCount(Flag)
Dim objFSO,objCountFile,CountNum_head,FileName
FileName="count.txt"  '手工建立一个内容为0的文本文档即可,这也是访问量的初值,如果想作B,随便写数字就行
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If Not objFSO.FileExists(Server.Mappath(FileName)) Then
 Set objCountFile = objFSO.CreateTextFile(Server.MapPath(filename),True)
 CountNum_head=1
 objCountFile.Write CountNum_head
Else
 Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
 CountNum_head = objCountFile.ReadLine
End If
objCountFile.Close:Set objCountFile=Nothing
If Flag<>1 Then
 'If Request.Cookies("CountNum_head")<>"yes" Then '此代码为防刷新页面使用的
 Application.Lock '''锁定
 CountNum_head=CountNum_head+1
 Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),2,True)
 objCountFile.Write CountNum_head
 objCountFile.Close
 Set objCountFile=Nothing
 Application.UnLock
 'Response.Cookies("CountNum_head")="yes"
 'Response.Cookies("CountNum_head").Expires=DateAdd("m",60,now()) '60分钟防刷新
 'End If
End If
Set objFSO = Nothing
VCount="<strong><font color=""#0066B9"">您是第<font color=""#FF4800"">"&CountNum_head&"</font>位访客</font></strong>"
End Function
   
    调用时,直接采用VCount(1)或VCount(0)即可,简单方便。适用于一些有简单访问量查看要求的政府类网站。想要使用此函数的防刷新功能时,直接去掉Flag所在If语句体中三句带单引号的语句即可。

2
0
[作者:雨城 关键词:页面访问量,统计 录入:raincity 责编:raincity 阅读次数:3668]

相关文章 相关新闻 相关软件 相关教程 公共评论 发表评论

  • ·暂无相关内容
    评论载入中...
    您的称呼  验 证 码   
    您的评论 [ 最多字数:  已用字数:剩余字数:]

     
COPYRIGHT 2003-2010 创意飞腾科技有限公司(The Feitec LTD.) ALL RIGHTS RESERVED .
官方咨询官方咨询4376161 官方咨询526743959 技术支持:FeitecCMS5366464
页面加载时间:266.60ms Powered By:FeitecCMS V4.0(Build1101)
[蜀ICP备05000881]