怎么用ASP技术做一个刷新不计数的网站计数器啊?? 求帮助啊!!
我想用ifsession<>""thenapplication("counter")=application("counter")+1不知道行不行啊...
我想用 if session<>"" then
application("counter")=application("counter")+1
不知道行不行啊 展开
application("counter")=application("counter")+1
不知道行不行啊 展开
2个回答
展开全部
试一下这个!
主要功能介绍:如果是相同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
%>
主要功能介绍:如果是相同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
%>
展开全部
楼上的答案挺好的。我这还有方法,比较简单,没那么严谨。
当用户访问页面时,用判断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到期,就会重新加一。
当用户访问页面时,用判断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到期,就会重新加一。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询