实现:刷新一次换一张图片
时间：2007-07-11 来源：心若在
第一种方法：
引用图片地址为：http://你的域名/文件名.asp?*jpg
<%
Randomize
picz=int(Rnd*6)
Select case picz
case 0
response.redirect("1.jpg")
case 1
response.redirect("2.jpg")
case 2
response.redirect("3.jpg")
case 3
response.redirect("4.jpg")
case 4
response.redirect("5.jpg")
case 5
response.redirect("6.jpg")
End Select
%>
第二种方法： 第三种 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%
'刷新一次换一张图片代码
'代码设计 BY ICEWORLD
'说明：
'1：可以不加参数实现刷新一次换一次图片，也可以用index.asp?img=图片名字来显示指定的网页
'2：同上面的代码，加入了错误处理
'由于本人学习ASP时间不长，有错误的话，还希望高手不吝赐教
imagepath=server.MapPath("../images")
'定义图片的文件夹 num=0
'num变量表示图片的个数
total=5
'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> <body>
<%
if img="" then
%>
该文件夹内部共有文件<%=total%>个，其中图片有<%=num%>个，下面是随机产生的图片:
<%
else
%>
下面是你所提交的图片： <%
end if
%><br>
<p align="center"> <img name="imagee" src="<%=imgpath%>" width="355" height="308" alt="">
</p>
</body>
</html>
<%
set fileall=nothing
set fso=nothing
%>
<%
Randomize
picz=int(Rnd*6)
Select case picz
case 0
response.redirect("1.jpg")
case 1
response.redirect("2.jpg")
case 2
response.redirect("3.jpg")
case 3
response.redirect("4.jpg")
case 4
response.redirect("5.jpg")
case 5
response.redirect("6.jpg")
End Select
%>
第二种方法： 第三种 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%
'刷新一次换一张图片代码
'代码设计 BY ICEWORLD
'说明：
'1：可以不加参数实现刷新一次换一次图片，也可以用index.asp?img=图片名字来显示指定的网页
'2：同上面的代码，加入了错误处理
'由于本人学习ASP时间不长，有错误的话，还希望高手不吝赐教
imagepath=server.MapPath("../images")
'定义图片的文件夹 num=0
'num变量表示图片的个数
total=5
'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> <body>
<%
if img="" then
%>
该文件夹内部共有文件<%=total%>个，其中图片有<%=num%>个，下面是随机产生的图片:
<%
else
%>
下面是你所提交的图片： <%
end if
%><br>
<p align="center"> <img name="imagee" src="<%=imgpath%>" width="355" height="308" alt="">
</p>
</body>
</html>
<%
set fileall=nothing
set fso=nothing
%>
相关阅读 更多 +
