|
||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||
|
| <% 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 %> |