• 软件测试技术
  • 软件测试博客
  • 软件测试视频
  • 开源软件测试技术
  • 软件测试论坛
  • 软件测试沙龙
  • 软件测试资料下载
  • 软件测试杂志
  • 软件测试人才招聘
    暂时没有公告

字号: | 推荐给好友 上一篇 | 下一篇

用ASP编写图片计数器

发布: 2007-7-14 19:37 | 作者: 佚名    | 来源: 网络转载     | 查看: 11次 | 进入软件测试论坛讨论

领测软件测试网

  在Inte.net上,用ASP编写的计数器到处都是,本人觉得再在这里谈ASP编写计数器已没有多大意义。后来想想还是有必要谈一下,因为这不仅仅只是在谈计数器的编写,而是在向大家介绍ASP的知识与应用技巧。

  程序原代码如下:
  $#@60;%countlong=8
′countlong定义计数器显示位数
  On Error Resume Next
′ 忽略所有的错误
  count=server.mappath(″count.txt″)
  set cou = server.createobject(″scripting.filesystemobject″)
  set out=cou.opentextfile(count,1,false,false)
  counter=out.readline
  out.close
  ′以上代码是打开文件count.txt并读取一行,读出目前计数器的值
  if session(″in″)$#@60;$#@62;″in″ then
  ′判断用户是否已进入主页,以确保他按刷新或再次来到此页面时计数器不会再加1
  session(″in″)=″in″
  set out = cou.createtextfile(count,true,false)
  application.lock
  counter=counter+1
′计数器加1
  out.writeline(counter)
  application.unlock
  out.close
  ′以上代码是建立一个新的文件count.txt并写入一行,写入加1后计数器的值
  end if
  co=cstr(counter)
′cstr函数用来把数字型变量转换成字符型
  for i = 1 to countlong-len(co)
  response.write ″″
  next
  ′上面的循环语句是完成计数器前面的0图片的添加
  ′len(co)函数是得到变量co的长度,countlong-len(co)就得到前面0图片的个数
  for i= 1 to len(co)
  response.write ″″
  next
  ′mid(co,i,1)函数是用来从变量co的第i位开始读一个字符%$#@62;
  这个计数器做得比较成功的地方是使用session防止用户对计数器的多次刷新; 使用了文本文件记录计数器的值,虽然代码写起来比较长,但比起用application对象要好得多,因为当服务器reboot或改动global.asa时,application对象的值就会被清空; 还有就是用图片代替了字符,看起来更美观大方!

  计数器的图片你可以自己设计一下,0用文件名0.gif,1用1.gif,以此类推。


延伸阅读

文章来源于领测软件测试网 https://www.ltesting.net/


关于领测软件测试网 | 领测软件测试网合作伙伴 | 广告服务 | 投稿指南 | 联系我们 | 网站地图 | 友情链接
版权所有(C) 2003-2010 TestAge(领测软件测试网)|领测国际科技(北京)有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备10010545号-5
技术支持和业务联系:info@testage.com.cn 电话:010-51297073

软件测试 | 领测国际ISTQBISTQB官网TMMiTMMi认证国际软件测试工程师认证领测软件测试网