如何做一个计数器并让人家申请使用？
- 作者: 多少孙子为上神评改名字
- 来源: 51数据库
- 2020-08-07
第一步，创建一个计数器（最简单的数字计数器，不是图片式的）：
<% @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]
推荐阅读
