<%    '自編ASP圖形化計數器  V1.1   '用于網頁瀏覽統計,免費使用，自由拷貝！     dim  vistors   '獲取計數文件counter.dat的地址   countfile=server.mappath("counter.dat")   '創建filesystemobject對象實例fs   set  fs=server.createobject("scripting.filesystemobject")   '以讀方式打開文件，其中1為讀方式   set  thisfile=fs.opentextfile(countfile,1,FALSE,FALSE)   '讀取計數文件的內容   visitors=thisfile.readline   '關閉文件   thisfile.close     set  fs=server.createobject("scripting.filesystemobject")   '以覆蓋方式(TRUE)、以ASCII格式(FALSE)創建文件   set  thisfile=fs.createtextfile(countfile,TRUE,FALSE)     '計數器的關鍵處：   '增加了變量connected，用于判斷訪問者是否為新的連接者   '此舉可防止同一用戶在同一次瀏覽中，由于多次按瀏覽器的“刷新”按鈕，   '從而使計數器值不斷升高的現象發生     if  IsEmpty(session("connected"))  then      application.lock      '禁止其它用戶更改計數器的值      visitors=visitors+1      '計數器值加1      thisfile.writeline(visitors)      '將結果寫入文件      application.unlock      '取消鎖定，允許用戶更改計數器的值   else      application.lock      visitors=visitors      thisfile.writeline(visitors)      application.unlock   end  if     session("connected")=TRUE   '設定來訪者為已連接者(TRUE)，此時再按“刷新”按鈕計數器值不會變化。     countlen=len(visitors)   '獲得計數器值的長度（即數值的位數）     '如果您不想使用圖形，可用如下內容代替for/next循環   '文本計數器：  response.write  "document.write("&visitors&");"     '逐位顯示圖形化數字   for  i=1  to  countlen       response.write  "document.write('<img  src="&"images/"&"/"&mid  (visitors,i,1)&".gif></img>');"   next       '關閉文件   thisfile.close   set  fs=nothing   %>

 <script  language="javascript"  src="count/mycount.asp">  </script>