ASP編寫計(jì)數(shù)器的實(shí)例分享

下面提供的是關(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) '建立文本文件,打開為只讀.
  
  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è)來客</font>