ASP图片调用 高手帮忙改下,改成4列多行的 谢谢

来源:百度知道 编辑:UC知道 时间:2024/05/11 14:59:42
<%
sql="select * from zhuanjia"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write("<tr><td colspan='3' bgcolor='#ffffff' align='center'>  <font color='#ff0000'>暂时没有这样的记录!</td></tr>")
else
Rs.pagesize = 5 '每页显示的记录数
sumPage = Rs.pageCount '总页数
page = request("pageno") '1=<page and page=<总页数

if page="" then page=1'当前页不能空

if cint(page) > cint(sumPage) then '当前页不能大于总页数
call gotowhere("对不起,这已经是最后一页了","downLoad.asp")
response.end
end if
if cint(page)< 1 then '当前页不能大于总页数
call gotowhere("对不起,这已经是第1页了","downLoad.asp")
response.end
end if
Rs.absolutepage = page '要显示第几页 当前页<

<table><tr>
<%do while not rs.eof and i< Rs.pagesize '控制显示每页显示的个数
%> <td>
"你要循环的图片"
<%
if(i mod=4) 4>=0 then%>
</tr>
<tr>
<%
end if
i=i+1
rs.movenext
loop
end if
%></td></tr></table>