cart_add.asp

多多网店系统v3.01 完全免费可用版-功能简介: 支持多模板皮肤色切换[8套] 支持按商品特性[推荐商品/特价商品/新品分类]浏览 支持按商品类别浏览 支持单件商品用支付宝交易按钮直接支付订

<%
dim dbpath
dbpath=""
%>
<!--#include file="conn.asp"-->
<!--#include file="include/MyRequest.asp"-->
<%
id=my_request("id",1)
ProdNum=my_request("ProdNum",0)
if ProdNum="" then ProdNum=1

sql="select * from product_info 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
rs.close
set rs=nothing

if instr(session("ProdIds"),id)>0 then
    response.write "<script language=javascript>alert('您已经将此商品加入了购物车,请不要重复加入！');javascript:history.go(-1);</script>"
    response.End
end if

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

ProdIds  = Session("ProdIds")
ProdNums = Session("ProdNums")

a = Split(id,",")
b = Split(ProdNum,",")

For I=0 To UBound(a)
    PutToShopBag a(I), ProdIds
    PutToShopBag b(I), ProdNums
Next

Session("ProdIds")  = ProdIds
Session("ProdNums") = ProdNums

//更新商品种数
y=session("y")
y=y+1
session("y")=y

response.redirect "Cart_List.asp"
%>