等等,等等,我试试先啊…………
[此贴子已经被作者于2006-12-4 14:07:10编辑过]
对不起,之前没有看清楚你的代码和注释,现在按你上面的做,可是只有订单的循环了,产品方面还是没有循环,值是有的,只是循环了第一条记录的值,而没有没数据库中再取其它产品相对应的值…………
代码…………
<%
'接收传递过来的订单编号
MCode=request("Mcode")
'查询订单表,rs
set rs= server.CreateObject("adodb.recordset")
sql = "select * from D_Order where M_Code='"&Mcode&"'"
'response.Write sql
rs.open sql,MM_Coon_STRING,1,1
'接收传递过来的产品订单的ID列表
a=request.Form("id")
if a<>"" then
b=split(a,",")
for i=0 to UBound(b)
if i = 0 then m=b(i)
if i <>0 then m=m&","&b(i)
next
m="("&m&")"
'查询产品数据库列表…………
for n=1 to rs.recordcount '循环已经开始
set rs1= server.CreateObject("adodb.recordset")
sql1 = "select * from Products where M_id in "&m
'response.Write sql
rs1.open sql1,MM_Coon_STRING,1,1
'以下是表格,开始循环…………
%>
<tr>
<td align="center" valign="middle"><img src="<%=rs1("M_Foto")%>" width="30" height="30" /></td>
<td align="center" valign="middle"><a href="../admin/Productdetail.asp?id=<%=rs("M_id")%>"><%=rs("M_Itemno")%></a></td>
<td align="center" valign="middle"><%=rs1("M_Description")%></td>
<td align="center" valign="middle"><%=rs("M_quantity")%></td>
<td align="center" valign="middle"><%=rs1("M_Unit")%></td>
<td align="center" valign="middle"><%=rs1("M_RMBPrice")%></td>
<td align="center" valign="middle"> </td>
<td align="center" valign="middle"><%=rs1("M_Master")%></td>
<td align="center" valign="middle"><%=(rs1("M_Master")*rs("M_quantity"))%></td>
<td align="center" valign="middle"><%=rs1("M_L")%>*<%=rs1("M_W")%>*<%=rs1("M_H")%></td>
<td align="center" valign="middle"><%=rs1("M_Cbm")%></td>
<td align="center" valign="middle"><%=rs1("M_Cbm")*rs("M_quantity")%></td>
<td align="center" valign="middle"></td>
</tr>
<%
rs.movenext
rs1.close'这一句有没有无所谓,如果是iis6以前的版本那必须关了并nothing
set rs1=nothing
next
%>
<tr>
<td colspan="14" align="right" valign="middle">
<br />
<br />
<br />
<br />
<div id="Layer3">
<div id="Layer4"><img src="../Images/qian.gif" width="98" height="135" /></div>
</div></td>
</tr>
</table>
<%
rs.close
%>