簡單的ASP網頁計數器原始碼

 說明：

1、在網站目錄下建立一個文本：txtcounter.txt 在文本填寫1或其他識字

2、建立一asp檔案：count.asp，加入以下代碼：

<%  
CountFile=Server.MapPath("txtcounter.txt")  
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")  
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)  
counter=Out.ReadLine  
Out.Close  
SET FileObject=Server.CreateObject("Scripting.FileSystemObject")  
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)  
Application.lock  
counter= counter + 1  
Out.WriteLine(counter)  
Application.unlock  
Response.Write"document.write("&counter&")"
'為了在頁面正確顯示計數器的值，調用VBScript函數Document.write
Out.Close
%>