一个简单的计数器程序
<%
'一个简单的计数器程序
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)
%>
博客展示了一个简单的计数器程序代码。通过创建文件系统对象,读取计数文件中的数值并输出,然后将计数加1,再重新创建文件并写入新的计数值。
702

被折叠的 条评论
为什么被折叠?



