|
|
今天做了一个ASP计数器,放出源码吧,挺简单的! |
|
|
作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站 |
'前天在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)
|
|
相关文章:相关软件: |
|