美国宇航局历史:asp计数器
来源：百度文库 编辑：神马品牌网 时间：2024/05/01 02:59:01
我做了一个计数器
<%
function counts(file)
application.lock
dim objss,objcc
set objss=server.createobject("scripting.filesystemobject")
set objcc=objss.opentextfile(server.mappath("file"),1,true)
if not objcc.eof then
counts=clng(objcc.readline)
end if
counts=counts+1
objcc.close
set objcc=objss.opentextfile(server.mappath("file"),2,true)
objcc.writeline(counts)
counts.close
application.unlock
end function
%>
我用的时候就会counts("123.txt"),
大家能帮我看一下哪错了吗。
为什么连续点击刷新按钮人数会不断增加.这个问题怎么解决呢.请jgyu的这位朋友帮我看一个.
<%
function counts(file)
application.lock
dim objss,objcc
set objss=server.createobject("scripting.filesystemobject")
set objcc=objss.opentextfile(server.mappath("file"),1,true)
if not objcc.eof then
counts=clng(objcc.readline)
end if
counts=counts+1
objcc.close
set objcc=objss.opentextfile(server.mappath("file"),2,true)
objcc.writeline(counts)
counts.close
application.unlock
end function
%>
我用的时候就会counts("123.txt"),
大家能帮我看一下哪错了吗。
为什么连续点击刷新按钮人数会不断增加.这个问题怎么解决呢.请jgyu的这位朋友帮我看一个.
没有错， 可以用，我试过了