请问如何解决:在进行产品订购时.购物车的功能如何成功建立起来!

andie2008 2006-01-24 02:34:31

产品订购页面程序:

inproducts.asp

<a href="#" onClick="javascript:window.open('shop.asp?ProdId=<%=Trim(ProdId)%>','Order','width=660,height=500,toolbar=yes, status=no, menubar=no, resizable=no,scrollbars=yes');"><img src="images/shoppingcar.gif" border="0"></a>

shop.asp

<%
buylist = request.cookies("buyok")("cart")
buyid = Request("Prodid")
if buylist="" and buyid="" then
response.redirect "../buyok30_error.asp?error=007"
response.end
end if
If Len(buylist) = 0 Then
buylist = "'" & buyid & "', '1'"
ElseIf InStr( buylist, buyid ) <= 0 Then
buylist = buylist & ", '" & buyid & "', '1'"
End If
response.cookies("buyok")("cart") = buylist
response.redirect "shoppingcart.asp"
%>

shoppingcart.asp

<%
call aspsql()
buylist=request.cookies("buyok")("cart")
if trim(request("del"))<>"" then
buylist=replace(buylist,trim(request("del")),"XXXXXXXX")
response.cookies("buyok")("cart")=buylist
end if
If Request("edit") = "ok" Then
buylist = ""
buyid = Split(Request("ProdId"), ", ")
For I=0 To UBound(buyid)
if i=0 then
buylist = "'" & buyid(I) & "', '"&request(buyid(I))&"'"
else
buylist = buylist & ", '" & buyid(I) & "', '"&request(buyid(I))&"'"
end if
Next
response.cookies("buyok")("cart") = buylist
End If
if buylist="" then
response.cookies("buyok")("total")=0
response.redirect "buyok30_error.asp?error=007"
response.end
else
Set rs=conn.execute("select * from bproduct where ProdId in ("&buylist&") order by ProdId")
if rs.eof and rs.bof then
response.cookies("buyok")("cart") = ""
response.cookies("buyok")("total")=0
response.redirect "buyok30_error.asp?error=007"
response.end
end if
end if
%>

接下去的是读取产品信息形成购物车的文件!

...全文