asp最简单最实用的计数器

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了asp最简单最实用的计数器，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含2477字，纯文字阅读大概需要4分钟。

内容图文

刚才找一个计数器，由于网站的访问量太少，放个计数器在那里确实有点寒酸了，于是呼只能搞一个简单点的，可以访问一次就记录一次的来撑撑门面先。本来以前我有一个，但是郁闷的是居然找不到了，在网上SO了一圈，总算是搞定了，具体程序代码如下。
　　count.asp的代码为： 

代码如下:
<% 
    option explicit 
  dim fs,filename,txt,content,total,counter_lenth 
  counter_lenth=1  '设置显示数据的最小长度，如果小于实际长度则以实际长度为准 
  set fs=Server.CreateObject("Scripting.FileSystemObject") 
  filename=server.MapPath("count.txt") 
  if not fs.FileExists(filename) then 
    fs.CreateTextFile filename,True,True 
    set txt=fs.OpenTextFile(filename,2,true) 
    txt.write 0 '如不存在保存数据的文件则创建新文件并写入数据0 
    set fs=nothing 
  end if 

  set txt=fs.OpenTextFile(filename) 
  If txt.AtEndOfStream Then 
    Application("Counter")=0 '如果文件中没有数据，则初始化Application("Counter")的值（为了容错） 
  else 
    Application("Counter")=txt.readline 
  end if 

  Application.Lock  
  Application("Counter") = Application("Counter") + 1 
  Application.UnLock 


  Function save_ '保存计数函数 
  set fs=Server.CreateObject("Scripting.FileSystemObject") 
  filename=server.MapPath("count.txt") 
  content=Application("Counter") 
  set txt=fs.OpenTextFile(filename,2,true) 
  txt.write content 
  set fs=nothing 
  End Function 

  save_  '调用保存函数保存数据 

  Function Digital ( counter )  '显示数据函数 
    Dim i,MyStr,sCounter 
     sCounter = CStr(counter) 
    For i = 1 To counter_lenth - Len(sCounter) 
      MyStr = MyStr & "0" 
    'MyStr = MyStr & "<IMG SRC=改成你自己的图片存放的相对目录\0.gif>" '如有图片，可用此语句调用 
    Next 
    For i = 1 To Len(sCounter) 
      MyStr = MyStr & Mid(sCounter, i, 1) 
    'MyStr = MyStr & "<IMG SRC=改成你自己的图片存放的相对目录\" & Mid(sCounter, i, 1) & ".gif>" '如有图片，可用此语句调用 
    Next 
    Digital = MyStr 
  End Function 

  Function count_show  '读取计数函数 
  set fs=Server.CreateObject("Scripting.FileSystemObject") 
  filename=server.MapPath("count.txt") 
    set txt=fs.opentextfile(filename,1,true) 
  total=txt.readline 
  total=cint(total) 
  'response.write total 
  response.write Digital (total) '调用显示函数 
  set fs=nothing 
  End Function 

%>



　　然后新建一个count.txt（必须和count.asp同一级目录），打开这个文件后在里面输入任意数字（别太狠啦），然后在需要显示计数器的那个页面顶部加入
代码如下:
<!--#include file="count.asp"--> 


最后在需要显示计数器的地方加上代码
代码如下:
<%=count_show%> 


就OK了。

内容总结

以上是互联网集市为您收集整理的asp最简单最实用的计数器全部内容，希望文章能够帮你解决asp最简单最实用的计数器所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---