|
蓝森林 http://www.lslnet.com 2006年8月25日 8:28
 [asp]如何实现这样经典的排列显示（附图）,请高手指点啊!急
[img]http://www.q-0-p.com/help.jpg[/img]
怎样实现以上的排列方式，以上是我做的网页的截图，但出现很致命的问题，就是如果最后一页如果一行凑不到三个数据，就会提示BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
以下是我的代码：请高手帮我指点一下，谢啦
<%
dim strSql,rs,pageNo,size_A
strSql="select * from [q-0-p] order by figure_id desc"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,3,3
if request("size")="" then
size_A=6
else
size_A=request("size")
end if
rs.pagesize=size_A
if not isnumeric(request("page")) then
pageNo=1
else
if request("page")="" or request("page")<1 then
pageNo=1
else
pageNo=request("page")
end if
if cint(request("page"))>rs.pagecount then
pageNo=rs.pagecount
end if
end if
rs.Absolutepage=pageNo
%>
<table width="561" border="0" cellspacing="0" cellpadding="4">
<%
dim i
for i=1 to rs.pagesize
if rs.eof then
exit for
end if%>
<tr align="center" valign="top">
<td width="179" height="114"><table width="124" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="125" align="center" valign="top"><a href="figure_show.asp?id=<%=rs("figure_id")%>" target="_blank" class="menu3"><img src="q-0-plogin/<%=rs("figure_pic")%>" alt="<%=rs("figure_title")%>" width="124" height="124" border="0"></a></td>
</tr>
<tr>
<td align="left" valign="top" class="menu6"> RMB: <%=rs("figure_price")%> </td>
</tr>
</table> </td>
<%
if not rs.eof then
rs.movenext
i=i+1
else
rs.close
end if
%>
<td width="179"><table width="124" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="125" align="center" valign="top"><a href="figure_show.asp?id=<%=rs("figure_id")%>" target="_blank" class="menu3"><img src="q-0-plogin/<%=rs("figure_pic")%>" alt="<%=rs("figure_title")%>" width="124" height="124" border="0"></a></td>
</tr>
<tr>
<td align="left" valign="top" class="menu6"> RMB: <%=rs("figure_price")%> </td>
</tr>
</table></td>
<%
if not rs.eof then
rs.movenext
i=i+1
else
rs.close
end if
%>
<td width="179"><table width="124" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="125" align="center" valign="top"><a href="figure_show.asp?id=<%=rs("figure_id")%>" target="_blank" class="menu3"><img src="q-0-plogin/<%=rs("figure_pic")%>" alt="<%=rs("figure_title")%>" width="124" height="124" border="0"></a></td>
</tr>
<tr>
<td align="left" valign="top" class="menu6"> RMB: <%=rs("figure_price")%> </td>
</tr>
</table></td>
</tr>
<%
rs.movenext
next
if rs.eof then
rs.close
end if
%>
</table>
<table width="560" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="14"> </td>
</tr>
</table>
<br>
<table width="560" border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#ffffff">
<td height="2" colspan="2"></td>
</tr>
<tr>
<td height="1" colspan="2"></td>
</tr>
<tr bgcolor="#ffffff">
<td height="1" colspan="2"></td>
</tr>
<tr>
<td width="331" align="left" valign="middle" class="menu"> 第<%=pageNo%>页/共<%=rs.pagecount%>页</td>
<td width="221" align="left" valign="middle" class="menu">
<%if pageNo=1 then
response.write "<font color=""#333333"">首 页</font>"
else
response.write "<a href=""figure_gallery.asp?page=1&size=" & size_A & """ class=menu>首 页</a>"
end if%>
| <a href="figure_gallery.asp?page=<%=pageNo-1%>&size=<%=size_A%>" class="menu">上一页</a> | <a href="figure_gallery.asp?page=<%=pageNo+1%>&size=<%=size_A%>" class="menu">下一页</a> |
<%if cint(pageNo)=rs.pagecount then
response.write "<font color=""#333333"">尾 页</font>"
else
response.write "<a href=figure_gallery.asp?page=" & rs.pagecount & "&size=" & size_A & " class=menu>尾 页</a>"
end if%>
</td>
</tr>
</table> |
如何实现这样的排列显示,请高手指点啊!急
我想是在
<%
rs.movenext
next
if rs.eof then
rs.close
end if
%>
这段代码上出了问题 |
| 判断i mod 3 = 0 的时候插入 </tr><tr> |
| Dreamweaver MX 能不能完成这种功能.我不会写ASP语句. |
在显示之前判断以下rs.eof
即<%if not rs.eof then%>显示<%end if%> |
| http://redhacker.blueidea.com/archives/2006/776.shtml |
|
