| <%
function kfc(cf)
dim fs,txt,file
application.lock
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath(cf)
set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream then
kfc=clng(txt.readline)
end if
kfc=kfc+1
txt.close
on error resume next
set txt=fs.createtextfile(file,true)
if err.number=70 then
kfc="请先将"&file&"的只读性去除！"
elseif err.number<>0 then
kfc=err.description
else
txt.writeline kfc
txt.close
end if
application.unlock
end function
%>
<%
if session("counter")=empty then
session("counter")=kfc("/counter.txt")
end if
%>
|
