广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

作者： 整理

‘’前天在johnny的专栏看到一个计数器，忽然想起以前我也做过~~今天就翻出来改了一下嵌入到我的BLOG中了~~放在别人的服务器上~~放出源码大家有用得着的看看吧~~如果不喜欢用图片的就改成文字得了！图片文件大家可以自己找点好看的放上！

‘’************************调用*********************
‘’* <script language="javascript" src="xxx.asp?max=8"></script>
‘’*************************************************

javastr="<div algin=‘’center‘’>"
<%
max=Request("max") ‘’//计数器位数
If Request.cookies("count")="" Then ‘’//防刷
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fp=fso.OpenTextFile(Server.MapPath("count.dat")) ‘’//计数器统计文件
countn=fp.Readline
countn=countn+1
Fp.close
Set fp=Nothing
set fp=fso.createtextfile(server.mappath("count.dat"))
fp.Writeline countn
set fp=nothing
set fso=nothing
Response.Cookies("count")=countn
End If
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fp=fso.OpenTextFile(Server.MapPath("count.dat"))
s=fp.Readline
For n=(max-len(s)) to 1 step -1
%>
javastr=javastr+"<img src=count/0.gif‘’ border=0>" ‘’//计数器图片文件
<%
Next
j=0
For i=(max-len(s)) to max-1
j=j+1
%>
javastr=javastr+"<img src=‘’count/<%=mid(s,j,1)%>.gif‘’ border=0>"
<%
Next
Set fp=Nothing
Set fso=Nothing
javastr=javastr+"</div>"
%>
document.write(javastr)