关闭

横向显示循环数据

70人阅读 评论(0) 收藏 举报
分类:
<!--#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>&nbsp;</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>&nbsp;</td>
  </tr>
</table>
</body>
</html>
<%
rs2.Close()
Set rs2 = Nothing
%>
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:355852次
    • 积分:4359
    • 等级:
    • 排名:第6932名
    • 原创:775篇
    • 转载:137篇
    • 译文:1篇
    • 评论:20条
    最新评论