如何做一個計數器並讓人家申請使用？

第一步，建立一個計數器（最簡單的數字計數器，不是圖片式的）：

<% @language="vbscript" %> 

<% 

set fsFilesys=CreateObject("Scripting.FileSystemObject")

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

' 讀儲存在count.txt的計數值,可先寫上8771990.

my Text.close

count=count+1 

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

' 重寫計數值.

myText.WriteLine(count) 

myText.close 

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

%> 

' 向用戶端發送數字.

 

第二步，用以下語句提供申請：

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

 

[1]