用ASP编写计数器
2018-09-06 12:32
阅读：399
<%
dim fso,f,no,I 定义变量绝对是个好习惯
Set fso = CreateObject(Scripting.FileSystemObject) 建立对象的实例
Set f = fso.OpenTextFile(Server.MapPath(count.no), 1, True) 建立文本文件,打开为只读.
if f.AtEndOfStream then 判断这个文件是否不存在
no=1
else
no=f.ReadLine
no=no+1
end if
f.Close
set f=fso.OpenTextFile(Server.MapPath(count.no),2,True) 准备写
f.Write(no) 写入
f.Close
改进标志1
no=CStr(no) 整齐数字
for i=1 to 5-len(no)
no=0no
next
%>
<font color=white size=3pt>你是第<font color=red><%=no%></font>个来客</font>
上一篇：如何将长的标题用省略号收尾
评论
亲，登录后才可以留言！