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

时间:2021-05-18

第一步,创建一个计数器(最简单的数字计数器,不是图片式的):

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

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章