一個簡單的網頁瀏覽計數器程式碼

在一個ASP檔案中的適當位置，加入下列程式碼：

"一個簡單的網頁計數器

Set fs=CreateObject("Scripting.FileSystemObject")

Set a=fs.openTextFile(server.mappath("count.txt"))

count=a.readline

response.write " " & count

count=count+1

Set fs=CreateObject("Scripting.FileSystemObject")

Set a=fs.createTextfile(server.mappath("count.txt"))

a.writeline(count)

%>

儲存ASP檔案（比如：index.asp)，傳送到web伺服器你的網站目錄。

然後在該ASP檔案所在的目錄建立一個名叫count.txt的檔案 （可以透過xp自帶的記事本建立），在該count.txt檔案中寫上1，這樣當網民瀏覽該ASP網頁時，就能在適當位置看到1，並且每瀏覽一次該網頁就增加一個數。