作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

<!-- #include file="connect.asp" -->
         <%
            'set rs=server.CreateObject("adodb.recordset")  /. Rs在connect.asp在有定义
            sql="select * from 试卷信息"
            rs.open sql,conn,1,1
         %>

++++++++++++++ 方法一 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
         <table width="245" border="1" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF">
            <tr>
            <%
             j=0
            do while not rs.eof
            j=j+1  %>
            <td>
            <% =rs("试卷名称")%></td>
            <% if (j mod 2=0) and j>=2 then %>
           </tr><tr>
            <% end if
               rs.movenext
               loop%></tr>
            </table>
++++++++++++++ 方法二 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
    <table width="245" border="1" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF">
           <% do while not rs.eof %>
           <tr>
            <td><% =rs("试卷名称")%></td>
            <%
              rs.movenext
              k=k+1
              if k>5 then exit do
            %>
            <td><% =rs("试卷名称")%></td></tr>
           <%
              k=k+1
              if k>5 then exit do
              rs.movenext
              loop%>
           </table>

相关软件：