 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
在Internet上，用ASP编写的计数器到处都是，本人觉得再在这里谈ASP编写计数器已没有多大意义。后来想想还是有必要谈一下，因为这不仅仅只是在谈计数器的编写，而是在向大家介绍ASP的知识与应用技巧。 程序原代码如下： <%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,以此类推 返回类别: 教程 上一教程: ASP限制IP访问 下一教程: ASP+SMTP完成邮件群发功能 您可以阅读与"用ASP编写图片计数器"相关的教程: · 用ASP编写计数器的方式 · 编写“公平”的ASP图形计数器 · 用ASP编写计数器的优化方式 · 用ASP编写计数器 · ASP建立WEB页面计数器 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
