包括前台后台
<!--#include file="Util.asp" -->
<%
Head="以下是您所选购的物品清单"
ProductList = Session("ProductList")
If Len(ProductList) = 0 Then Response.Redirect "Nothing.asp"
DbPath = SERVER.MapPath("gw.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath & ";PWD='sa';UID=''"
If Request("MySelf") = "Yes" Then
ProductList = ""
Products = Split(Request("spID"), ", ")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList
End If
sql = "Select * From sp Where trim(spID) In (" & ProductList & ") Order By spID"
Set rs = conn.Execute( sql )
%>
<HTML>
<HEAD><TITLE><%=Head%></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></HEAD>
<BODY background=" " bgcolor="#98D7FF" text="#000000" link="#660000" vlink="#003399" alink="#999933">
<H2 ALIGN=CENTER><%=Head%></H2>
<hr>
<CENTER>
<Form Action=Check.asp Method=POST>
<Input Type=Hidden Name=MySelf Value=Yes>
<TABLE Border=1 bordercolordark="#999966" bordercolorlight="#CCCC99">
<TR BGCOLOR=#00FFFF>
<TD><font face="宋体">取消</font></TD>
<TD><font face="宋体">商品编号</font></TD>
<TD><font face="宋体">商品名称</font></TD>
<TD><font face="宋体">单价</font></TD>
<TD><font face="宋体">数量</font></TD>
<TD><font face="宋体">总价</font></TD>
<TD><font face="宋体">商品简介</font></TD></TR>
<%
Sum = 0
While Not rs.EOF
Quatity = CInt( Request( "Q_" & rs("spID")) )
If Quatity <= 0 Then
Quatity = CInt( Session(rs("spID")) )
If Quatity <= 0 Then Quatity = 1
End If
Session(rs("spID")) = Quatity
Sum = Sum + CDbl(rs("Price")) * Quatity
%>
<TR>
<TD Align=Center><font face="宋体"><Input Type=CheckBox Name="spID" Value="<%=rs("spID")%>" Checked></font></TD>
<TD><font face="宋体"><%=rs("spID")%></font></TD>
<TD><font face="宋体"><%=rs("spName")%></font></TD>
<TD Align=Right><font face="宋体"><%=rs("Price")%></font></TD>
<TD><font face="宋体"><Input Type=Text Name="<%="Q_" & rs("spID")%>" Value=<%=Quatity%> Size=3></font></TD>
<TD Align=Right><font face="宋体"><%=CDbl(rs("Price"))*Quatity%></font></TD>
<TD><font face="宋体"><%=rs("spnote")%> </font></TD>
</TR>
<%
rs.MoveNext
Wend
%>
<TR><TD Align=Right ColSpan=7><font face="宋体"><Font Color=Red>总价格=<%=Sum%></Font></font></TD></TR>
</TABLE>
<Input Type=Submit Value=" 更改数量 ">
</Form>
<hr>
<a href=tj.htm> <font size="5">提交订单</font></a>
<A HREF=Clear.asp><font size="5">退回所有物品</font></A>
<P>
<% ListCategory conn %>
</font></BODY>
</HTML>
