copyright©2006-2008 xueol.com 鄂icp备06022161号
一、在图片频道根目录加一个文件showallpic.asp
文件内容如下：
<!--#include file="../conn.asp"-->
<link href="../skin/defaultskin.css" rel=stylesheet
type=text/css>
<script language="javascript" type="text/javascript">
//改变图片大小
function resizepic(thispic)
{
if(thispic.height>650||thispic.width>650)thispic.style.zoom=650/(thispic.height>thispic.width?thispic.height:thispic.width);
}
//无级缩放图片大小
function bbimg(o)
{
var zoom=parseint(o.style.zoom, 10)||100;
zoom+=event.wheeldelta/12;
if (zoom>0) o.style.zoom=zoom+'%';
return false;
}
//双击鼠标滚动屏幕的代码
var currentpos,timer;
function initialize()
{
timer=setinterval ("scrollwindow ()",30);
}
function sc()
{
clearinterval(timer);
}
function scrollwindow()
{
currentpos=document.body.scrolltop;
window.scroll(0,++currentpos);
if (currentpos !=document.body.scrolltop)
sc();
}
document.onmousedown=sc
document.ondblclick=initialize
</script>
<%
dim picid,picurl,picnum,n,sql,rs,picurl_1,picurl_2
picid=request("picid") '得到请求的图片id
if picid = "" then
picid=1
end if
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数组中
picnum=ubound(picurl) '返回picurl数组的最大可用下标(+1即得到图片张数)
dim page,pagesize,pagecount,x
pagesize=1 '自定义每页显示图片的数量
pagecount= int ((picnum + 1) / pagesize) '总图片数/每页图片数再取整（无四舍五入）
if (picnum+1) mod pagesize = 0 then
else
pagecount=pagecount+1 '判断上述除式有无余数，有则pagecount+1得到总页数
end if
page=request("page") '得到请求的页面数
if (page = "") or (isnumeric(page)=0) or (page<1) then '判断请求页面是否为空或非数字
page=1
end if
if (pagecount - page) < 0 then '如果请求的页数>总页数，则令请求页数=第一页
page = 1
end if
n=(page - 1 ) * pagesize-1 '得到第page页的起始图片序号，即从第几张图片开始，因数组下标从0开始故-1
'''''''''''''''分页连接部分开始
response.write "<table width=100% align=center border=0 bgcolor=#ffffff cellpadding='0' cellspacing='0'><tr><td align=center>"
response.write "共有图片"&picnum+1&"张，共"&pagecount&"页 "
response.write "<a href='showallpic.asp?picid="&picid&"&page="&page-1&"'>上一页</a> "
response.write "<a href='showallpic.asp?picid="&picid&"&page="&page+1&"'>下一页</a> "
response.write "当前第 <font color='red'>" & n+2 & "</font> 张图片"
response.write " 到第<select onchange=javascript:window.location=(this.options[this.selectedindex].value); name=gotopage style=color:#000000;font-size:12px>"
for x=1 to pagecount
if (x - page)=0 then
response.write "<option value='showallpic.asp?picid="&picid&"&page="&x&"' selected>"&x&"</option>"
else
response.write "<option value='showallpic.asp?picid="&picid&"&page="&x&"'>"&x&"</option>"
end if
next
response.write "</select>"
response.write "页</td></tr></table><br>"
''''''''''''''分页连接部分结束
do '开始循环显示请求页的图片
n =n + 1
if n > pagesize*page-1 then '如果n为下一页的图片序号，则退出循环
exit do
end if
if n > picnum then '如果n比图片总张数还大，则退出循环
exit do
end if
picurl_1=split(trim(picurl(n)),"|")
if ubound(picurl_1)=0 then '判断地址前面有没有"图片地址1"等说明
picurl_2=array("图片",picurl_1(0))
else
picurl_2 =picurl_1
end if
if left(picurl_2(1),7) = "http://" then
else
picurl_2(1) = "uploadphotos/" & picurl_2(1)
end if
response.write "<table width=20 align=center border=0 bgcolor=#ffffff cellpadding='0' cellspacing='0'>"
response.write "<tr><td width=10><img src='../img/bg_0ltop.gif' width='10' height='10'></td>" '左上图片
response.write "<td height='10' background='../img/bg_01.gif'></td>" '上背景
response.write "<td width=10><img src='../img/bg_0rtop.gif' width='10' height='10'></tr>" '右上图片
response.write "<tr><td width='10' background='../img/bg_03.gif'></td>" '左背景
response.write "<td align=center><a href='allphoto.htm?url="&picurl_2(1)&"' target='_blank'><img src='" & picurl_2(1) & "' alt='点击查看清淅原图' class='pic' border=0 onscroll='bbimg(this)' onload='resizepic(this)'></a>"
response.write "<br><br>第 <font color='red'>" & n+1 & "</font> 张图片：" & picurl_2(0) & "</td>"
'：图片及说明
response.write "<td width='10' background='../img/bg_04.gif'></td></tr>" '右背景
response.write "<tr><td width=10><img src='../img/bg_0lbottom.gif' width='10' height='10'></td>" '左下图片
response.write "<td height='10' background='../img/bg_02.gif'></td>" '下背景
response.write "<td width=10><img src='../img/bg_0rbottom.gif' width='10' height='10'></tr>" '右下图片
response.write "</table><br> "
loop 'do loop 循环
'''''''''''''''分页连接部分开始
response.write "<table width=100% align=center border=0 bgcolor=#ffffff cellpadding='0' cellspacing='0'><tr><td align=center>"
response.write "共有图片"&picnum+1&"张，共"&pagecount&"页 "
response.write "<a href='showallpic.asp?picid="&picid&"&page="&page-1&"'>上一页</a> "
response.write "<a href='showallpic.asp?picid="&picid&"&page="&page+1&"'>下一页</a> "
response.write "当前第 <font color='red'>" & n+0 & "</font> 张图片"
response.write " 到第<select onchange=javascript:window.location=(this.options[this.selectedindex].value); name=gotopage style=color:#000000;font-size:12px>"
for x=1 to pagecount
if (x - page)=0 then
response.write "<option value='showallpic.asp?picid="&picid&"&page="&x&"' selected>"&x&"</option>"
else
response.write "<option value='showallpic.asp?picid="&picid&"&page="&x&"'>"&x&"</option>"
end if
next
response.write "</select>"
response.write "页</td></tr></table>"
''''''''''''''分页连接部分结束
rs.close
set rs = nothing
%>
二、打开图片频道内容页模版，用以下代码（红色部分）替换{$viewphoto}标签
<!-- <iframe width='100%' name=web height='100%' scrolling='no' frameborder='0' src='{$installdir}photo/showallpic.asp?picid={$photoid}' onload="this.height=web.document.body.scrollheight+20" ></iframe> -->
三、生成所有html文件，所有设置完毕。
附件文件（包含已修正的showallpic.asp文件和图片）：点击下载