图片内容页修改为显示所有图片并加入分页功能(2)_动易Cms教程

dim PicID,PicUrl,PicNum,n,sql,Rs,PicUrl_1,PicUrl_2 ’要害内容从这里开始
PicID=request("PicID") ’获取页面请求的图片ID
sql="select * from PE_Photo where PhotoID = " &PicID ’寻找数据库中相匹配的数据
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
PicUrl=split(rs("PhotoUrl"),"$$$") ’将从表中得到的PhotoUrl用$$$分隔开，存到PicUrl数组中，形如array(图片
地址1|a.jpg,图片地址2|b,jpg,图片地址3|c,jpg)
PicNum=UBound(PicUrl) ’返回PicUrl数组的最大可用下标( 1即得到图片张数)
’response.write "第" & PicID & "一共有" & PicNum 1 & "张图片〈br〉"

for n=0 to PicNum ’从第一个图片开始，循环显示
PicUrl_1=split(trim(PicUrl(n)),"|") ’再次将 图片地址2|b,jpg 拆分为两部分，得到图片的地址
if UBound(PicUrl_1)=0 then ’判定地址前面有没有"图片地址1"等说明，没有则加上“图片”字样
PicUrl_2=Array("图片",PicUrl_1(0))
else
PicUrl_2 =PicUrl_1
end if ’ 将整理后的第N张图片的说明及地址存到数组PicUrl_2中

if left(PicUrl_2(1),7) = "http://" then ’简单判定站内地址还是站外地址
else
PicUrl_2(1) = "UploadPhotos/" & PicUrl_2(1) ’这里请改为你photo下面上传文件的文件夹
end if
response.write "〈table
response.write "〈tr〉〈td
response.write "〈td align=center〉〈img src=’" & PicUrl_2(1) & "’ class=’pic’ border=0 onscroll=’bbimg(this)’
onload=’resizepic(this)’〉" ’显示图片的html代码，可自己添加超级链接等
response.write "〈br〉〈br〉第 〈font color=’red’〉" & n 1 & "〈/font〉 张图片：" & PicUrl_2(0) & "〈/td〉"
’：图片及说明
response.write "〈td
response.write "〈tr〉〈td
next

Rs.close
set Rs = nothing
%〉