28,406
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
纪俊 2002-02-22
- 打赏
- 举报
要刷新不+1就加一个判断语句，判断session,或者是ip就可以了
纪俊 2002-02-22
- 打赏
- 举报
<html><body>
<%coutfile=server.mappath("txtcounter.txt")
set myfile=createobject("scripting.filesystemobject")
set mytext=myfile.opentextfile(coutfile,1,false,false)
visitor=mytext.readline
visitor=visitor+1
myvisit=visitor
set mytext=myfile.createtextfile(coutfile,true,false)
mytext.writeline(visitor)%>
你是第<%=myvisit%>位来访者。
</body></html>
<%coutfile=server.mappath("txtcounter.txt")
set myfile=createobject("scripting.filesystemobject")
set mytext=myfile.opentextfile(coutfile,1,false,false)
visitor=mytext.readline
visitor=visitor+1
myvisit=visitor
set mytext=myfile.createtextfile(coutfile,true,false)
mytext.writeline(visitor)%>
你是第<%=myvisit%>位来访者。
</body></html>
ehom 2002-02-06
- 打赏
- 举报
To ready(沧海):
难道上面的代码,上面的回复都没看到吗?
难道上面的代码,上面的回复都没看到吗?
ready 2002-02-06
- 打赏
- 举报
怎么判断，请给出代码
csdn_study 2002-02-06
- 打赏
- 举报
想知道怎么实现刷新后不增加你只需要用session()然后对这个session()做一下判断就可以了
BrightEye 2002-02-06
- 打赏
- 举报
我也想知道怎么实现刷新后不增加的.
ehom 2002-02-05
- 打赏
- 举报
一样吗?session要占用服务器系统资源啊!
dgzdx 2002-02-05
- 打赏
- 举报
关注！
wzy9645 2002-02-05
- 打赏
- 举报
那不一样吗？
ehom 2002-02-05
- 打赏
- 举报
不要用session,这种时候应该用cookie!把session("tj_vistor")改为resquest.Cookie("tj_vistor")!设置resquest.Cookie("tj_vistor").Expires="(你需要的过期时间)"
tjdiy 2002-02-05
- 打赏
- 举报
先要创建一个文本countchat.txt里面只有一行，内容为0，如果你想你的计数器初始值为多少就写多少吧……我也没意见！
tjdiy 2002-02-05
- 打赏
- 举报
countfile=server.mappath("countchat.txt")
Set fs = CreateObject ("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(countfile)
visitors=thisfile.readline
thisfile.close
if session("tj_vistor")="" then
visitors=visitors + 1
end if
response.write "<font face='Arial' color=#FF0000 size=5><b>"
for i=1 to 5-len(visitors)
response.write "0"
next
response.write visitors & "</b></font>"
Set thisfile = fs.CreateTextFile(countfile)
thisfile.WriteLine(visitors)
thisfile.close
set fs=nothing
session("tj_vistor")=1
Set fs = CreateObject ("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(countfile)
visitors=thisfile.readline
thisfile.close
if session("tj_vistor")="" then
visitors=visitors + 1
end if
response.write "<font face='Arial' color=#FF0000 size=5><b>"
for i=1 to 5-len(visitors)
response.write "0"
next
response.write visitors & "</b></font>"
Set thisfile = fs.CreateTextFile(countfile)
thisfile.WriteLine(visitors)
thisfile.close
set fs=nothing
session("tj_vistor")=1
ready 2002-02-05
- 打赏
- 举报
不要，就要文本的!
dgzdx 2002-02-05
- 打赏
- 举报
关注！
tjdiy 2002-02-05
- 打赏
- 举报
我有MDB的，改下就可以了，要不要？
