刷新一次换一张图片代码

　2008-08-31 12:54:16　来源：WEB开发网　　　

核心提示：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%@response.Buffer=false%> <% ’刷新一次换一张图片代码 ’代码设计 BY ICEWORLD ’说明： ’1：可以不加参数实现刷新一次换一次图

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%@response.Buffer=false%>
<%
’刷新一次换一张图片代码
’代码设计 BY ICEWORLD
’说明：
’1：可以不加参数实现刷新一次换一次图片，也可以用index.asp?img=图片名字来显示指定的网页
’2：同上面的代码，加入了错误处理
’由于本人学习ASP时间不长，有错误的话，还希望高手不吝赐教
imagepath=server.MapPath("image")
’定义图片的文件夹

num=0
’num变量表示图片的个数
total=0
’total变量表示文件夹内部所有文件的个数
set fso=server.CreateObject("scripting.filesystemobject")
’创建fso对象
if not fso.folderexists(imagepath) then
response.Write("指定的图片文件夹不存在！")
response.End()
end if
’判断文件夹是否存在
img=request.QueryString("img")
if img<>"" then
imgpath=imagepath& "/" &img
if not fso.fileexists(imgpath) then
response.Write("对不起，您指定的图片没有找到！")
response.End()
end if
’如果有img变量，则判断该图片是否存在
else
set fileall=fso.getfolder(imagepath).files
for each d in fileall
if right(d.name,3)="bmp" or right(d.name,3)="gif" or right(d.name,3)="jpg" or right(d.name,3)="png" then
num=num+1
end if
total=total+1
next
’搜集一下图片和文件的总个数，得到变量num和total的值,可自己添加知道的图片后缀
if total=0 then
response.Write("文件夹存在，但是没有任何文件！")
response.End()
end if
’当文件夹为空的时候
if num=0 then
response.Write("虽然文件夹里面有文件，但是图片文件的个数为0！")
response.End()
end if
’当文件夹内部没有图片的时候
randomize
a=int(num*rnd+rnd)
for each d in fileall
if right(d.name,3)="bmp" or right(d.name,3)="gif" or right(d.name,3)="jpg" or right(d.name,3)="png" then
if rnnd=a then
imgpath=d.path
exit for
else
rnnd=rnnd+1
end if
end if
next
end if
’随即产生图片
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>刷新一次换一次图片网页</title>
</head>