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了。