DNF每日簽到送豪
lol7月神秘商店
LOL黑市亂斗怎么
LOL英雄成就標志相關資訊
本類常用軟件
-
福建農村信用社手機銀行客戶端下載下載量：584204
-
Windows優化大師下載量：416896
-
90美女秀(視頻聊天軟件)下載量：366961
-
廣西農村信用社手機銀行客戶端下載下載量：365699
-
快播手機版下載量：325855
騎自行車的正確
在校大學生該如
微信朋友圈怎么下面提供的是關于ASP編寫計數器的實例代碼分享，對ASP感興趣的朋友可以照著試一試。
<%
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>
熱門評論
最新評論