![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
如何在网页上添加访问统计计数器? 5
需要再一个HTML页面上添加一个访问计数器,用来显示总访问量和今日访问排名,效果如图,最好把源码发我,不方便的可以发我百度消息,谢谢。。...
需要再一个HTML页面上添加一个访问计数器,用来显示总访问量和今日访问排名,效果如图,最好把源码发我,不方便的可以发我百度消息,谢谢。。
展开
2个回答
展开全部
如果自己不想写的话就到网上申请一个
比如:http://www.xcinfo.ha.cn/jsq/login.asp
把申请到的代码放到页面上就可以了
如果学过ASP之类的话就可以自己写
在数据库中存放浏览次数
方法很多的
简单的方法,你可以在数据库中添加一个字段,用于记录!将美一次刷新页面作记录就可以了。
给你个写法:
sql="update 数据表 set 字段名=字段值 where 条件表达式"
看看,你可以到网上找一写好的:
http://www.mycodes.net/sort/216_1.htm
给你个地址看看!
何存在本地的一个计数器例子:
<script language = "vbscript" runat = "server">
sub application_onstart
'取的计数文件的真实路径
countfile=server.mappath("count.txt")
'创建文件系统对象实例
set myfso = server.createobject("scripting.filesystemobject")
'若计数文件不存在
if not myfso.fileexists(countfile) then
'创建该文件及取得textstream对象实例
set mytextstream = myfso.createtextfile(countfile, True)
application.lock
application("online") = 0
application("counter") = 0
application.unlock
'将计数值写入文件
mytextstream.writeline(cstr(application("counter")))
else
'以只读的方式打开
set mytextstream = myfso.opentextfile(countfile,1,false)
'读一行,并将值赋给计数变量
application("counter") = mytextstream.readline
end if
mytextstream.close
set myfso = nothing
end sub
sub session_onstart
session.timeout = 1
countfile = server.mappath("count.txt")
set myfso = server.createobject("scripting.filesystemobject")
application.lock
application("online") = application("online")+1
application("counter") = application("counter")+1
application.unlock
'以写方式打开文件
set mytextstream = myfso.opentextfile(countfile,2,false)
'以写行的方式将数据写入文件
mytextstream.writeline(cstr(application("counter")))
mytextstream.close
set myfso = nothing
end sub
sub session_onend
application.lock
application("online") = application("online")-1
application.unlock
end sub
</script>
比如:http://www.xcinfo.ha.cn/jsq/login.asp
把申请到的代码放到页面上就可以了
如果学过ASP之类的话就可以自己写
在数据库中存放浏览次数
方法很多的
简单的方法,你可以在数据库中添加一个字段,用于记录!将美一次刷新页面作记录就可以了。
给你个写法:
sql="update 数据表 set 字段名=字段值 where 条件表达式"
看看,你可以到网上找一写好的:
http://www.mycodes.net/sort/216_1.htm
给你个地址看看!
何存在本地的一个计数器例子:
<script language = "vbscript" runat = "server">
sub application_onstart
'取的计数文件的真实路径
countfile=server.mappath("count.txt")
'创建文件系统对象实例
set myfso = server.createobject("scripting.filesystemobject")
'若计数文件不存在
if not myfso.fileexists(countfile) then
'创建该文件及取得textstream对象实例
set mytextstream = myfso.createtextfile(countfile, True)
application.lock
application("online") = 0
application("counter") = 0
application.unlock
'将计数值写入文件
mytextstream.writeline(cstr(application("counter")))
else
'以只读的方式打开
set mytextstream = myfso.opentextfile(countfile,1,false)
'读一行,并将值赋给计数变量
application("counter") = mytextstream.readline
end if
mytextstream.close
set myfso = nothing
end sub
sub session_onstart
session.timeout = 1
countfile = server.mappath("count.txt")
set myfso = server.createobject("scripting.filesystemobject")
application.lock
application("online") = application("online")+1
application("counter") = application("counter")+1
application.unlock
'以写方式打开文件
set mytextstream = myfso.opentextfile(countfile,2,false)
'以写行的方式将数据写入文件
mytextstream.writeline(cstr(application("counter")))
mytextstream.close
set myfso = nothing
end sub
sub session_onend
application.lock
application("online") = application("online")-1
application.unlock
end sub
</script>
![](https://ecmc.bdimg.com/public03/b4cb859ca634443212c22993b0c87088.png)
2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |