怎么用ASP技术做一个刷新不计数的网站计数器啊?? 求帮助啊!!

我想用ifsession<>""thenapplication("counter")=application("counter")+1不知道行不行啊... 我想用 if session<>"" then
application("counter")=application("counter")+1
不知道行不行啊
展开
 我来答
markdian
2012-05-03 · 超过56用户采纳过TA的回答
知道小有建树答主
回答量:143
采纳率:0%
帮助的人:145万
展开全部
试一下这个!
主要功能介绍:如果是相同IP,在10分钟之后登陆,计数器加1!而在不同IP在任何时间登陆都可+1

http://www.5image.com/ntcount.rar(本文件为计数器的图片和文本)

<%
response.cookies( "ip_name ").expires=dateadd( "n ",10,now())

Set FileObject = Server.CreateObject( "Scripting.FileSystemObject ")
Dir = Request.ServerVariables( "SCRIPT_NAME ")
Dir = StrReverse(Dir)
Dir = Mid(Dir, InStr(1, Dir, "/ "))
Dir = StrReverse(Dir)
HitsFile = Server.MapPath(Dir) & "\ntcount\hits.txt "

On Error Resume Next
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
Hits = Trim(InStream.ReadLine)

trueip=request.ServerVariables( "http_x_forwarded_for ")
if trueip=0 then
trueip=request.ServerVariables( "REMOTE_ADDR ")
end if

userip=request.Cookies( "ip_name ")
if userip= " " or userip <> trueip then
response.Cookies( "ip_name ")=trueip

Hits = Hits + 1
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(Hits)

end if

L=Len(Hits)
i = 1
For i = i to L
num = Mid(Hits,i,1)
Display = Display & " <img src= " "ntcount\ " & num & ".gif " "> "
Next
Response.Write Display

%>
spant8
2012-05-08 · TA获得超过1755个赞
知道小有建树答主
回答量:2113
采纳率:50%
帮助的人:652万
展开全部
楼上的答案挺好的。我这还有方法,比较简单,没那么严谨。
当用户访问页面时,用判断session("visitedTime")是否存在,不存在则是首次访问,计数器加1
并用session("visitedTime")记录当前时间。
如果已经存在,说明不是首次访问,则更新session("visitedTime")=now()

if session("visitedTime")<>"" then
session("visitedTime")=now()
else
counter=counter+1'当然这里你可以用你喜欢的方法去保存这个数字。我这里就略了。
session("visitedTime")=now()
end if
把代码放一个公共页里,比如页脚就好了。
这样的效果是,只要他是一直活动的,就不会增加计数。如果他离开比较久,即session到期,就会重新加一。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式