那位高手帮我修改一下ASP代码 分页中的问题,急!急!急!

来源:百度知道 编辑:UC知道 时间:2024/06/07 04:14:01
我要每行4个图片,每页4行,再分页。但问题是,我修改了(每页记录条数)中的数值4,就会出现每行4个图片,但到第二行第5个图片时会分页了,还没到第四行16张图片就分页了。觉得少了什么代码和哪里没修改对,请高手帮我看看以下代码。
set strs=server.createobject("adodb.recordset")
stsql="select * from pic order by id desc"
strs.open stsql, conn, 1, 1
if not strs.eof then
strs.PageSize =4 '每页记录条数
result_num=strs.RecordCount '记录总数
maxpage=strs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
strs.AbsolutePage=Page
else
result_num=0
maxpage=0
page=0
end if
if not strs.eof then
for i=1 to strs.PageSize
%>
<table width=100% border=0 cellspacing=0 cellpadding=0>
<tr>
<td width=200 height=136><div align="center">

只有5分 真可怜

<table width=100% border=0 cellspacing=0 cellpadding=0>
<tr>
<%
set strs=server.createobject("adodb.recordset")
stsql="select * from pic order by id desc"
strs.open stsql, conn, 1, 1
if not strs.eof then
strs.PageSize =16 '每页记录条数
result_num=strs.RecordCount '记录总数
maxpage=strs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
strs.AbsolutePage=Page
else
result_num=0
maxpage=0
page=0
end if
if not strs.eof then
j=1
for i=1 to strs.PageSize
%>

<td width=200 height=136><div align="center">
<%if not strs.eof then %>