<% set fs=createobject("scripting.filesystemobject6") set a=fs.opentextfile(server.mappath("count.txt")) count=a.readline response.write "现在的访问量是"&count a.close count=count+1 set a=fs.opentextfile(server.mappath("count.txt"),2) a.writeline(count) %>