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

<% @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="" src="/UploadFiles/2021-04-02/count.asp">

 

[1]

华山资源网 Design By www.eoogi.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
华山资源网 Design By www.eoogi.com