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

ttx9n

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

<% @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]

70r45_zs

老大你好你好好你好

x20yd3qx

终于找到了，我擦

4k0mp7m

终于找到了，我擦

hd1tvqb3

看看看看看看看看看看看看看看看看看看看看看看看看看看看

vir5051

来看看！！！

4r8oiin60

你们谁看了弄洒了可能

黑白键

还不错啊

do827261756

来看看怎么样

qzdhcgs

很不错的源码论坛