ENGLISH | 中文
<%dim visitors visitorfile=server.MapPath("countall.txt") set fs=CreateObject("Scripting.FileSystemObject") set thisfile=fs.OpenTextFile(visitorfile) visitorsall=thisfile.readline thisfile.close visitorsall=visitorsall+1 set out=fs.CreateTextFile(visitorfile,true) out.writeline(visitorsall) out.close response.write " 访问人数 : "+cstr(visitorsall)+"" %>