buygoods.asp

来自「非常有商业价值的软件」· ASP 代码 · 共 34 行

<!--#include file="db_conn.asp"-->
<!--#include file="my_lib/my_request.asp"-->
<%
id=my_request("id",1)
sql="select * from yqj_product where id="&id
set rs=conn.execute (sql)
if (rs.eof and rs.bof) then
response.write "<script language=javascript>alert('您选择的商品不存在！');javascript:history.go(-1);</script>"
response.End
end if


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



ProductList = Session("ProductList")

Products = Split(id,",")

For I=0 To UBound(Products)
   PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList
'response.write Session("ProductList")
response.redirect "my_cart_list.asp"
%>