<% ConnectionDatabase() %> <% Dim TempID,YuenHingOrder TempID = Trim(Request("TempID")) TempValue = Trim(Request("valuestr")) YuenHingOrder = Request.Cookies("YuenHing")("YuenHingOrder") Select Case Trim(Request.QueryString("action")) Case "add" Call AddNum(TempID) Case "sub" Call SubNum(TempID) Case "cgQty" Call ChangeQuantity(TempID,TempValue) Case "del" Call DelPro(TempID) Case "delAll" Call DelAllPro() End Select Sub AddNum(TempID) IF TempID="" Then response.Write("") response.end End IF Set rs = Server.CreateObject("Adodb.Recordset") sql = "Select ProductQuantity from HTX_Order_Pro where CookieID='"&YuenHingOrder&"' and TempID=" & TempID rs.open sql,conn,1,3 IF not rs.eof Then rs(0) = rs(0) + 1 rs.update End IF rs.close Set rs = nothing Response.Redirect("cart.asp") Response.End() End Sub Sub ChangeQuantity(TempID,TempValue) IF TempID="" Then response.Write("") response.end End IF IF TempValue = "" Then TempValue = 1 IF TempValue = "0" Then TempValue = 1 '**************************產品庫存檢查--開始****************************** Set rs = Server.CreateObject("Adodb.Recordset") sql = "Select ProductID from HTX_Order_Pro where CookieID='"&YuenHingOrder&"' and TempID=" & TempID rs.open sql,conn,1,1 IF not rs.eof Then ProductID = rs(0) End IF rs.close Set rs = nothing IF CInt(GetProStore(ProductID)) = 0 Then Response.Write("") Response.end ElseIF CInt(GetProStore(ProductID)) < CInt(TempValue) Then Response.Write("") Response.end End IF '**************************產品庫存檢查--結束****************************** Set rs = Server.CreateObject("Adodb.Recordset") sql = "Select ProductQuantity from HTX_Order_Pro where CookieID='"&YuenHingOrder&"' and TempID=" & TempID rs.open sql,conn,1,3 IF not rs.eof Then rs(0) = TempValue rs.update End IF rs.close Set rs = nothing Response.Redirect("cart.asp") Response.End() End Sub Sub SubNum(TempID) IF TempID="" Then response.Write("") response.end End IF Set rs = Server.CreateObject("Adodb.Recordset") sql = "Select ProductQuantity from HTX_Order_Pro where CookieID='"&YuenHingOrder&"' and TempID=" & TempID rs.open sql,conn,1,3 IF not rs.eof Then IF rs(0) > 1 Then rs(0) = rs(0) - 1 End IF rs.update End IF rs.close Set rs = nothing Response.Redirect("cart.asp") Response.End() End Sub Sub DelPro(TempID) IF TempID="" Then response.Write("") response.end End IF conn.execute("delete * from HTX_Order_Pro where CookieID='"&YuenHingOrder&"' and TempID="&TempID) Response.Redirect("cart.asp") Response.End() End Sub Sub DelAllPro() conn.execute("delete * from HTX_Order_Pro where CookieID='"&YuenHingOrder&"'") Response.Redirect("cart.asp") Response.End() End Sub %>