 |
|
| ||||||
| |
| ||||||||||
| |||||||||||
| |||||||||||
<%一个简单的计数器程序 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) %>
