cart_list.asp

非常有商业价值的软件

<%
'如果购买车为空，转入错误界面
ProductList = Session("ProductList")
If Len(ProductList) = 0 Then
Response.write "<script>alert(""对不起，您的购物车为空！"");location.href=""index.asp"";</script>"
Response.end
end if

Sub PutToShopBag( mc, ProductList )
   If Len(ProductList) = 0 Then
      ProductList =mc
   ElseIf InStr( ProductList, mc ) <= 0 Then
      ProductList = ProductList & ","& mc
   End If
End Sub

'取消要购买物品的处理
If Request("cmdShow") = "Yes" Then
   ProductList = ""
   Products = Split(nosql(request("mc")), ",")
   For I=0 To UBound(Products)
      PutToShopBag Products(I), ProductList
   Next
   Session("ProductList") = ProductList
   'response.write Session("ProductList")
End If

response.write "<form action=my_cart_list.asp method=POST name=form1>"
response.write "<input type=hidden name=cmdShow value=Yes>"
response.write "<table border=1 width=711 style='border-collapse: collapse' bordercolor=#ACA793 height=252 class=12px>"
response.write "<tr>"
response.write "<td valign=top>"
response.write "<table width=766 border=0>"
response.write "<tr>"
response.write "<td>　</td>"
response.write "</tr>"
response.write "</table>"
response.write "<table border=0 width=766 cellspacing=1>"
response.write "<tr>"
response.write "<td width=123>购买</td>"
response.write "<td>商品名称</td>"
response.write "<td>单价</td>"
response.write "<td>数量</td>"
response.write "<td>金额</td>"
response.write "</tr>"


'数据库操作
if productlist<>"" then
sql="select * from yqj_product where id in ("&productlist&") order by id"
Set rs = conn.Execute( sql )
'response.write sql
else
response.write "<script language=javascript>alert('对不起，您的购物车为空！');window.close();</script>"
response.End
end if

   'On Error Resume Next
   Sum = 0
   While Not rs.EOF
   RMB=rs("p_mmoney")
   Quatity = CInt( Request( "Q_" & rs("p_name")))
     If Quatity <= 0 Then 
      Quatity = CInt( Session(rs("p_name")))
      If Quatity <= 0 Then Quatity = 1
    End If
    Session(rs("p_name")) = Quatity
   Sum = Sum + csng(rmb) * Quatity
   Sum=FormatNumber(Sum,2) 
   session("sum")=sum
response.write "<tr>"
response.write "<td width=123>"
response.write "<input type=CheckBox name=mc value="&rs("id")&" checked onFocus=this.blur()></td>"
response.write "<td>"&rs("p_name")&"</td>"
response.write "<td>"&rmb&"元(RMB)</td>"
response.write "<td>"
response.write "<input name=""Q_"&rs("p_name")&""" type=Text value="&Quatity&" size=5 maxlength=5>"
response.write "</td>"
response.write "<td>"&FormatNumber(csng(rmb)*Quatity,2)&"元</td>"
response.write "</tr>"

rs.MoveNext
Wend

response.write "</table>"
response.write "<table border=0 width=766 cellspacing=1>"
response.write "<tr>"
response.write "<td>"
response.write "<p align=right>合计价格："&sum&"元(RMB)</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td>"
response.write "<p align=center><input name=Submit type=button id=Submit onclick='javascript:window.close()' value=继续购物 onFocus='this.blur()'>"
response.write "&nbsp; <input name=order type=submit value=更新购物车 onFocus='this.blur()'>"
response.write "&nbsp; <input name=Submit2 type=button onClick='javascript: confirmdel()' value=清空购物车 onFocus='this.blur()'>"
response.write "&nbsp; <input name=Submit3 type=button onclick=""window.location='gathering.asp'"" value=结算中心 onFocus='this.blur()'></td>"
response.write "</tr>"
response.write "</table>"
response.write "</form>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
%>