dreamweaver重复区域中怎么显示数据库中两个表的内容？
我用dreamweaver做重复区域，只能显示数据库中一个表的内容，添加第二个重复区域（数据库中第二个表的内容--第二个记录集），就显示不出来了，怎么解决？...
我用dreamweaver做重复区域，只能显示数据库中一个表的内容，添加第二个重复区域（数据库中第二个表的内容--第二个记录集），就显示不出来了，怎么解决？
展开
1个回答
展开全部
要用到嵌套循环，得自己改下代码。给你个实例，希望能帮到你
主要是把第二个记录集 和第二个循环的所有内容全部都放到第一个记录集里才行。
<%Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")Recordset1_cmd.ActiveConnection = MM_xcdb1_STRING
Recordset1_cmd.CommandText = "SELECT * FROM fl"
Recordset1_cmd.Prepared = true
Set Recordset1 = Recordset1_cmd.ExecuteRecordset1_numRows = 0
%>
<%Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<!DOCTYPE HTML><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body><!--第一个记录集的重复区域-->
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<div>
<p><%=(Recordset1.Fields.Item("bt").Value)%></p>
<!--第二个记录集开始-->
<%
Dim Recordset2
Dim Recordset2_cmd
Dim Recordset2_numRows
Set Recordset2_cmd = Server.CreateObject ("ADODB.Command")Recordset2_cmd.ActiveConnection = MM_xcdb1_STRING
Recordset2_cmd.CommandText = "SELECT * FROM wy"
Recordset2_cmd.Prepared = true
Set Recordset2 = Recordset2_cmd.ExecuteRecordset2_numRows = 0
%>
<!--第二个记录集的循环参数 -->
<%Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1Repeat2__index = 0
Recordset2_numRows = Recordset2_numRows + Repeat2__numRows
%>
<!--第二个记录集的重复区域-->
<%
While ((Repeat2__numRows <> 0) AND (NOT Recordset2.EOF))
%>
<div><%=(Recordset2.Fields.Item("bt").Value)%></div>
<% Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
Recordset2.MoveNext()
Wend
%>
<!--第二个记录集的重复区域结束-->
<!--关闭第二个记录集--><%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<!--第二个记录集结束-->
</div>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
<p> </p></body>
</html>
<!--关闭第一个记录集-->
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
主要是把第二个记录集 和第二个循环的所有内容全部都放到第一个记录集里才行。
<%Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")Recordset1_cmd.ActiveConnection = MM_xcdb1_STRING
Recordset1_cmd.CommandText = "SELECT * FROM fl"
Recordset1_cmd.Prepared = true
Set Recordset1 = Recordset1_cmd.ExecuteRecordset1_numRows = 0
%>
<%Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<!DOCTYPE HTML><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body><!--第一个记录集的重复区域-->
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<div>
<p><%=(Recordset1.Fields.Item("bt").Value)%></p>
<!--第二个记录集开始-->
<%
Dim Recordset2
Dim Recordset2_cmd
Dim Recordset2_numRows
Set Recordset2_cmd = Server.CreateObject ("ADODB.Command")Recordset2_cmd.ActiveConnection = MM_xcdb1_STRING
Recordset2_cmd.CommandText = "SELECT * FROM wy"
Recordset2_cmd.Prepared = true
Set Recordset2 = Recordset2_cmd.ExecuteRecordset2_numRows = 0
%>
<!--第二个记录集的循环参数 -->
<%Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1Repeat2__index = 0
Recordset2_numRows = Recordset2_numRows + Repeat2__numRows
%>
<!--第二个记录集的重复区域-->
<%
While ((Repeat2__numRows <> 0) AND (NOT Recordset2.EOF))
%>
<div><%=(Recordset2.Fields.Item("bt").Value)%></div>
<% Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
Recordset2.MoveNext()
Wend
%>
<!--第二个记录集的重复区域结束-->
<!--关闭第二个记录集--><%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<!--第二个记录集结束-->
</div>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
<p> </p></body>
</html>
<!--关闭第一个记录集-->
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
