<% '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: http://www.powereasy.net ' Copyright (C) 2005-2009 佛山市动易网络科技有限公司 版权所有 '************************************************************** Dim trs, rsProductList CartID = ReplaceBadChar(Trim(Request.Cookies("Cart" & Site_Sn)("CartID"))) If CartID = "" Or IsNull(CartID) Then CartID = MD5(Now() & Timer() & session.SessionID, 32) End If SkinID=DefaultSkinID ProductID = Trim(Request("ProductID")) PresentID = Trim(Request("PresentID")) If IsValidID(ProductID) = False Then ProductID = "" End If If IsValidID(PresentID) = False Then PresentID = "" End If IsWholesale = PE_CLng(Request("IsWholesale")) Select Case Action Case "Add" If ProductID = "" Then FoundErr = True ErrMsg = ErrMsg & "
  • 请指定要购买的产品ID!
  • " Else ProductID = PE_CLng(ProductID) ProductList = SelectCart(CartID, 0) Set trs = Conn.Execute("select ProductID,ProductType,Stocks,OrderNum,EnableSale,EnableSingleSell,DependentProducts from PE_Product where ProductID=" & ProductID & "") If trs.BOF And trs.EOF Then FoundErr = True ErrMsg = ErrMsg & "
  • 找不到指定的商品!
  • " Else If trs("EnableSale") = False Then FoundErr = True ErrMsg = ErrMsg & "
  • 商品已经停止销售!
  • " End If If trs("EnableSingleSell") = False And FoundInArr(trs("DependentProducts"), ProductList, ",") = False Then FoundErr = True ErrMsg = ErrMsg & "
  • 此商品不能直接购买!请先购买本商品的从属商品后再购买本商品
  • " End If 'If trs("Stocks") - trs("OrderNum") <= 0 Then If trs("Stocks") <= 0 Then FoundErr = True ErrMsg = ErrMsg & "
  • 实在对不起,此商品已经暂时售罄!
  • " End If If trs("ProductType") = 4 Then FoundErr = True ErrMsg = ErrMsg & "
  • 促销商品不能直接购买!
  • " End If End If Set trs = Nothing End If If FoundErr = False Then Call AddToCart(CartID, ProductID, 1, 0) End If Case "Clear" Call DelCart(CartID) Case "Modify" Call ModifyCart Case "Payment" Call ModifyCart Response.Redirect "Payment.asp" End Select If FoundErr = True Then Call WriteErrMsg(ErrMsg, ComeUrl) Response.End End If Response.Cookies("Cart" & Site_Sn)("CartID") = CartID Response.Cookies("Cart" & Site_Sn).Expires = Date + 365 ProductList = SelectCart(CartID, 0) PresentList = SelectCart(CartID, 1) If ProductList = "" Then '如果购物车为空,转入提示界面 ShowTips_CartIsEmpty = XmlText_Class("ShowTips_CartIsEmpty", "



    您好!目前您的购物车中没有任何商品,是不是继续购物





    ") Else ShowTips_CartIsEmpty = "" End If strHtml = GetTemplate(ChannelID, 9, 0) Call ReplaceCommon Call ReplaceUserInfo strHtml = Replace(strHtml, "{$ShowTips_Login}", ShowTips_Login) strHtml = Replace(strHtml, "{$ShowTips_CartIsEmpty}", ShowTips_CartIsEmpty) strHtml = Replace(strHtml, "{$ShowCart}", ShowCart()) Response.Write strHtml Call CloseConn Sub ModifyCart() If IsWholesale = 0 Then Call DelCart(CartID) End If If ProductID = "" Then Response.Write "请指定ProductID!" Exit Sub End If Dim arrProductList Dim arrPresentList Dim trs, i arrProductList = Split(ProductID, ",") For i = 0 To UBound(arrProductList) dblAmount = Request("Amount_" & Trim(arrProductList(i))) If dblAmount = "" Then dblAmount = 1 Else dblAmount = PE_CDbl(dblAmount) End If If dblAmount <= 0 Then dblAmount = 1 Set trs = Conn.Execute("select ProductID,Stocks,OrderNum,EnableSale,EnableSingleSell,DependentProducts from PE_Product where ProductID=" & arrProductList(i) & "") If Not (trs.BOF And trs.EOF) Then If (trs("EnableSale") = True) And (trs("EnableSingleSell") = True Or (trs("EnableSingleSell") = False And FoundInArr(trs("DependentProducts"), ProductID, ",") = True)) And trs("Stocks") > 0 Then Call AddToCart(CartID, arrProductList(i), dblAmount, 0) End If End If Set trs = Nothing Next arrPresentList = Split(PresentID, ",") For i = 0 To UBound(arrPresentList) Call AddToCart(CartID, arrPresentList(i), 0, 1) Next End Sub %>