横向循环案例

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<%
dim sql,sizes,page,rs,asp,cid,page_link,model(4),prdid(4)
cid=request("cid")
asp="products.asp"
page=request("page")
if page="" then page=1 end if
sizes=16
if cid="" then
    sql="select* from product order by cid asc"
else
    sql="select* from product where cid="&cid&" order by id desc"
end if
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
page_link=pagelink(sizes,asp)
%>

<table width="742" border="0" align="center" cellpadding="0"cellspacing="0">
  <tr>
    <tdwidth="236" align="center" valign="top"><tablewidth="100%"  border="0" cellspacing="0"cellpadding="0">
     <tr>
       <td><objectclassid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"width="236" height="67">
         <param name="movie" value="../images/left_01.swf">
         <param name="quality" value="high">
    <paramname="SCALE" value="exactfit">
    <paramname="wmode" value="transparent">
         <embed src="../images/left_01.swf" width="236" height="67"quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer"type="application/x-shockwave-flash"scale="exactfit"></embed>
       </object></td>
     </tr>
   </table>
     <table width="100%"  border="0" cellspacing="0"cellpadding="0">
       <tr>
         <td><img src="img/left_title02.gif" width="236"height="30"></td>
       </tr>
     </table>
     <table width="100%" height="260"  border="0"cellpadding="0" cellspacing="0">
       <tr>
         <td align="center" valign="top"background="../images/left_bg01.gif"><table width="100%"border="0" cellspacing="0" cellpadding="0">
           <tr>
             <td width="21"><img src="../images/space02.gif" width="21"height="10"></td>
             <td align="center" valign="top"><table width="180"border="0" cellspacing="0" cellpadding="0">
               <tr>
                 <td height="10"><img src="../images/space02.gif"width="21" height="10"></td>
               </tr>
               <tr>
                 <td height="3"><img src="../images/left_line01.gif"width="180" height="3"></td>
               </tr>
  <%
   dim rsc1, rsc2, sqlc1,sqlc2
 set rsc1 =server.createobject("adodb.recordset")
 sqlc1 = "select * from class"
 rsc1.open sqlc1, conn, 1, 1
 if not rsc1.eof then
 rsc1.movefirst
 do while not rsc1.eof
  %>
               <tr>
                 <td height="22" class="text06"> ↓<%=rsc1("ename")%></td>
               </tr>
               <tr>
                 <td height="3"><img src="../images/left_line01.gif"width="180" height="3"></td>
               </tr>
  <%
    cid_c =rsc1("id")
  set rsc2 =server.CreateObject("adodb.recordset")
  sqlc2 = "select * fromclass_sub where cid = "&cid_c
  rsc2.open sqlc2, conn, 1,1
  if not rsc2.eof then
  rsc2.movefirst
  do while not rsc2.eof
  %>
               <tr>
                 <td height="22" class="text01">　◇ <ahref="products.asp?cid=<%=rsc2("id")%>" class="link02"target="_parent"><%=rsc2("ename")%></a></td>
               </tr>
               <tr>
                 <td height="3"><img src="../images/left_line01.gif"width="180" height="3"></td>
               </tr>
  <%
   rsc2.movenext
  loop
  end if
  rsc2.close
 rsc1.movenext
 loop
 end if
 rsc1.close
 set rsc1=nothing
 set rsc2=nothing
 set sqlc1=nothing
 set sqlc2=nothing
  %>
             </table></td>
           </tr>
         </table></td>
       </tr>
     </table>
     <table width="100%"  border="0" cellspacing="0"cellpadding="0">
       <tr>
         <td><img src="../images/left_02.gif" width="236"height="87"></td>
       </tr>
     </table></td>
    <tdalign="center" valign="top"><table width="100%"height="360"  border="0" cellpadding="0"cellspacing="0">
     <tr>
       <td align="center" valign="top"background="../images/main_bg01.gif"><tablewidth="100%"  border="0" cellspacing="0"cellpadding="0">
         <tr>
           <td align="center" valign="top"><table width="92%"border="0" cellspacing="0" cellpadding="0">
             <tr>
               <td height="360" align="center" valign="top"class="text03"><table width="440" border="0" align="center"cellpadding="0" cellspacing="0" >
                 <%
    for j=1 to sizes\4
        if rs.eof then
      exit for
    else
    end if
    %>
                 <tr>
                   <%
        for i=1 to 4
         if not rs.eof then
          model(i)=rs("ename")
       prdid(i)=rs("id")
    %>
                   <td width="110" height="110" align="center" valign="middle"background="../images/prd_small_bg.gif"><ahref="javascript:openwin(<%=rs("id")%>);"><imgsrc="../manage/photo/<%=rs("photo")%>" width="90" height="90"border="0"></a></td>
                   <%
                rs.movenext
      else
    %>
                   <td width="25%" align="center"valign="middle">&nbsp;</td>
                   <%
            end if
        next
    %>
                 </tr>
                 <tr>
                   <%
        for i=1 to 4
         if model(i)<>"" then
    %>
                   <td width="110" height="20" align="center" valign="middle"class="text01">↑ <ahref="javascript:openwin(<%=prdid(i)%>);"class="link01"><%=model(i)%></a></td>
                   <%
                model(i)=""
      else
    %>
                   <td>&nbsp;</td>
                   <%
            end if
        next
    %>
                 </tr>
                 <tr>
                   <td colspan="3">&nbsp;</td>
                 </tr>
                 <%
    next
    rs.close
    set rs=nothing
    'call closeconn()
    %>
               </table></td>
             </tr>
           </table>
             <table width="100%"  border="0" align="center"cellpadding="0" cellspacing="0">
               <tr>
    <formname="form1" method="post">
                 <td align="center" class="text03">
                       <input type="hidden" name="page"value="<%=page%>">
                       <input type="hidden" name="cid" value="<%=cid%>">
                       <%=page_link%>
                 </td>
               </form>
    </tr>
             </table></td>
           <td width="29" align="center" valign="middle"><imgsrc="../images/main_right01.gif" width="29"height="57"></td>
         </tr>
       </table></td>
     </tr>
   </table>
     <table width="100%" height="60"  border="0"cellpadding="0" cellspacing="0">
       <tr>
         <td align="center" valign="top"background="../images/main_buttom.gif"><table width="100%"border="0" cellspacing="0" cellpadding="0">
           <tr>
             <td height="32">&nbsp;</td>
           </tr>
           <tr>
             <td height="24" align="center" valign="middle"class="text01">THIS PAGE DESIGN BY <a href="mailto:[e-mail]"class="link01">NICK. </a>　　　　　　　</td>
           </tr>
         </table></td>
       </tr>
     </table></td>
  </tr>
</table>