Question

ASP读后台图片数据库出现的问题

实现效果：每页显示6个图片，分两行显示
出现问题：1.每页控制图片数和读取数据库里总页面的代码没起作用
2.点“下一页”能一直点下去没有尽头

主要文件代码如下：
<!--#include file="top.asp" -->
<!--#include file="setup.asp" -->
<%
exec="select * from pro_list"
set rs=server.CreateObject("dodb.recordset")
rs.open exec,cn,1,1
%>
<%
rs.PageSize=6
zongye=rs.PageCount
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page
%>
<table width="1005" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="259" height="69"></img>
<div align="center"><img src="img/cpzs.jpg" width="207" height="42" /></div></td>
<td width="17" rowspan="3" background="img/z.gif"> </td>
<td width="729"><img src="img/cpzsy.gif" width="728" height="34" /></td>
</tr>

<tr>
<td>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from pro_list"
rs.open sql,conn,1,1
if rs.eof then
response.Write("企业简介添加中。")
else
while not rs.eof
%><table width="236" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="46" height="20"><div align="center"><img src="img/z3.gif" width="15" height="13" /></div>
</img></td>
<td width="190"><span class="STYLE7"><a href="cp01.asp?id=<%=rs("id")%>"><%=rs("pro_name")%></a></span></td>
</tr>
<tr>
<td height="13" colspan="2"><div align="center"><img src="img/z2.gif" width="207" height="4" /></div></td>
</tr>
</table>
<%
rs.movenext
wend
end if
%></td>
<td rowspan="2">

<table width="206" border="0" cols="4">
<tr>
<% dim rs,j
j=1
set rs = Server.CreateObject("ADODB.recordset")
sqltex="select * from pro_list"

rs.Open sqltex,conn,1,1
do while not rs.eof or rs.bof
%>
<td width="200"><p align="center"><a href="cp01.asp?id=<%=rs("id")%>" target="_blank"><img src="upfile/<%=rs("pro_img")%>" border="0" style="width:150px; height:110px; overflow:hidden;"/></a></p>
<div align="center"><%=rs("pro_name")%>
</p>
</div></td>
<%if j mod 3=0 then
response.write "</tr><tr>"
end if
j=j+1
rs.movenext
loop
set rs= nothing
set conn=nothing
%>
</tr>
</table>
<p align="center">
<% if page=1 and not page=zongye Then %>
第一页|上一页
<a href="products.asp?page=<%=page+1%>">下一页</a>|
<a href="products.asp?page=<%=zongye%>">最后页</a>
<% elseif page<>1 and not page=zongye then%>
<a href="products.asp?page=1">第一页</a>|
<a href="products.asp?page=<%=page-1%>">上一页</a>|
<a href="products.asp?page=<%=page+1%>">下一页</a>|
<a href="products.asp?page=<%=zongye%>">最后页</a>|
<% elseif page=zongye then%>
<a href="products.asp?page=1">第一页</a>|
<a href="products.asp?page=<%page-1%>">上一页</a>|
下一页|
最后页
<% End if %>

Answer 1

1.每页控制图片数和读取数据库里总页面的代码没起作用
2.点“下一页”能一直点下去没有尽头

解决办法(1)
do while not rs.eof or rs.bof
改为 do while j<=rs.pagesize and not(rs.eof or rs.bof)

(2)
rs.PageSize=6
zongye=rs.PageCount
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page

加上判断
if page>zongye then page=zongye '若当前页超出总页责当前页等于总页
建议再加上一个判断
if isnumeric(page)=false then page=1 '页数参数若不是数字型的责转到第一页