刚才找一个计数器，由于网站的访问量太少，放个计数器在那里确实有点寒酸了，于是呼只能搞一个简单点的，可以访问一次就记录一次的来撑撑门面先。本来以前我有一个，但是郁闷的是居然找不到了，在网上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=改成你自己的图片存放的相对目录.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同一级目录），打开这个文件后在里面输入任意数字（别太狠啦），然后在需要显示计数器的那个页面顶部加入

复制代码 代码如下:

<>

最后在需要显示计数器的地方加上代码

复制代码 代码如下:

<%=count_show%>

就OK了。