第一步，創(chuàng)建一個(gè)計(jì)數(shù)器（最簡(jiǎn)單的數(shù)字計(jì)數(shù)器，不是圖片式的）：

% @language="vbscript" %> 

% 

set fsFilesys=CreateObject("Scripting.FileSystemObject")

set myText=fsFilesys.OpenTextFile(Server.MapPath("/count")"\count.txt")count=myText.ReadLine

' 讀存儲(chǔ)在count.txt的計(jì)數(shù)值,可先寫(xiě)上8771990.

my Text.close

count=count+1 

set myText=fsFilesys.CreateTextFile(Server.MapPath("/count")"\count.txt")

' 重寫(xiě)計(jì)數(shù)值.

myText.WriteLine(count) 

myText.close 

response.write "document.write('%=count%>')" 

%> 

' 向客戶(hù)端發(fā)送數(shù)字.

第二步，用以下語(yǔ)句提供申請(qǐng)：

script　language="javascript1.1"　src="http://flashdays.126.com/count/count.asp">  

[1]