<%@ LANGUAGE="VBScript" %>
<!--#include file="Inc/Conn.asp" -->
<!--#include file="Lock.asp"-->
<!--#include file="Inc/Util.asp" -->
<%
product_id=Request("proid")
Set rsp=Conn.Execute("Select * From [Product] Where Product_ID='"&product_id&"' ")
If rsp.Eof or rsp.Bof Then Response.Redirect "Product.asp"
If Session("ProductList")="''" or product_id="" Then
Session("ProductList")=""
Response.Redirect "Product.asp"
End if
If Session("ProductList")="" Then
Session("ProductList") = "'" & product_id & "'"
ElseIf InStr(Session("ProductList"),product_id) <= 0 Then
Session("ProductList") = Session("ProductList") & ",'" &product_id& "'"
End if
ProductList = Session("ProductList")
Set rs=Server.Createobject("Adodb.Recordset")
Sql = "Select * From [Product] Where [Product_ID] In (" & ProductList & ")"
rs.Open Sql,Conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>以下是您所选购的物品清单</title>
<LINK href="ziyan/Style.css" type=text/css rel=stylesheet>
</head>
<script language="Javascript">
function clean()
{
window.location.href="ShopClear.asp"
}
</script>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center"> <br>
  <table width="98%" border="0" align="center" cellspacing="0">
    <tr>
<td width="80%" valign="top"><p align="center">
</p>
<p align="center">
<font color="#FF0000" ><%=Head%></font></p>
           <form Action="ShopCheck.asp" Method="POST"  name="FrontPage_Form1">
          <input type="hidden" name="MySelf" value="Yes">
          <div align="center"><center>
              <table border="0" cellspacing="1" width="100%"  cellpadding="0" bgcolor="#CCCCCC">
                <tr> 
                  <td align="center" width="168"  height="22" bgcolor="#eeeeee">商品编号</td>
                  <td align="center" width="463"  height="22" bgcolor="#eeeeee">商品名称</td>
                  <td width="170" height="22" align="center" bgcolor="#eeeeee">购买</td>
                </tr>
<%
Do While Not rs.Eof
%>
                <tr> 
                  <td align="center" width="168" bgcolor="#FFFFFF"><%=rs("Product_ID")%> 
                  </td>
                  <td width="463" align="center" bgcolor="#FFFFFF"><%=rs("Name")%>
                  </td>
                  <td align="center" bgcolor="#FFFFFF"> 
                 <input Type="CheckBox" Name="<%Response.Write "C_" & rs("ID")%>" Value="<%=rs("ID")%>" Checked> 
                  </td>
                </tr>
<%
rs.MoveNext
Loop
%>
                <tr> 
                  <td height="22" ColSpan="3" Align="Right" bgcolor="#FFFFFF">&nbsp;</td>
                </tr>
              </table>
</center></div><blockquote>
<p align="center">
<input type="button" value="继续购物" name="B2" onclick="window.close();">&nbsp;&nbsp;&nbsp;
<input type="button" value="订单取消" name="B3" OnClick="clean()">&nbsp;&nbsp;&nbsp;
<input type="submit" value="去收银台" name="B4" >&nbsp;&nbsp;&nbsp;
<input type="button" value="关闭" name="B5" onclick="window.close();"></blockquote>
</form>
</td></tr></table>
</div>
<%
rs.close
conn.close
%>

</body>
</html>