贡献一个图片显示+分页代码,研究一下吧:
<%curpage=request.QueryString("curpage")
'获取当前页面数字,这个数字是点击上一页或下一页时,地址栏里显示的页数;
rs.pagesize=num
’num是个变量,表示每页显示几个图片,你可以设成9;
page=rs.pagesize
’获取总页数;
if curpage="" then curpage=1
’如果当前页数是空,则当前页数为1;
rs.absolutepage=curpage
'absolutpage也是内置属性,意思是将curpage的变量值指定为当前页.
for i=0 to page-1
’开始循环
if rs.eof then
’如果记录为空,停止循环;
exit for
end if
if i mod 3=0 and i<>0 then
’如果一列图片数量达到3,便换行;
response.Write "</tr><tr><td> </td></tr><tr>"
end if%>
<table ...><tr><td ...>图片路径</td></tr></table> ’开始输出图片
'以下是分页:
<%if curpage=1 then
response.Write "首页"
else
response.Write "<a href='?curpage=1'>首页</a>"
end if
if curpage=1 then
response.Write " 上一页"
else
response.Write " <a href='?curpage="&curpage-1&"'>上一页</a>"
end if
if rs.pagecount<curpage+1 then
response.Write " 下一页"
else
response.Write " <a href='?curpage="&curpage+1&"'>下一页</a>"
end if
if rs.pagecount<curpage+1 then
response.Write " 尾页 "
else
response.Write " <a href='?curpage="&rs.pagecount&"'>尾页</a> "
end if
%>
[[it] 本帖最后由 nicechlk 于 2008-10-26 18:32 编辑 [/it]]