UC知道dw中如何制作防刷新计数器
来源：百度知道 编辑：UC知道 时间：2024/05/30 18:12:30
我做了一个计数器,是用一个文本文件存数字的但不能防刷新,高手帮忙!!
count.txt是一个文本文件,初始值为1,代码如下:
您是本站的第
<%
dim files,fs,thisfile,counts,out
files=server.MapPath("count.txt")
set fs=createobject("scripting.filesystemobject")
set thisfile=fs.opentextfile(files)
counts=thisfile.readline
thisfile.close
response.Write(counts)
counts=counts+1
set out=fs.createtextfile(files)
out.writeline(counts)
out.close
set fs=nothing
%>
位访问者
可是我没有那个文件,要自己创建吗
count.txt是一个文本文件,初始值为1,代码如下:
您是本站的第
<%
dim files,fs,thisfile,counts,out
files=server.MapPath("count.txt")
set fs=createobject("scripting.filesystemobject")
set thisfile=fs.opentextfile(files)
counts=thisfile.readline
thisfile.close
response.Write(counts)
counts=counts+1
set out=fs.createtextfile(files)
out.writeline(counts)
out.close
set fs=nothing
%>
位访问者
可是我没有那个文件,要自己创建吗
更完善的解决办法是在global.asa文件中
Sub Session_OnStart
dim files,fs,thisfile,counts,out
files=server.MapPath("count.txt")
set fs=createobject("scripting.filesystemobject")
set thisfile=fs.opentextfile(files)
counts=thisfile.readline
thisfile.close
'response.Write(counts)
session("n")=counts
counts=counts+1
set out=fs.createtextfile(files)
out.writeline(counts)
out.close
set fs=nothing
End Sub
这样在每次创建一个新对话的时候，就会将计数器加1。
并且将计数器数值存储在session("n")中，便于你在多个页面中显示。
===
是的，你可以搜一下有关该文件的内容