4个回答
展开全部
用数据库记录点击次数太大财小用了吧，我用的是FSO对象，把下面的代码放在任意位置，一般我都是放在<body>下面，这段代码会在你的网站根目录创建一个TXT文档，用来记录被访问的次数，想清零就直接把这个文件删除就行。你可以试试，看看好不好用。<%
dim objFSO,objTS,Counts,strCounts
Application.Lock()
SET objFSO=server.CreateObject("scripting.filesystemobject")
set objTS=objFSO.opentextfile(server.MapPath("fangwenrenshu.txt"),1,true)
if not objTS.AtEndOfStream then
Counts=CLng(objTS.readline)
end if
counts=counts+1
objts.close
set objts=objFSO.OpenTextFile(server.MapPath("fangwenrenshu.txt"),2,true)
objTS.WriteLine(Counts)
objTS.close
application.UnLock()
%>然后在你想显示的次数的位置输出 counts例如：<%Response.Write("您好！欢迎光临！您是本站第"&counts&"位访客。")%>
dim objFSO,objTS,Counts,strCounts
Application.Lock()
SET objFSO=server.CreateObject("scripting.filesystemobject")
set objTS=objFSO.opentextfile(server.MapPath("fangwenrenshu.txt"),1,true)
if not objTS.AtEndOfStream then
Counts=CLng(objTS.readline)
end if
counts=counts+1
objts.close
set objts=objFSO.OpenTextFile(server.MapPath("fangwenrenshu.txt"),2,true)
objTS.WriteLine(Counts)
objTS.close
application.UnLock()
%>然后在你想显示的次数的位置输出 counts例如：<%Response.Write("您好！欢迎光临！您是本站第"&counts&"位访客。")%>
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
最简单的用数据库来记录,例:news表字段有 新闻编号 新闻标题 新闻作者 新闻内容 新闻点击率 等等在阅读新闻页面的最上面,update一下,就是:sql="update news set 新闻点击率=新闻点击率+1"这样就可以实现,但是这个不防刷新哦,刷新之后也会加的,
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
如果你想偷懒的话可以在页面的加载事件中写 每加载一次将数据库中的对应的字段的值加1最好还是在点击事件中写好 每点一次将数量加1...
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
设置私有变量 'a=0'if a=0sql="update news set 新闻点击率=新闻点击率+1" 并 把a=1end if
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
