|
||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||
| <% Set fs=CreateObject("Scripting.FileSystemObject") Set a=fs.openTextFile(server.mappath("count.txt")) count=a.readline response.write "现在的访问量是:" & count count=count+1 Set fs = CreateObject("Scripting.FileSystemObject") Set a=fs.createTextfile(server.mappath("count.txt")) a.writeline (count) %> | ||||||||||||||||||||||||||||||||||||