一个简单的计数器程序

一个简单的计数器程序

<%

'一个简单的计数器程序

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)

%>