今天做了一個ASP計數器，放出源碼吧，挺簡單的！

計數器 '前天在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=http://www.163design.net/a/y/count/0.gif' border=0>" '//計數器圖片檔案
<%
Next
j=0
For i=(max-len(s)) to max-1
j=j+1
%>
javastr=javastr+"<img src='http://www.163design.net/a/y/count/<%=mid(s,j,1)%>.gif' border=0>"
<%
Next
Set fp=Nothing
Set fso=Nothing
javastr=javastr+"</div>"
%>
document.write(javastr)