cart_add.asp

网上购物系统

<!--#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 prod_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

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

Sub PutToShopBag( add, x )
	p=split(x,",")
    If Len(x) = 0 Then
        x = add
    Else
    	for i=0 to ubound(p)
			if p(i)=add then
    			response.write "<script language=javascript>alert('重复！');javascript:history.go(-1);</script>"
    			response.End
    		end if
		next
		x = x & "," & add
    End If
End Sub

'非相同过滤过程
Sub PutToShopBag2( x, y ) 
    If Len(y) = 0 Then
        y = x
    Else
        y = y & ","& x
    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
    PutToShopBag2 b(I), ProdNums
Next

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

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

response.redirect "Cart_List.asp"
%>