buy.asp

购物系统时尚版.强大的后台文章编辑器的功能

<%
dim key,toppath,dbpath
key="a2"
toppath=""
dbpath=""
%>
<!--#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"
%>