谁有比较好的asp防刷新计数器能给我介绍个
问题一
我下了好几干个计数器最后挑了两个，在本地测试
IE中删除cookies，删除文件，删除历史记录 后刷新可加1
但为什么我上传到服务器后，在客户端 删除cookies，删除文件，删除历史记录 却不能加1
问题二
谁有比较好点的计数器能介绍给我吗
问题点数：80、回复次数：7Top
1 楼eastr（[相濡以沫，不如相忘于江湖]）回复于 2005-08-02 22:37:15 得分 0
1, 服务器端加1和客户端删COOIES后刷没有关系。
2，www.xia8.com里有很多参考的。Top
2 楼comflyer0590（努力加三角！！）回复于 2005-08-02 22:43:24 得分 0
自己写啊 很简单啊
先建立一个counter.txt文件 然后在页面中写入：
<%
COUNTERFILE=SERVER.MAPPATH("counter.txt")
SET FILEINSTANCE=SERVER.CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")
SET TEXTINSTANCE=FILEINSTANCE.OPENTEXTFILE(COUNTERFILE,1,FALSE,FALSE)
VISITORNUM=TEXTINSTANCE.READLINE
if IsEmpty(Session("Connected")) then
VISITORNUM=VISITORNUM+1
else VISITORNUM=VISITORNUM
end if
NUMLENGTH=LEN(VISITORNUM)
Session("Connected")=True
%>
<%
FOR I=1 TO numlength STEP 1
G = G & "<IMG SRC=C" & Mid(visitornum, i, 1) & ".gif Align=TextTop>"
%> <%next%>
<%
set textinstance=fileinstance.createtextfile(counterfile,true,false)
textinstance.writeline(visitornum) %>
<%=G%>Top
3 楼rayFairy（）回复于 2005-08-02 22:47:11 得分 0
"先建立一个counter.txt文件 然后在页面中写入："???
应该是建立counter.asp吧Top
4 楼etou（迷途小青蛙,解决就给分）回复于 2005-08-03 00:14:04 得分 0
试一下这个!
主要功能介绍:如果是相同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
%>
Top
5 楼comflyer0590（努力加三角！！）回复于 2005-08-03 09:04:22 得分 0
"先建立一个counter.txt文件 然后在页面中写入："???
我的楼下 我的意思是先建一个用来存储流量数字的文本文件counter.txt，然后在需要显示计数器的页面如index.asp中写入下列代码。。。。。Top
6 楼jycjyc（果果）回复于 2005-08-03 12:40:30 得分 0
http://www.adjyc.com/about.htmTop
7 楼xiangyx（至尊宝.结贴我一向很准时）回复于 2005-12-20 09:29:08 得分 0
<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>
Top
