asp图片浏览问题

点击缩力图后在一个新的页面打开大图，怎样在大图页面浏览上一张图片或一张图片？比如，点击“上一张”按钮后浏览一张，点击“下一张”浏览下一张。

<%
'定义请求参数,上下张导航
dim viewid,picud
viewid=trim(request("viewid"))

Set rs_pic = Server.CreateObject("ADODB.RecordSet")
rs_pic.Open "select top 1 * from [Pic] where id<"&Viewid&" order by id desc",conn,1,1
if rs_pic.recordcount<>0 then
picud="上一张：<a href=?Viewid="&rs_pic("id")&">"&rs_pic("pic")&"</a><br>"
else
picud="上一张：已到顶啦<br>"
end if

Set rs_pic2 = Server.CreateObject("ADODB.RecordSet")
rs_pic2.Open "select top 1 * from [Pic] where id>"&Viewid&" order by id asc",conn,1,1
if rs_pic2.recordcount<>0 then
picud=picud&"下一张：<a href=?Viewid="&rs_pic2("id")&">"&rs_pic2("pic")&"</a>"
else
picud=picud&"下一张：已到底啦"
end if

picud=picud

rs_pic.close
set rs_pic=nothing
rs_pic2.close
set rs_pic2=nothing

'写出上下张导航
Response.write picud
%>

要根据你的表,字段进行相应修改哦!

直接读取数据库里id大于和小于浏览图片的ID就可以了