ASP編寫計(jì)數(shù)器的實(shí)例分享
作者: 來(lái)源: 發(fā)布時(shí)間:2011-6-9 15:15:38 點(diǎn)擊:
下面提供的是關(guān)于ASP編寫計(jì)數(shù)器的實(shí)例代碼分享,對(duì)ASP感興趣的朋友可以照著試一試。
<%
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) '建立文本文件,打開(kāi)為只讀.
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>
[收藏此文章]