<table width="705" height="2031" border="0" align="right" cellspacing="0">
<tr>
<td height="28" bgcolor="#192731"><span class="STYLE6">&nbsp;&nbsp;作品赏析</span></td>
</tr>
<tr>
<td height="1836" valign="top">
<%sql="select s_id,s_s,s_name,s_title,s_img from small"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
if not(rs.eof and rs.bof) then
rs.pagesize=20
pagenum=request.QueryString("pagenum")
if pagenum="" then
rs.absolutepage=1
pagenum=1
else
rs.absolutepage=pagenum
end if%>
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<% j=0
do while not rs.eof and i<rs.pagesize
j=j+1
%>
<td width="120"><img src="<%=rs("s_img")%>" width="100" height="100" /></td>
<%
if j mod 4=0 then
response.Write("</tr><tr>")
end if
rs.movenext
loop
else
response.write("<td height='120'>暂无图片显示</td>")
end if%>
</tr>
</table></td>
</tr>
<tr>
<td height="15" valign="top">&nbsp;&nbsp;&nbsp;&nbsp;共<%=rs.pagecount%>页&nbsp;&nbsp;&nbsp;&nbsp;
<a href="?pagenum=1">首页</a>&nbsp;&nbsp;
<% PPage=PageNum-1
If PPage>0 then
strPage="<a href=?PageNum="&PPage&">前页</a>&nbsp;&nbsp;"
Response.Write(strPage)
end if %>
当前第<span class="STYLE4">
<%=pagenum%>
</span>页
<% NPage=PageNum+1
If NPage<=rs.PageCount then
strPage="<a href=?PageNum="&NPage&">后页</a>"
Response.Write(strPage)
end if %>
&nbsp;&nbsp;<a href="?pagenum=<%=rs.pagecount%>">未页</a></td>
</tr></table></td></tr>
</table>
<% rs.close
set rs=nothing
conn.close
set conn=nothing%>

出来的效果如下图

问题是这样的。
rs.pagesize=20
输出的却不止二十个
高手。帮帮吧。。急啊

你好象少了个i=i+1

<% j=0
do while not rs.eof and i<rs.pagesize
j=j+1
%>
<td width="120"><img src="<%=rs("s_img")%>" width="100" height="100" /></td>
<%
if j mod 4=0 then
response.Write("</tr><tr>")
end if
这个不就是吗。。有啊

i<rs.pagesize
j=j+1

你看清楚

[此贴子已经被作者于2006-12-21 10:15:19编辑过]

高手。我菜鸟啊。
写详细些。谢谢了。。

昨晚去HXFLY家让她帮搞。
没给我弄。。唉。

高手。谢谢了。我搞出来了。。
谢谢高手。。嘿嘿

你是她朋友?

呵呵。。是
是同学

那应该都是老乡嘛