这段代码如何变成一行2列啊  谢谢  css设置不管用,自己对asp不是很懂 还请帮忙 
另外一个问题是控制输出个数是哪个量啊
 <%
Set rs = Server.CreateObject("ADODB.Recordset")
If brand_id <> "" then
if extype <> "" and ex_good = "" and ex_index ="" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and brand_id = "&brand_id&" Order by "&extype&" "&sc&", id desc"
elseif ex_good <> "" and extype = "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and brand_id = "&brand_id&" and ex_good = "&ex_good&" Order by id desc"
elseif ex_good <> "" and extype <> "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and brand_id = "&brand_id&" and ex_good = "&ex_good&" Order by "&extype&" "&sc&", id desc"
elseif ex_index <> "" and extype = "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and brand_id = "&brand_id&" and ex_index = "&ex_index&" Order by id desc"
elseif ex_index <> "" and extype <> "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and brand_id = "&brand_id&" and ex_index = "&ex_index&" Order by "&extype&" "&sc&", id desc"
else
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and brand_id = "&brand_id&" Order by id desc"
end if
elseif significance_id <> "" then
if extype <> "" and ex_good = "" and ex_index ="" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and significance_id = "&significance_id&" Order by "&extype&" "&sc&", id desc"
elseif ex_good <> "" and extype = "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and significance_id = "&significance_id&" and ex_good = "&ex_good&" Order by id desc"
elseif ex_good <> "" and extype <> "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and significance_id = "&significance_id&" and ex_good = "&ex_good&" Order by "&extype&" "&sc&", id desc"
elseif ex_index <> "" and extype = "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and significance_id = "&significance_id&" and ex_index = "&ex_index&" Order by id desc"
elseif ex_index <> "" and extype <> "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and significance_id = "&significance_id&" and ex_index = "&ex_index&" Order by "&extype&" "&sc&", id desc"
else
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and significance_id = "&significance_id&" Order by id desc"
end if
elseif mantissa_id <> "" then
if extype <> "" and ex_good = "" and ex_index ="" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and mantissa_id = "&mantissa_id&" Order by "&extype&" "&sc&", id desc"
elseif ex_good <> "" and extype = "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and mantissa_id = "&mantissa_id&" and ex_good = "&ex_good&" Order by id desc"
elseif ex_good <> "" and extype <> "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and mantissa_id = "&mantissa_id&" and ex_good = "&ex_good&" Order by "&extype&" "&sc&", id desc"
elseif ex_index <> "" and extype = "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and mantissa_id = "&mantissa_id&" and ex_index = "&ex_index&" Order by id desc"
elseif ex_index <> "" and extype <> "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and mantissa_id = "&mantissa_id&" and ex_index = "&ex_index&" Order by "&extype&" "&sc&", id desc"
else
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and mantissa_id = "&mantissa_id&" Order by id desc"
end if
elseif exkey <> "" then
if extype <> "" and ex_good = "" and ex_index ="" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and ex_phone like '%"&exkey&"%' Order by "&extype&" "&sc&", id desc"
elseif ex_good <> "" and extype = "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and ex_phone like '%"&exkey&"%' and ex_good = "&ex_good&" Order by id desc"
elseif ex_good <> "" and extype <> "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and ex_phone like '%"&exkey&"%' and ex_good = "&ex_good&" Order by "&extype&" "&sc&", id desc"
elseif ex_index <> "" and extype = "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and ex_phone like '%"&exkey&"%' and ex_index = "&ex_index&" Order by id desc"
elseif ex_index <> "" and extype <> "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and ex_phone like '%"&exkey&"%' and ex_index = "&ex_index&" Order by "&extype&" "&sc&", id desc"
else
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and ex_phone like '%"&exkey&"%' Order by id desc"
end if
elseif exkey_1 <> "" then
if extype <> "" and ex_good = "" and ex_index ="" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and (ex_price >= "&exkey_1&" and ex_price <= "&exkey_2&") Order by "&extype&" "&sc&", id desc"
elseif ex_good <> "" and extype = "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and (ex_price >= "&exkey_1&" and ex_price <= "&exkey_2&") and ex_good = "&ex_good&" Order by id desc"
elseif ex_good <> "" and extype <> "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and (ex_price >= "&exkey_1&" and ex_price <= "&exkey_2&") and ex_good = "&ex_good&" Order by "&extype&" "&sc&", id desc"
elseif ex_index <> "" and extype = "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and (ex_price >= "&exkey_1&" and ex_price <= "&exkey_2&") and ex_index = "&ex_index&" Order by id desc"
elseif ex_index <> "" and extype <> "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and (ex_price >= "&exkey_1&" and ex_price <= "&exkey_2&") and ex_index = "&ex_index&" Order by "&extype&" "&sc&", id desc"
else
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and (ex_price >= "&exkey_1&" and ex_price <= "&exkey_2&") Order by id desc"
end if
elseif search <> "" then
if extype <> "" and ex_good = "" and ex_index ="" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and brand_id = "&brand_id_2&" and mantissa_id = "&mantissa_id_2&" and ex_phone like '%"&exkey_3&"%' and (ex_price >= "&exkey_4&" and ex_price <= "&exkey_5&") Order by "&extype&" "&sc&", id desc"
elseif ex_good <> "" and extype = "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and brand_id = "&brand_id_2&" and mantissa_id = "&mantissa_id_2&" and ex_phone like '%"&exkey_3&"%' and (ex_price >= "&exkey_4&" and ex_price <= "&exkey_5&") and ex_good = "&ex_good&" Order by id desc"
elseif ex_good <> "" and extype <> "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and brand_id = "&brand_id_2&" and mantissa_id = "&mantissa_id_2&" and ex_phone like '%"&exkey_3&"%' and (ex_price >= "&exkey_4&" and ex_price <= "&exkey_5&") and ex_good = "&ex_good&" Order by "&extype&" "&sc&", id desc"
elseif ex_index <> "" and extype = "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and brand_id = "&brand_id_2&" and mantissa_id = "&mantissa_id_2&" and ex_phone like '%"&exkey_3&"%' and (ex_price >= "&exkey_4&" and ex_price <= "&exkey_5&") and ex_index = "&ex_index&" Order by id desc"
elseif ex_index <> "" and extype <> "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and brand_id = "&brand_id_2&" and mantissa_id = "&mantissa_id_2&" and ex_phone like '%"&exkey_3&"%' and (ex_price >= "&exkey_4&" and ex_price <= "&exkey_5&") and ex_index = "&ex_index&" Order by "&extype&" "&sc&", id desc"
else
sql = "select * from "&web_dbtop&"shop where ex_check = 1 and brand_id = "&brand_id_2&" and mantissa_id = "&mantissa_id_2&" and ex_phone like '%"&exkey_3&"%' and (ex_price >= "&exkey_4&" and ex_price <= "&exkey_5&") Order by id desc"
end if
else
if extype <> "" then
sql = "select * from "&web_dbtop&"shop where ex_check = 1 Order by "&extype&" "&sc&", id desc"
else
sql = "select * from "&web_dbtop&"shop where ex_check = 1 Order by id desc"
end if
end if
rs.Open sql,conn,1,1
if not rs.eof then
rs.PageSize = rs_parameter("ex_list")
page=Request.QueryString("page")
If page="" Then page = 1
If not isnumeric(page) Then page = 1
page = Clng(page)
If page>rs.PageCount Then page=rs.PageCount 
If page<=0 Then page=1
rs.AbsolutePage=page
for i=1 to rs_parameter("ex_list")
if rs.eof Then exit For
'If i Mod 2 =0 Then 
'response.write "<tr bgcolor=""#FFFFFB"">" 
'Else 
'response.write "<tr bgcolor=""#FDFAE7"">" 
'End If
%>
  <table width="766" border="0" class="haoma_table" cellpadding="0" cellspacing="1">
   <tr>  
                   <td class="number"><%If rs("ex_sales") = 0 Then%>
                                <span><a href="order.asp?id=<%=rs("id")%>"onclick="glog()"><span class="num1"><%=left(rs("ex_phone"),3)%></span><span class="num2"><%=mid(rs("ex_phone"),4,4)%></span><span class="num3"><%=right(rs("ex_phone"),4)%></span></a></span>
                              <%Elseif rs("ex_sales") = 2 Then%>
                              <span><span class="num1"><%=left(rs("ex_phone"),3)%></span><span class="num2"><%=mid(rs("ex_phone"),4,4)%></span><span class="num3"><%=right(rs("ex_phone"),4)%></span></span>
                              <%End If%></td>
          <td class="huafei"><%=rs("ex_cost")%> 元</td>
          <td class="kafei"><span><%=rs("ex_price")%></span>元</td>
           <td><%If rs("ex_sales") = 0 Then%>
                                <span><a href="order.asp?id=<%=rs("id")%>"><img src="images/dingou.jpg" width="47" height="23" /></a></span>
                              <%Elseif rs("ex_sales") = 2 Then%>
                              <span><img src="images/yisou.jpg" width="47" height="23" /></span>
                              <%End If%></td>
   </tr>
</table> 
<%
rs.MoveNext
Next
end if
%> 

解决方案 »

  1.   

    <%
    Dim i,n
    randomize
    n=Int(100*Rnd()) '为了方便测试,这里取随机数
    Response.write "<table border=""1""><tr>"  
    For i=1 To n
    Response.write "<td>"&i&"</td>"
    If i Mod 2=0 Then Response.write "</tr><tr>" '双数分行
    Next
    If n Mod 2=1 Then Response.write "<td>空</td>" '特殊情况补一个空白单元格
    Response.write "</tr></table>"
    %>
    只给你一条思路!