第一步，創(chuàng)建一個(gè)計(jì)數(shù)器（最簡單的數(shù)字計(jì)數(shù)器，不是圖片式的）：
% @language="vbscript" %>
%
set fsFilesys=CreateObject("Scripting.FileSystemObject")
set myText=fsFilesys.OpenTextFile(Server.MapPath("/count")"\count.txt")count=myText.ReadLine
' 讀存儲在count.txt的計(jì)數(shù)值,可先寫上8771990.
my Text.close
count=count+1
set myText=fsFilesys.CreateTextFile(Server.MapPath("/count")"\count.txt")
' 重寫計(jì)數(shù)值.
myText.WriteLine(count)
myText.close
response.write "document.write('%=count%>')"
%>
' 向客戶端發(fā)送數(shù)字.
第二步，用以下語句提供申請：
script language="javascript1.1" src="http://flashdays.126.com/count/count.asp">
[1]
