asp最簡單最實用的計數器

剛才找一個計數器，由於網站的訪問量太少，放個計數器在那裡確實有點寒酸了，於是呼只能搞一個簡單點的，可以訪問一次就記錄一次的來撐撐門面先。本來以前我有一個，但是郁悶的是居然找不到了，在網上SO了一圈，總算是搞定了，具體程序代碼如下。
　　count.asp的代碼為： 

復制代碼 代碼如下:
<% 
    option explicit 
  dim fs,filename,txt,content,total,counter_lenth 
  counter_lenth=1  '設置顯示數據的最小長度，如果小於實際長度則以實際長度為准 
  set fs=Server.CreateObject("Scripting.FileSystemObject") 
  filename=server.MapPath("count.txt") 
  if not fs.FileExists(filename) then 
    fs.CreateTextFile filename,True,True 
    set txt=fs.OpenTextFile(filename,2,true) 
    txt.write 0 '如不存在保存數據的文件則創建新文件並寫入數據0 
    set fs=nothing 
  end if 

  set txt=fs.OpenTextFile(filename) 
  If txt.AtEndOfStream Then 
    Application("Counter")=0 '如果文件中沒有數據，則初始化Application("Counter")的值（為了容錯） 
  else 
    Application("Counter")=txt.readline 
  end if 

  Application.Lock  
  Application("Counter") = Application("Counter") + 1 
  Application.UnLock 


  Function save_ '保存計數函數 
  set fs=Server.CreateObject("Scripting.FileSystemObject") 
  filename=server.MapPath("count.txt") 
  content=Application("Counter") 
  set txt=fs.OpenTextFile(filename,2,true) 
  txt.write content 
  set fs=nothing 
  End Function 

  save_  '調用保存函數保存數據 

  Function Digital ( counter )  '顯示數據函數 
    Dim i,MyStr,sCounter 
     sCounter = CStr(counter) 
    For i = 1 To counter_lenth - Len(sCounter) 
      MyStr = MyStr & "0" 
    'MyStr = MyStr & "<IMG SRC=改成你自己的圖片存放的相對目錄\0.gif>" '如有圖片，可用此語句調用 
    Next 
    For i = 1 To Len(sCounter) 
      MyStr = MyStr & Mid(sCounter, i, 1) 
    'MyStr = MyStr & "<IMG SRC=改成你自己的圖片存放的相對目錄\" & Mid(sCounter, i, 1) & ".gif>" '如有圖片，可用此語句調用 
    Next 
    Digital = MyStr 
  End Function 

  Function count_show  '讀取計數函數 
  set fs=Server.CreateObject("Scripting.FileSystemObject") 
  filename=server.MapPath("count.txt") 
    set txt=fs.opentextfile(filename,1,true) 
  total=txt.readline 
  total=cint(total) 
  'response.write total 
  response.write Digital (total) '調用顯示函數 
  set fs=nothing 
  End Function 

%>



　　然後新建一個count.txt（必須和count.asp同一級目錄），打開這個文件後在裡面輸入任意數字（別太狠啦），然後在需要顯示計數器的那個頁面頂部加入
復制代碼 代碼如下:
<!--#include file="count.asp"--> 


最後在需要顯示計數器的地方加上代碼
復制代碼 代碼如下:
<%=count_show%> 


就OK了。