radera en cookie — webForum

aleborgMedlem sedan jan. 20013 341 inlägg

Trådstart2 maj 2002 07:22#1

Jag har gjort följande kod för att lägga till varor i en kundkorg i en webshop, men hur gör jag för att ta bort en vara?
om man sätter en varas antal(items) till noll så finns produkten fortfarande kvar i korgen men den kostar inget. Den behövs ta bort helt!

If Request.QueryString("webshop")<>"" Then
	 If Request.QueryString("add_prod")<>"" Then
	 		artNr=trim(Request.querystring("add_prod"))

			Response.Cookies(artNr)("ProdID") = artNr
			
			If Request.Form("Items")<>"" Then
				 		 Response.Cookies(artNr)("Items") = Request.Form("Items")
			Else
					Response.Cookies(artNr)("Items") = 1
			End If
			If Request.Form("Extra_1")<>"" Then
				 Response.Cookies(artNr)("Extra_1") = Request.Form("Extra_1")
			Else
					Response.Cookies(artNr)("Extra_1") = ""
			End If
			If Request.Form("Extra_2")<>"" Then
				 Response.Cookies(artNr)("Extra_2") = Request.Form("Extra_2")
			Else
					Response.Cookies(artNr)("Extra_2") = ""
			End If
			If Request.Form("Extra_3")<>"" Then
				 Response.Cookies(artNr)("Extra_3") = Request.Form("Extra_3")
			Else
					Response.Cookies(artNr)("Extra_3") = ""
			End If
			If Request.Form("Extra_4")<>"" Then
				 Response.Cookies(artNr)("Extra_4") = Request.Form("Extra_4")
			Else
					Response.Cookies(artNr)("Extra_4") = ""
			End If
			If Request.Form("Extra_5")<>"" Then
				 Response.Cookies(artNr)("Extra_5") = Request.Form("Extra_5")
			Else
					Response.Cookies(artNr)("Extra_5") = ""
			End If
			If Request.Form("Extra_6")<>"" Then
				 Response.Cookies(artNr)("Extra_6") = Request.Form("Extra_6")
			Else
					Response.Cookies(artNr)("Extra_6") = ""
			End If
			If Request.Form("Extra_7")<>"" Then
				 Response.Cookies(artNr)("Extra_7") = Request.Form("Extra_7")
			Else
					Response.Cookies(artNr)("Extra_7") = ""
			End If
			If Request.Form("Extra_8")<>"" Then
				 Response.Cookies(artNr)("Extra_8") = Request.Form("Extra_8")
			Else
					Response.Cookies(artNr)("Extra_8") = ""
			End If
			If Request.Form("Extra_9")<>"" Then
				 Response.Cookies(artNr)("Extra_9") = Request.Form("Extra_9")
			Else
					Response.Cookies(artNr)("Extra_9") = ""
			End If
			If Request.Form("Extra_10")<>"" Then
				 Response.Cookies(artNr)("Extra_10") = Request.Form("Extra_10")
			Else
					Response.Cookies(artNr)("Extra_10") = ""
			End If

			Response.Redirect "webshop_cart.asp?webshop="& Request.QueryString("webshop")
End if

For each item in Response.Cookies
			 prodid = Request.Cookies(item)("ProdID") &","& prodid
			 antal =  Request.Cookies(item)("Items") &","& antal
			 extra_1 =  Request.Cookies(item)("Extra_1") &","& extra_1
			 extra_2 =  Request.Cookies(item)("Extra_2") &","& extra_2
			 extra_3 =  Request.Cookies(item)("Extra_3") &","& extra_3
			 extra_4 =  Request.Cookies(item)("Extra_4") &","& extra_4
			 extra_5 =  Request.Cookies(item)("Extra_5") &","& extra_5
			 extra_6 =  Request.Cookies(item)("Extra_6") &","& extra_6
			 extra_7 =  Request.Cookies(item)("Extra_7") &","& extra_7
			 extra_8 =  Request.Cookies(item)("Extra_8") &","& extra_8
			 extra_9 =  Request.Cookies(item)("Extra_9") &","& extra_9
			 extra_10 =  Request.Cookies(item)("Extra_10") &","& extra_10
Next

PatrikBMedlem sedan mars 20002 836 inlägg

2 maj 2002 17:19#2

Du får helt enkelt "filtrera" bort det genom kodning. Kolla om själva cookiekeyn innehåller ngt eller inte. Om den innehåller ngt så visa annars göm.

En annan sak. Du borde kunna koda om detta utan sååå många if-satser som du har nu eftersom alla if-satser endast byter en siffra. Ser annars exakt lika dana ut.

For N = 1 TO 10
	If Request.Form("Extra_" & N)<>"" Then
		Response.Cookies(artNr)("Extra_" & N) = Request.Form("Extra_" & N)
	Else
		Response.Cookies(artNr)("Extra_" & N) = ""
	End If
Next

bara ett förslag

cya,
PatrikB