<%

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="0"&no

next

%>

<font color=white size=3pt>你是第<font color=red><%=no%></font>个来客</font>