横向显示循环数据

最新推荐文章于 2023-08-30 14:41:38 发布

我是高手高手高高手

最新推荐文章于 2023-08-30 14:41:38 发布

阅读量1k

点赞数

分类专栏： ASP技术

本文链接：https://blog.csdn.net/haibo0668/article/details/51565603

版权

ASP技术专栏收录该内容

71 篇文章 3 订阅

订阅专栏

<%
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
%>