<% 'dim filepath,num,countlen,rfile filepath=server.mappath("counter.txt") set fs=createobject("scripting.filesystemobject") set thisfile=fs.opentextfile(filepath) rfile=thisfile.readline thisfile.close countlen=len(rfile) for i=1 to countlen response.write "" next '将rfile的值加1 rfile=rfile+1 '创建新文件 set thisfile=fs.createtextfile(filepath) '将值写入新文件 thisfile.writeline(rfile) '关闭文件 thisfile.close '断开连接释放资源 set fs=nothing %>