05. august 2002 - 01:09Der er
12 kommentarer og 1 løsning
Kan det laves om?
Hej. Jeg har i et eksempel fundet denne indkøbskurv, men jeg har lidt problemer med at forstå scriptet og dermed også lidt "bøvl" med at insætte det på min side. Spørgsmålet er så kan det laves med samme virkning på en anden måde? -------------------------------- If IsArray(Session("kurv")) = false Then Dim kurv1(19,1) kurv1(1,0)=productid kurv1(1,1)=request.form("antal") Session("kurv") = kurv1 else
kurv1=session("kurv") i_kurv=false for i=lbound(kurv1) to ubound(kurv1) if kurv1(i,0)="" and kurv1(i,1)="" and not(inkurv) then kurv1(i,0)=productid kurv1(i,1)=request.form("antal") i_kurv=true end if next
session("kurv")=kurv1 end if --------------------------------------
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
If IsArray(Session("kurv")) = true Then Dim kurv1(19,1) kurv1(1,0)=productid kurv1(1,1)=request.form("antal") Session("kurv") = kurv1 else {
kurv1=session("kurv") i_kurv=false for i=lbound(kurv1) to ubound(kurv1) if kurv1(i,0)="" and kurv1(i,1)="" and not(inkurv) then kurv1(i,0)=productid kurv1(i,1)=request.form("antal") i_kurv=true end if next
Jeg lavede en indkøbskurv i morges i anden sammenhæng. Den anvender Cookie på en let måde. Prøv at kopiere koden og test det lidt - det skulle være rimeligt let at implementere i anden sammenhæng.
if strMode = "reset" then ' Nulstil kurv for each Key in Request.Cookies("Kurv") Response.Cookies("Kurv")(Key) = "0" next end if
if strMode = "insert" then ' Indsæt vare i kurv Found = False for each Key in Request.Cookies("Kurv") if Key = strVareNr then Response.Cookies("Kurv")(Key) = CStr(CInt(Request.Cookies("Kurv")(Key)) + 1) ' Antal = Antal + 1 Found = True exit for end if next if not Found then Response.Cookies("Kurv")(strVareNr) = "1" end if end if
if strMode = "delete" then ' Slet vare fra kurv for each Key in Request.Cookies("Kurv") if Key = strVareNr then Response.Cookies("Kurv")(Key) = "0" exit for end if next end if
Om du bruger sessions eller cookies er ligefedt. Hvis brugeren har sat sikkerhedsniveauet for lavt eller helt fravalgt cookies, så kan serveren heller ikke lægge noget sessionID på din maskine.
Den kode jeg har nu virker fint, det er bare at jeg har lidt svært ved at forstå den, da den er hentet fra et eksempel. Jeg villle gerne have en kode jeg selv forstår 100%, den med COOKIES er forstår jeg fint - og er det oasen siger rigtig kan jeg jo lige så godt bruge den.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.