编辑主页 > 列表 > 正文
简单ASP网页计数器源代码
作者:yusou 发布时间:2019/07/07 18:27:55 分数:0 跟帖:0
  说明:
  1、在网站目录下新建一个文本:txtcounter.txt 在文本填写1或其他识字
  2、新建一asp文件:count.asp,加入以下代码:
  <%
  CountFile=Server.MapPath("txtcounter.txt")
  Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
  Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
  counter=Out.ReadLine
  Out.Close
  SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
  Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
  Application.lock
  counter= counter + 1
  Out.WriteLine(counter)
  Application.unlock
  Response.Write"document.write("&counter&")"
  '为了在页面正确显示计数器的,调用VBScript函数Document.write
  Out.Close
  %>
  3、在需要计数的网页加入:总访问<script language="JavaScript" src="count.asp"></script >次


网友跟帖 共0 条 [我也要发表回复]
版区推荐 >>
广告区