如何做一个计数器并让人家申请使用？_编程100

NEWSZW_HZH_BEGIN-->

第一步，创建一个计数器（最简单的数字计数器，不是图片式的）：

<% @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测试数据/count/count.asp">   

[1]