ASP分行显示数据,要求是4列5行,要怎么样修改代码?请大侠帮忙....
<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%><!--#includefile="Connections/ddy.asp"--><%Di...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/ddy.asp" -->
<%
Dim rs
Dim rs_cmd
Dim rs_numRows
Set rs_cmd = Server.CreateObject ("ADODB.Command")
rs_cmd.ActiveConnection = MM_ddy_STRING
rs_cmd.CommandText = "SELECT * FROM dianying"
rs_cmd.Prepared = true
Set rs = rs_cmd.Execute
rs_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 20
Repeat1__index = 0
rs_numRows = rs_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
<style type="text/css">
<!--
body {
background-color: #888;
}
#apDiv1 {
position:absolute;
width:200px;
height:32px;
z-index:1;
left: 274px;
top: 15px;
}
-->
</style></head>
<body>
<%
While ((Repeat1__numRows <> 0) AND (NOT rs.EOF))
%>
<table width="50%" border="0">
<tr>
<td width="26%"><%=(rs.Fields.Item("dym").Value)%></td>
<td width="26%">演员</td>
<td width="48%"><%=(rs.Fields.Item("yy").Value)%></td>
</tr>
<tr>
<td rowspan="2"><img src="<%=(rs.Fields.Item("img").Value)%>" alt="" width="110" height="155" /></td>
<td>类型</td>
<td><%=(rs.Fields.Item("nb").Value)%></td>
</tr>
<tr>
<td height="131">简介</td>
<td><%=(rs.Fields.Item("dysm").Value)%></td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs.MoveNext()
Wend
%>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
我要的是循环整个表格,也就是说将表格里的所有内容加入循环中,以达到输出以下效果:
表格+内容1 表格+内容2 表格+内容3 表格+内容4
表格+内容5 表格+内容6 表格+内容7 表格+内容8
表格+内容9 表格+内容10 表格+内容11 表格+内容12
表格+内容13 表格+内容14 表格+内容15 表格+内容16
表格+内容17 表格+内容18 表格+内容19 表格+内容20 展开
<!--#include file="Connections/ddy.asp" -->
<%
Dim rs
Dim rs_cmd
Dim rs_numRows
Set rs_cmd = Server.CreateObject ("ADODB.Command")
rs_cmd.ActiveConnection = MM_ddy_STRING
rs_cmd.CommandText = "SELECT * FROM dianying"
rs_cmd.Prepared = true
Set rs = rs_cmd.Execute
rs_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 20
Repeat1__index = 0
rs_numRows = rs_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
<style type="text/css">
<!--
body {
background-color: #888;
}
#apDiv1 {
position:absolute;
width:200px;
height:32px;
z-index:1;
left: 274px;
top: 15px;
}
-->
</style></head>
<body>
<%
While ((Repeat1__numRows <> 0) AND (NOT rs.EOF))
%>
<table width="50%" border="0">
<tr>
<td width="26%"><%=(rs.Fields.Item("dym").Value)%></td>
<td width="26%">演员</td>
<td width="48%"><%=(rs.Fields.Item("yy").Value)%></td>
</tr>
<tr>
<td rowspan="2"><img src="<%=(rs.Fields.Item("img").Value)%>" alt="" width="110" height="155" /></td>
<td>类型</td>
<td><%=(rs.Fields.Item("nb").Value)%></td>
</tr>
<tr>
<td height="131">简介</td>
<td><%=(rs.Fields.Item("dysm").Value)%></td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs.MoveNext()
Wend
%>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
我要的是循环整个表格,也就是说将表格里的所有内容加入循环中,以达到输出以下效果:
表格+内容1 表格+内容2 表格+内容3 表格+内容4
表格+内容5 表格+内容6 表格+内容7 表格+内容8
表格+内容9 表格+内容10 表格+内容11 表格+内容12
表格+内容13 表格+内容14 表格+内容15 表格+内容16
表格+内容17 表格+内容18 表格+内容19 表格+内容20 展开
3个回答
展开全部
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/ddy.asp" -->
<%
Dim rs
Dim rs_cmd
Dim rs_numRows
Set rs_cmd = Server.CreateObject ("ADODB.Command")
rs_cmd.ActiveConnection = MM_ddy_STRING
rs_cmd.CommandText = "SELECT * FROM dianying"
rs_cmd.Prepared = true
Set rs = rs_cmd.Execute
'rs_numRows = 0
%>
<%
'Dim Repeat1__numRows
'Dim Repeat1__index
'
'Repeat1__numRows = 20
'Repeat1__index = 0
'rs_numRows = rs_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
<style type="text/css">
<!--
body {
background-color: #888;
}
#apDiv1 {
position:absolute;
width:200px;
height:32px;
z-index:1;
left: 274px;
top: 15px;
}
-->
</style></head>
<body>
<table border="0">
<tr>
<%
for rs_numRows = 1 to 20
if rs.eof then exit for
%>
<td width="25%">
<table border="0">
<tr>
<td width="26%"><%=(rs.Fields.Item("dym").Value)%></td>
<td width="26%">演员</td>
<td width="48%"><%=(rs.Fields.Item("yy").Value)%></td>
</tr>
<tr>
<td rowspan="2"><img src="<%=(rs.Fields.Item("img").Value)%>" alt="" width="110" height="155" /></td>
<td>类型</td>
<td><%=(rs.Fields.Item("nb").Value)%></td>
</tr>
<tr>
<td height="131">简介</td>
<td><%=(rs.Fields.Item("dysm").Value)%></td>
</tr>
</table>
</td>
<%
if rs_numRows mod 4 = 0 and rs_numRows <> 20 then
%>
</tr>
<tr>
<%
end if
rs.MoveNext()
next
%>
</tr>
</table>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
<!--#include file="Connections/ddy.asp" -->
<%
Dim rs
Dim rs_cmd
Dim rs_numRows
Set rs_cmd = Server.CreateObject ("ADODB.Command")
rs_cmd.ActiveConnection = MM_ddy_STRING
rs_cmd.CommandText = "SELECT * FROM dianying"
rs_cmd.Prepared = true
Set rs = rs_cmd.Execute
'rs_numRows = 0
%>
<%
'Dim Repeat1__numRows
'Dim Repeat1__index
'
'Repeat1__numRows = 20
'Repeat1__index = 0
'rs_numRows = rs_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
<style type="text/css">
<!--
body {
background-color: #888;
}
#apDiv1 {
position:absolute;
width:200px;
height:32px;
z-index:1;
left: 274px;
top: 15px;
}
-->
</style></head>
<body>
<table border="0">
<tr>
<%
for rs_numRows = 1 to 20
if rs.eof then exit for
%>
<td width="25%">
<table border="0">
<tr>
<td width="26%"><%=(rs.Fields.Item("dym").Value)%></td>
<td width="26%">演员</td>
<td width="48%"><%=(rs.Fields.Item("yy").Value)%></td>
</tr>
<tr>
<td rowspan="2"><img src="<%=(rs.Fields.Item("img").Value)%>" alt="" width="110" height="155" /></td>
<td>类型</td>
<td><%=(rs.Fields.Item("nb").Value)%></td>
</tr>
<tr>
<td height="131">简介</td>
<td><%=(rs.Fields.Item("dysm").Value)%></td>
</tr>
</table>
</td>
<%
if rs_numRows mod 4 = 0 and rs_numRows <> 20 then
%>
</tr>
<tr>
<%
end if
rs.MoveNext()
next
%>
</tr>
</table>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Repeat1__numRows = 20 控制循环次数
看你是循环整个表格，不知道你是要改表格的4行5列 还是输出来以后5个表格排一行？
还有疑问加QQ 看百度帐号。
看你是循环整个表格，不知道你是要改表格的4行5列 还是输出来以后5个表格排一行？
还有疑问加QQ 看百度帐号。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
问题好像描述的不够清楚。
你现在是3行3列。
修改成4列5行？
每行每列显示什么内容？
你现在是3行3列。
修改成4列5行？
每行每列显示什么内容？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
