求救 !该加入什么代码?让图片从一行一列分页显示变为4行6列分页显示

来源:百度知道 编辑:UC知道 时间:2024/06/01 05:44:01
<!--#include file="conn.asp"-->
<%
Const MaxPerPage=8
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
set rs=server.CreateObject("adodb.recordset")

rs.open "select id,prename,name,company,mark,intro,vipprice,introduce,predate,productdate,pretype,type,viewnum,pic from product where recommend=1 and isfb=0 order by adddate desc ",conn,1,1

if err.number<>0 then
response.write "<p>数据库无数据</p>"
end if
if rs.eof And rs.bof then
Response.Write "<p>还没有这种商品!</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage=

<table width="100%" border="0" cellspacing="0" cellpadding="4">
<%i = 0
do while i < 24 and not rs.eof%><!--24是每页显示的纪录数,四行六列就是24条纪录-->
<tr><%for j = 1 to 6 if not rs.eof then%><!--6是列数-->
<td align="left" valign="top"width="25%" ><!--放重复单元代码--></td>
<%i = i + 1
rs.movenext
else
Response.Write "<td valign=""top"" width=""25%""></td>"
end if
next%>><!--如果当页纪录不足24条,就用空白单元格补上-->
</tr>
<%loop%>
</table>

把上面的代码替换原来的显示一件商品的地方,也就是原来放置一件商品的地方现在放置这个表格,这个表格有4行6列,每单元放置一件商品。

你好,我也遇到了楼主同样的问题,加了这段代码,老提示错误说语句未结束!!我新手比较笨,你能具体点把这段代码放在一楼源代码的那个位置和替换那些代码吗?谢谢!!!