用ASP編寫計(jì)數(shù)器
發(fā)表時(shí)間：2024-06-06 來(lái)源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]<%dim fso,f,no,I '定義變量絕對(duì)是個(gè)好習(xí)慣Set fso = CreateObject("Scripting.FileSystemObject") '建立對(duì)象的實(shí)例Set f = fso.OpenTextFile(Server.MapPat...
<%
dim fso,f,no,I '定義變量絕對(duì)是個(gè)好習(xí)慣
Set fso = CreateObject("Scripting.FileSystemObject") '建立對(duì)象的實(shí)例
Set f = fso.OpenTextFile(Server.MapPath("count.no"), 1, True) '建立文本文件,打開為只讀.
if f.AtEndOfStream then '判斷這個(gè)文件是否不存在
no=1
else
no=f.ReadLine
no=no+1
end if
f.Close
set f=fso.OpenTextFile(Server.MapPath("count.no"),2,True) '準(zhǔn)備寫
f.Write(no) '寫入
f.Close
'改進(jìn)標(biāo)志1
no=CStr(no) '整齊數(shù)字
for i=1 to 5-len(no)
no="0"&no
next
%>
<font color=white size=3pt>你是第<font color=red><%=no%></font>個(gè)來(lái)客</font>
