| Copyright © 2007 鸿盛集团有限公司版权所有 All
Rights Reserved. |
您是第 <%
'一个简单的计数器程序
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)
%> 个访客 |