不同页面复选框传多个值问题（急！狠谢！）

bcs_tec 2007-10-07 04:08:45

这是个购物车，实现选择几个商品提交到第二个页面，然后填写客户信息提交到数据库。
第一个页面product.asp，把复选框选中的值传到第二个页面horder.asp列表显示出来，然后填写表单，插入数据库中。
可是第一个页面总是只传一个值过去，而且无论选择哪个，都固定一个值。
整了两天了，都没能解决啊，请高手赐教！很急，在线等。
'-------------------------------------------------------------------
'product.asp第一个页面form内容
<form name="form3" method="post" action="hOrder.asp">
<tr bgcolor="#E8E8E8" align="center">
<td class="chinese" width="10%" bgcolor="#F5F5F5">订购</td>
<td class="chinese" width="20%" bgcolor="#F5F5F5">型号</td>
<td bgcolor="#F5F5F5" width="20% class="chinese">封装</td>
<td class="chinese" width="20%" bgcolor="#F5F5F5">品牌</td>
<td class="chinese" width="10%" bgcolor="#F5F5F5">批号</td>
<td class="chinese" width="12%" bgcolor="#F5F5F5">库存数量</td>
<td class="chinese" width="18%" bgcolor="#F5F5F5">备注</td>
</tr>
<%if Not rs.EOF then
dim newsperpage
newsperpage=20
rs.movefirst
rs.pagesize=newsperpage
if trim(request("page"))<>"" then
page1=trim(request("page"))
' if check_num(page1)=true then
if cbool(page1)=true then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
End if
else
currentpage=1
end if
else
currentpage=1
End if
totalnews=rs.recordcount
if currentpage<>1 then
if (currentpage-1)*newsperpage<totalnews then
rs.move(currentpage-1)*newsperpage
dim bookmark
bookmark=rs.bookmark
End if
End if
if (totalnews mod newsperpage)=0 then
totalpages=totalnews\newsperpage
else
totalpages=totalnews\newsperpage+1
End if
i=0
Do While Not rs.EOF and i<newsperpage
%> <tr>
<td bgcolor="#FFFFFF" class="chinese">
<label>
<input type="checkbox" name="p_id" value="<%=rs("p_id")%>">
</label>
</td>
<td bgcolor="#FFFFFF" class="chinese"><A href="showProDetail.asp?ProID=<%=rs("p_id")%>" target="blank"class="money"><%=rs("p_name")%></A></td>
<td bgcolor="#FFFFFF" class="chinese"><%= rs("p_spec") %></td>
<td bgcolor="#FFFFFF" class="chinese"><%= rs("p_type") %></td>
<td bgcolor="#FFFFFF" class="chinese"><%= rs("p_small_type") %></td>
<td bgcolor="#FFFFFF" class="chinese"><%= rs("p_jianjie") %></td>
<td bgcolor="#FFFFFF" class="chinese"><%= rs("p_epitome") %></td>
</tr>
<%i=i+1
rs.movenext
loop
else
if rs.EOF and rs.BOF then%>
<tr align="center">
<td bgcolor="#FFFFFF" colspan="3" class="chinese">当前没有产品！</td>
</tr>
<%End if
End if%>
<input type="submit" name="Submit" value="我选定了">
</form>

'-------------------------------------------------------------------
'horder.asp第二个页面部分
<TBODY>
<TR>
<TD height=5 colspan="2"></TD>
</TR>
<TR>
<TD height=278 align="left" valign="middle">
<%
'get_id = Request.Form("get_id")
j = split("p_id",",")
for i=0 to UBound(j)
'response.write j(i)&"<br>"
p_id2=j(i)

'ProID = strreplace(clng(request("p_id")))
sql = "select * from P_info where p_id = "&p_id2&""
'ProID = strreplace(clng(request("ProID")))
'sql = "select * from P_info where p_id = "& ProID
set rs = conn.execute(sql)
if not(rs.eof and rs.bof) then
'next
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
<form action="OrderPost.asp" method="post" name="form0" target="_self">
<input name="bookpost" type="hidden" value="bookpost">

<tr>
<td width="0" align="left" rowspan="11"></td>
<td height="25" colspan="2" align="left">
<table width="100%" border="1">
<tr>
<td>型号</td>
<td>品牌</td>
<td>封装</td>
<td>批号</td>
<td>订购数量</td>
<td>目标价格</td>
<td>接收货期</td>
</tr>
<tr>
<td><input name="proname" type="text" id="proname2" size="20" maxlength="40" value="<%=rs("p_name")%>"></td>
<td><input name="propp" type="text" id="propp2" size="20" maxlength="40" value="<%=rs("p_type")%>"></td>
<td><input name="proxh" type="text" id="proxh2" size="20" maxlength="40" value="<%=rs("p_spec")%>"></td>
<td><input name="proph" type="text" id="proph2" size="20" maxlength="40" value="<%=rs("p_small_type")%>"></td>
<td><input name="num" type="text" id="num2" size="20" maxlength="40"></td>
<td><input name="price" type="text" id="price2" size="20" maxlength="40"></td>
<td><input name="cpbz" type="text" id="cpbz2" size="20" maxlength="40"></td>
</tr>
</table></td>
</tr>

<tr>
<td width="71" height="25" align="left" valign="top">  地址:<span class="style6">*</span></td>
<td width="811" height="25" align="left"><input name="addr" type="text" id="addr2" size="40" maxlength="50"></td>
</tr>
<tr>
<td height="25" align="left">  电话:<span class="style6">*</span></td>
<td height="25" align="left"><input name="tel" type="text" id="tel2" size="40" maxlength="50"></td>
</tr>
<tr>
<td height="25" align="left">  联系人:*</td>
<td height="25" align="left"><input name="company" type="text" id="company2" size="40" maxlength="50"></td>
</tr>
<tr> </tr>
<tr>
<td height="12" align="left" valign="top">  备注:</td>
<td height="0" align="left"><textarea name="bz" cols="45" rows="8" id="textarea2" style="font-size:12px"></textarea></td>
</tr>
<tr>
<td height="25" align="left">  日期:</td>
<td height="25" align="left"><input name="ordertime" type="text" id="ordertime2" value="<%=date()%>" size="40" maxlength="50"></td>
</tr>
<tr align="left" valign="middle">
<td height="30" colspan="2"><input type="submit" name="Submit2" value=" 提交 " class="button">
<input type="reset" name="Submit22" value="取消" class="button"></td>
</tr>
</form>
<%
end if
next
%>
</table>
</TD>
</TR>
<TR>
<TD height="0" colspan="2" background=images/main_heng.gif>
注：带"<span class="style6"><font color="#FF0000">*</font>"号的为必填选项！</span></TD>
</TR>
<TR>
<TD
height=15 colspan="2" align=right> </TD>
</TR>
</TBODY>

...全文