<%
sub incrementcounter()
set fs=server.createobject("scripting.filesystemobject")
counter_file=server.mappath("counter.txt")
set counter=fs.opentextfile(counter_file)
application("counter")=counter.readline
counter.close
application("counter")=application("counter")+1
set counter=fs.createtextfile(counter_file,true)
counter.writeline(application("counter"))
counter.close
end sub
application.lock
incrementcounter
application.unlock
%>
四川江华泵业有限公司主页
