计数器的另一用法：自动切换首页图片

新客网 XKER.COM 2004-08-11 来源： 收藏本文

访问者每次进来都看到是同一幅图片，是不是显得有些单凋？
让访问者每来一次看到不同的图片？用计数器就很简单地实现了！
源程序如下：

<%
'----------------------------------------------------------计数程序开始
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+ACCESS数据库中文乱码问题解决
• ·编程实例 字母+数字验证码程序
• ·ASP连接数据库错误解决办法新法
• ·初学:ASP内建对象Response
• ·ASP网站Server object error的解决办法
• ·ASP技巧：让Len,Left,Right函数识别中文
• ·把网页中的电话号码生成图片的ASP程序
• ·ASP如何实现IE地址栏参数的判断
• ·细化解析：ASP连接11种数据库语法集锦
• ·ASP实现网页打开任何类型文件都保存
• ·ASP代码直接增加、删除ACCESS表和字段
• ·ASP：判断访问是否来自搜索引擎的函数
• ·ASP技巧：禁用页面缓存的五种方法
• ·学习ASP关于与变量子类型相关的函数
• ·ASP开发中的(VBScript)类基础学习
• ·ASP访问Excel文件