注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

今天做了一个ASP计数器,放出源码吧,挺简单的!  

2011-06-04 20:33:48|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
'前天在johnny的专栏看到一个计数器,忽然想起以前我也做过~~今天就翻出来改了一下嵌入到我的BLOG中了~~放在别人的服务器上~~放出源码大家有用得着的看看吧~~如果不喜欢用图片的就改成文字得了!图片文件大家可以自己找点好看的放上!
'************************调用*********************
'* script language="javascript"  alt="今天做了一个ASP计数器,放出源码吧,挺简单的!" src=http://www.3pcode.com/article/article_90/xxx.asp?max=8/script
target=_blank>http://www.3pcode.com/article/article_90/xxx.asp?max=8/script">http://www.3pcode.com/article/article_90/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 I
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)
  评论这张
 
阅读(64)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017