首先新建一個(gè)counter.asp文檔，輸入下面的代碼，單引號后面的是注釋。

<%
set fs=Server.CreateObject(“Scripting.FileSystemObject”)
File = Server.MapPath(“counter.txt”)
Set txtr = fs.OpenTextFile(File,1,true)’打開(kāi)只讀文件file，如果不存在則新建
counter=0′將計數器歸零
If Not txtr.atEndOfStream Then’先確定還沒(méi)有到達結尾的位置
Line = txtr.ReadLine ‘讀取一行數據
else
 line=0 ‘否則設置初始值為0
 End If
 counter=line+1 ‘計數加1
 set txtw = fs.opentextfile(file,2,true) ‘打開(kāi)只寫(xiě)文件file
 txtw.write counter ‘寫(xiě)入計數
response.Write(“<center>您是第<b>”&counter&”</b>位訪(fǎng)客！</center>”)
‘輸出計數
%>

在需要統計和顯示計數的地方可以用include的方式引入這個(gè)文檔。
<!–#include file=”counter.asp”–>

如果是html之類(lèi)靜態(tài)頁(yè)面，則可以通過(guò)script腳本的方式來(lái)使用這個(gè)簡(jiǎn)單的計數器。counter.asp文檔內則輸入以下代碼：

<%
set fs=Server.CreateObject(“Scripting.FileSystemObject”)
File = Server.MapPath(“counter.txt”)
Set txtr = fs.OpenTextFile(File,1,true)’打開(kāi)只讀文件file，如果不存在則新建
counter=0′將計數器歸零
If Not txtr.atEndOfStream Then’先確定還沒(méi)有到達結尾的位置
Line = txtr.ReadLine ‘讀取一行數據
else
 line=0 ‘否則設置初始值為0
 End If
 counter=line+1 ‘計數加1
 set txtw = fs.opentextfile(file,2,true) ‘打開(kāi)只寫(xiě)文件file
 txtw.write counter ‘寫(xiě)入計數
response.Write(“document.write(“”<center>您是第<b>”&counter&”</b>位訪(fǎng)客！</center>””);”)
‘輸出計數，兩個(gè)””代表輸出一個(gè)”
%>

需要引用的html靜態(tài)頁(yè)里可以通過(guò)Script腳本來(lái)使用計數器：

<script src=”counter.asp”></script>

ASP的簡(jiǎn)單計數器代碼這樣就算完成了。