Question

asp 代码问题 怎样可以控制每行显示信息数量

是一个产品展示页，现在每行只显示一个产品，我想要每行都显三个产品，请问怎么改？

网页地址：http://shankj.com/product.asp
代码地址：http://shankj.com/asp.txt
改好可以发到我QQ或者邮箱：182860028

先谢谢各位了！~！！！！！
都不行呢```
还有其他方法吗？

Answer 1

<!--#include file="inc/htconn.asp"-->
<!--#include file="inc/sub.asp"-->
<!--#include file="head.asp"-->

<%dim rstv,rstvl
if Request.QueryString("sortid")<>"" then
set rstv=Conn.execute("select sortID,sortType from sort where sortID="&Request.QueryString("sortid")&"")
else
set rstv=Conn.execute("select sortID,sortType from sort where sortID=1")
end if
if rstv.eof and rstv.bof then
response.write "<br><br><p align='center'>参数错误...</p>"
response.end
end if
dim sortid:sortid=rstv("sortid")
dim sortType:sortType=rstv("sortType")%>

<table width="989" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="248" height="371" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="248" height="73" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="248" height="64" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="248" height="90" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="248" height="24" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="248" height="24" align="center">产品一</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="66"><!--DWLayoutEmptyCell--> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="78"> </td>
</tr>

</table>
</td>
</tr>
<tr>
<td height="9"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="188" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="248" height="188"><!--#include file="left_cr_3.asp"--></td>
</tr>
</table>
</td>
</tr>

</table></td>
<td width="7"> </td>
<td width="734" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="734" height="21" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="image_cr/xian2.jpg">
<!--DWLayoutTable-->
<tr>
<td width="734" height="21" valign="middle" bgcolor="#D1F5AD"> <span class="tdwhite" style="font-weight: bold">
您的位置:- >产品展示 - > <A href="product.asp?sortid=<%=sortid%>" class="whites"><font color="#006600"><%=sortType%></font></A>

</span></td>
</tr>
</table></td>
</tr>
<tr>
<td height="350" valign="top">

<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<!--DWLayoutTable-->
<tr>
<td width="730" height="154" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="730" height="152" valign="top"><table width="140" height="28" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<%dim str,num,numperpage,numpages,rsTotal,itotal,temrs
dim srs
itotal=1
num=1
numperpage=5
rsTotal=0
if Request.QueryString("pages")<>""then
numpages=Request.QueryString("pages")
else
numpages=1
end if
if Request.QueryString("sortid")<>"" then
sqlt="select * from products where isdel=0 and sortid="&Request.QueryString("sortid")&" order by istop desc"
else
sqlt="select * from products where isdel=0 order by istop desc"
end if
set rst=conn.execute(sqlt)
if rst.eof and rst.bof then
response.write "<br><br><p align='center'>没有找到任何信息...</p>"
end if
do while not rst.eof
i=i+1

if ((i+2) mod 3=0) then
response.write("<tr>")
end if

rsTotal=rsTotal+1
rst.movenext

loop
if rstotal>0 then
rst.movefirst
end if
if rsTotal>numperpage then
rst.move(numperpage*(numpages-1))
end if
if rsTotal>0 then
do while (not rst.eof) and num<(numperpage+1)

%>

<td width="140" height="146" align="center" valign="top"><a href="xhproduct.asp?id=<%=rst("productid")%>&sortid=<%=rst("sortid")%>" target="_blank" title="<%=rst("title")%>"><img src="<%=rst("miniature")%>" vspace="4" border="0" alt="<%=rst(1)%>" height="120" width="120"/><br>
<span class="tdwhite">产品名称:<a href="xhproduct.asp?id=<%=rst("productid")%>&sortid=<%=rst("sortid")%>" class="linkBlack"><%=rst("title")%></a></td>
<%
if (i mod 3=0) then
response.write("</tr>")
end if
num=num+1
rst.movenext
loop
rst.close
set rst=nothing%>
<% End If %>
</table>
</td>
</tr>

</table>
</td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF"><span class="tdwhite">
<%response.Write("第"&numpages&"页/共"&int((rsTotal-1)/numperpage)+1&"页 ")
if Request.QueryString("ID")<>"" then
if numpages=1 then
response.Write("<font color='#999999'>[第一页] [上一页] </font>")
else
response.Write("<a href='product.asp?pages=1&IDt="&Request.QueryString("IDt")&"sortid="&Request.QueryString("sortid")&"' class='greeds'>[第一页]</a> <a href='product.asp?pages="&(numpages-1)&"&IDt="&Request.QueryString("IDt")&"sortid="&Request.QueryString("sortid")&"' class='greeds'>[上一页]</a> ")
end if
if clng(numpages)=clng(int((rsTotal-1)/numperpage)+1) or clng(int((rsTotal-1)/numperpage)+1)=0 then
response.Write("<font color='#999999'>[下一页] [最后一页]</font>")
else
response.Write("<a href='product.asp?pages="&(numpages+1)&"&IDt="&Request.QueryString("IDt")&"sortid="&Request.QueryString("sortid")&"' class='greeds'>下一页</a> <a href='product.asp?pages="&(int((rsTotal-1)/numperpage)+1)&"&IDt="&Request.QueryString("IDt")&"sortid="&Request.QueryString("sortid")&"' class='greeds'>[最后一页]</a>")
end if
%>
转到
<select name='menu1' onChange="MM_jumpMenu('parent',this,0)">
<%
for i=1 to (int((rsTotal-1)/numperpage)+1)
if clng(i)=clng(numpages) then
response.Write("<option value='product.asp?pages="&i&"&IDt="&Request.QueryString("IDt")&"sortid="&Request.QueryString("sortid")&"' selected>"&i&"</option>")
else
response.Write("<option value='product.asp?pages="&i&"&IDt="&Request.QueryString("IDt")&"sortid="&Request.QueryString("sortid")&"'>"&i&"</option>")
end if
next
%>
</select>
页
<%
else
if numpages=1 then
response.Write("<font color='#999999'>[第一页] [上一页] </font>")
else
response.Write("<a href='product.asp?pages=1&IDt="&Request.QueryString("IDt")&"sortid="&Request.QueryString("sortid")&"' class='greeds'>[第一页]</a> <a href='product.asp?pages="&(numpages-1)&"&IDt="&Request.QueryString("IDt")&"sortid="&Request.QueryString("sortid")&"' class='greeds'>[上一页]</a> ")
end if
if clng(numpages)=clng(int((rsTotal-1)/numperpage)+1) or clng(int((rsTotal-1)/numperpage)+1)=0then
response.Write("<font color='#999999'>[下一页] [最后一页]</font>")
else
response.Write("<a href='product.asp?pages="&(numpages+1)&"&IDt="&Request.QueryString("IDt")&"sortid="&Request.QueryString("sortid")&"' class='greeds'>[下一页]</a> <a href='product.asp?pages="&(int((rsTotal-1)/numperpage)+1)&"&IDt="&Request.QueryString("IDt")&"sortid="&Request.QueryString("sortid")&"' class='greeds'>[最后一页]</a>")
end if
%>
转到
<select name='select' onChange="MM_jumpMenu('parent',this,0)">
<%
for i=1 to (int((rsTotal-1)/numperpage)+1)
if clng(i)=clng(numpages) then
response.Write("<option value='product.asp?pages="&i&"&IDt="&Request.QueryString("IDt")&"sortid="&Request.QueryString("sortid")&"' selected>"&i&"</option>")
else
response.Write("<option value='product.asp?pages="&i&"&IDt="&Request.QueryString("IDt")&"sortid="&Request.QueryString("sortid")&"'>"&i&"</option>")
end if
next%>
</select>
页
<%end if%>
</span></td>
</tr>
</table>

</td>
</tr>

</table></td>
</tr>
</table>
<!-- #include file="foot.asp" -->

Q 6969231

Answer 2

这里我写了段代码。可以直接使用。别说三列，你想多少列就多少列。你在代码中搜索"lie=",可以看到有句lie=数字，这就是你要显示的列数改为3就可以了，这里我已改为3，你可以直接使用

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
sql="select id,prodname,img from prodinfo"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize=9
p = trim(Request.QueryString("p"))

if len(p) = 0 then
p = 1
else
if cint(p) =< 1 then
p = 1
else
if cint(p) >= rs.PageCount then
p = rs.PageCount
else
p = cint(p)
end if
end if
end if

if not rs.eof then
rs.AbsolutePage = p
end if

if not rs.eof or bof then
lie=3
row=int(-1*rs.recordcount/lie)*(-1) '行数分<br />
num=0
for j=1 to row
%>
<tr>
<%for i=1 to lie%>
<td height="230" align="center" valign="top">
<table width="215" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="198" align="center" style="background-image:url(images/prodbg.jpg); background-position:center; background-repeat:no-repeat"><a href="prodinfo.asp?id=<%=rs("id")%>" target="_blank" class="prod_a"><img src="<%=rs("img")%>" border="0" /></a></td>
</tr>
<tr>
<td><%=rs("prodname")%></td>
</tr>
</table>
</td>
<% num=num+1
if num=rs.pagesize then exit for
rs.moveNext
if rs.eof then exit for
next%>
</tr>
<%if num=rs.pagesize then exit for
if rs.eof then exit for
next
end if
%>
<tr>
<td colspan="3" align="center" style="border-top:1px #D0D0D0 solid; padding-top:10px" class="huise a1 line22 txt12">
共个<%=rs.recordcount%>条记录 
页大小: <%=rs.pagesize%> 
当前页:<%=p%>/<%=rs.pagecount%>  
<%if rs.pagecount>1 then%>
<a href="?p=1">首页</a>  
<a href="?p=<%=p-1%>">上一页</a>  
<a href="?p=<%=p+1%>">下一页</a>  
<a href="?p=<%=rs.pagecount%>">末页</a>
<%
end if
rs.close%>
</td>
</tr>
</table>

Answer 3

我简化一下代码，让你能看得更明白。
<tr>
<%
sqlt="select * from products where isdel=0 order by istop desc"
set rst=conn.execute(sqlt)
do while not rst.eof
%>

<td width="140" height="146" align="center" valign="top"><a href="xhproduct.asp?id=<%=rst("productid")%>&sortid=<%=rst("sortid")%>" target="_blank" title="<%=rst("title")%>"><img src="<%=rst("miniature")%>" vspace="4" border="0" alt="<%=rst(1)%>" height="120" width="120"/><br>
<span class="tdwhite">产品名称:<a href="xhproduct.asp?id=<%=rst("productid")%>&sortid=<%=rst("sortid")%>" class="linkBlack"><%=rst("title")%></a></td>

<%num=num+1

if num mod 4 =0 then response.write "</tr><tr>" '关键在这里。4是一行4 个。

rst.movenext
loop
rst.close
set rst=nothing%>
</tr>

Answer 4

你那代码好长
你用 do while 循环
你一行一个tr
当 i MOD 3 =0
结束原来的 TR 开始新的TR
就是输出</tr><tr>