多列显示

 <table width="100%" height="100%" border="0">
                            <tr>
       <%
                              Set rs= Server.CreateObject("ADODB.Recordset")
                              rs.open "select * from btype order by id asc",conn,1,1
                            %>
                            <%
                              dim tempnum2
                              tempnum2=1
                              do while not rs.eof
          %>
                              <td>
           <img src="images/sanjiao.gif" width="9" height="9">
         </td>
                              <td>
           <strong>
          <a href="infos.asp?id=<%=trim(rs("id"))%>" name="<%=trim(rs("id"))%>"><%=trim(rs("type"))%></a>
          <%
                        set rs2=server.CreateObject("adodb.recordset")
                                    rs2.open "Select count(*) as gs from st_infos where btype='"&rs("id")&"' and flag='0'",conn
                     gs=rs2(0)
                      %>
                                 <font color="#83837E">[<%response.Write(gs)%>]</font>
         <%
            rs2.close
         set rs2=nothing
         %>
        </strong>
        </td>
          <%
                             if (tempnum2 mod 2)=0 then response.write "</tr>"    '两列显示mod 2
                             tempnum2=tempnum2+1
                                rs.movenext    
                             loop
                            %>
                            </tr>
       <%
                               rs.close
                               set rs=nothing
                            %>
                          </table>

本文地址：http://com.8s8s.com/it/it8753.htm