横向显示循环数据-CFANZ编程社区

横向显示循环数据
<!--#include file="include/buyok_shop_30_conn.asp" -->
  
 <%
  
 Dim rs2
  
 Dim rs2_numRows
  

 Set rs2=Server.CreateObject("ADODB.Recordset")
  
 sql="select * from buyok_class"
  
 rs2.open sql,conn,1,3
  

 rs2_numRows = 0
  
 %>
  
 <%
  
 Dim HLooper1__numRows
  
 HLooper1__numRows = -5
  
 Dim HLooper1__index
  
 HLooper1__index = 0
  
 rs2_numRows = rs2_numRows + HLooper1__numRows
  
 %>
  
 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  
 <html>
  
 <head>
  
 <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  
 <title>无标题文档</title>
  
 </head>
  

 <body>
  
 <table width="100%" 
   border="0" cellspacing="0" cellpadding="0">
  
  
   <tr>
  
  
   
   
   <td> </td>
  
  
   </tr>
  
  
   <tr>
  
  
   
   
   <table>
  
  
   
   
   
   
   <%
  
 startrw = 0
  
 endrw = HLooper1__index
  
 numberColumns = 5
  
 numrows = -1
  
 while((numrows <> 0) AND (Not rs2.EOF))
  
  
  startrw = endrw + 1
  
  
  endrw = endrw + numberColumns
  
  
  %>
  
  
   
   
   
   
   <tr align="center" valign="top">
  
  
   
   
   
   
   
   
   <%
  
 While ((startrw <= endrw) AND (Not rs2.EOF))
  
 %>
  
  
   
   
   
   
   
   
   <td>
  
  
   
   
   
   
   
   
   <td> ⊙ <%=(rs2.Fields.Item("LarCode").Value)%></td>
  
  
   
   
   
   
   
   
   </td>
  
  
   
   
   
   
   
   
   <%
  
  
  startrw = startrw + 1
  
  
  rs2.MoveNext()
  
  
  Wend
  
  
  %>
  
  
   
   
   
   
   </tr>
  
  
   
   
   
   
   <%
  
  
  numrows=numrows-1
  
  
  Wend
  
  
  %>
  
  
   
   
   </table>
  
  
   </tr>
  
  
   <tr>
  
  
   
   
   <td> </td>
  
  
   </tr>
  
 </table>
  
 </body>
  
 </html>
  
 <%
  
 rs2.Close()
  
 Set rs2 = Nothing
  
 %>
0 条评论