刚才找一个计数器，由于网站的访问量太少，放个计数器在那里确实有点寒酸了，于是呼只能搞一个简单点的，可以访问一次就记录一次的来撑撑门面先。本来以前我有一个，但是郁闷的是居然找不到了，在网上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=改成你自己的图片存放的相对目录.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空间奸商查询系统

看到很多朋友无缘无故的被骗，特发布此查询系统，以免再次上当！ 使用方法非常简单： 直接输入对方的域名或者网站名称，支持中英文！点查询即可 复制代码 代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% On>>>详细阅读

本文标题：asp最简单最实用的计数器

地址：http://www.17bianji.com/kaifa2/ASP/32407.html

 1/2    1