欢迎访问南京超维模型有限公司网站！！
NO:
 <% dim files,fs,thisfile,counts,out files=server.mappath("count.txt") Set fs=CreateObject("Scripting.FileSystemObject") Set thisfile=fs.opentextfile(files) counts=thisfile.readline thisfile.close response.write(counts) counts=counts+1 set out=fs.createtextfile(files) out.writeline(counts) out.close set fs=nothing %>