asp最简单最实用的计数器

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

复制代码 代码如下:
<%
optionexplicit
dimfs,filename,txt,content,total,counter_lenth
counter_lenth=1设置显示数据的最小长度，如果小于实际长度则以实际长度为准
setfs=Server.CreateObject(Scripting.FileSystemObject)
filename=server.MapPath(count.txt)
ifnotfs.FileExists(filename)then
fs.CreateTextFilefilename,True,True
settxt=fs.OpenTextFile(filename,2,true)
txt.write0如不存在保存数据的文件则创建新文件并写入数据0
setfs=nothing
endif

settxt=fs.OpenTextFile(filename)
Iftxt.AtEndOfStreamThen
Application(Counter)=0如果文件中没有数据，则初始化Application(Counter)的值（为了容错）
else
Application(Counter)=txt.readline
endif

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


Functionsave_保存计数函数
setfs=Server.CreateObject(Scripting.FileSystemObject)
filename=server.MapPath(count.txt)
content=Application(Counter)
settxt=fs.OpenTextFile(filename,2,true)
txt.writecontent
setfs=nothing
EndFunction

save_调用保存函数保存数据

FunctionDigital(counter)显示数据函数
Dimi,MyStr,sCounter
sCounter=CStr(counter)
Fori=1Tocounter_lenth-Len(sCounter)
MyStr=MyStr&0
MyStr=MyStr&<IMGSRC=改成你自己的图片存放的相对目录\0.gif>如有图片，可用此语句调用
Next
Fori=1ToLen(sCounter)
MyStr=MyStr&Mid(sCounter,i,1)
MyStr=MyStr&<IMGSRC=改成你自己的图片存放的相对目录\&Mid(sCounter,i,1)&.gif>如有图片，可用此语句调用
Next
Digital=MyStr
EndFunction

Functioncount_show读取计数函数
setfs=Server.CreateObject(Scripting.FileSystemObject)
filename=server.MapPath(count.txt)
settxt=fs.opentextfile(filename,1,true)
total=txt.readline
total=cint(total)
response.writetotal
response.writeDigital(total)调用显示函数
setfs=nothing
EndFunction

%>



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


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


就OK了。