 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
访问者每次进来都看到是同一幅图片，是不是显得有些单凋？ 让访问者每来一次看到不同的图片？用计数器就很简朴地实现了！ 源程序如下： <% \\\'----------------------------------------------------------计数程序开始 dim fileobject,countfile,out,counter,picno,pp Set FileObject=Server.CreateObject("Scripting.FileSystemObject") CountFile=Server.MapPath("count.txt") Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE) counter=Out.ReadLine Out.Close SET FileObject=Server.CreateObject("Scripting.FileSystemObject") Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE) Application.lock counter= counter + 1 \\\'----------------------------------------------------------计数程序结束 if counter>99 then counter=0 \\\'不能超过某个值，这个地 方你注重了，不能跟显示的数字变量相同：（ if counter<10 then \\\'我现在只有10张图片，10以下是 \\\'多 少就显示多少 picno=counter else picno=(counter mod 10) \\\'大于10只取个位，因为我一共只有10 张 图片：（ end if Out.WriteLine(counter) \\\'把当前的计数值存在counter.txt里面 Application.unlock Out.Close %> 本例所用的存计数值的方式是用的文本文件进行存取 显示图片 <%response.write("<img src="&"images/face/face"&picno&".jpg width=229 height=160>")%> 返回类别: 教程 上一教程: 使用ASP脚本技术 下一教程: 用ASP统计用户在站点的停留时间(1) 您可以阅读与"计数器的另一用法：自动切换首页图片"相关的教程: · 用ASP编写计数器的优化方式 · 用ASP编写计数器的方式 · 网页计数器的程序 · 用ASP编写图片计数器 · REPLACE()函数的另类用法 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
