%@language="vbscript"%>
<%
const forreading=1,forwriting=2,forappending=3
const tristateusedefault=-2,tristatetrue=-1,tristatefalse=0
filepath=server.mappath("jsq")
'response.write filepath
filename=filepath+"\countergz.txt"
'response.write filename
set fs=createobject("scripting.filesystemobject")
if fs.fileexists(filename) then
set f=fs.getfile(filename)
set ts=f.openastextstream(forreading,tristateusedefault)
scjgg=ts.readline+1
ts.close
else
fs.createtextfile(filename)
set f=fs.getfile(filename)
scjgg=1
end if
'向counter.txt中写数据
set ts=f.openastextstream(forwriting,tristateusedefault)
ts.writeline(cstr(scjgg))
ts.close
'
%>