Avatar billede kimlarsen1978 Nybegynder
05. august 2002 - 01:09 Der 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
--------------------------------------
Avatar billede zuperjmo Nybegynder
05. august 2002 - 01:20 #1
du bruger da mysQl ik??
Avatar billede zuperjmo Nybegynder
05. august 2002 - 01:22 #2
Prøv denne kode:

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

session("kurv")=kurv1
end if
Avatar billede kimlarsen1978 Nybegynder
05. august 2002 - 01:24 #3
Hvor ligger forskellen?
Avatar billede iceworld.tk Nybegynder
05. august 2002 - 01:31 #4
Din kode:

else

kurv1=session("kurv")

ZUPERJMO'S kode

else
{
kurv1=session("kurv")
Avatar billede coltau Juniormester
05. august 2002 - 01:33 #5
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.

<%

strMode = Request.QueryString("mode")
strVareNr = Request.QueryString("varenr")

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

' Vis vareliste
Response.Write("<center>")
Response.Write("<table width='50%'>")
Response.Write("<tr><td align='center'><b>VARELISTE</b></td></tr>")
Response.Write("</table>")
Response.Write("<br>")
Response.Write("<table width='50%'>")
Response.Write("<tr><td width='10%'>Varenr</td><td width='70%'>Varetekst</td><td width='20%'>Tilføj 1 stk.</tr>")
' Vis varer
Response.Write("<tr><td width='10%'>A12</td><td width='70%'>Vare A12</td><td width='20%'><a href='?mode=insert&varenr=A12'>Tilføj</a></tr>")
Response.Write("<tr><td width='10%'>A13</td><td width='70%'>Vare A13</td><td width='20%'><a href='?mode=insert&varenr=A13'>Tilføj</a></tr>")
Response.Write("<tr><td width='10%'>A14</td><td width='70%'>Vare A14</td><td width='20%'><a href='?mode=insert&varenr=A14'>Tilføj</a></tr>")
Response.Write("<tr><td width='10%'>A15</td><td width='70%'>Vare A15</td><td width='20%'><a href='?mode=insert&varenr=A15'>Tilføj</a></tr>")
Response.Write("</table>")
Response.Write("</center>")
Response.Write("<br>")

' Vis kurv
Response.Write("<center>")
Response.Write("<table width='50%'>")
Response.Write("<tr><td align='center'><b>KURV</b></td></tr>")
Response.Write("</table>")
Response.Write("<br>")
' Vis indhold kurv
Response.Write("<table width='50%'>")
Response.Write("<tr><td width='10%'>Varenr</td><td width='70%'>Cookie</td><td width='10%' align='right'>Antal</td><td width='10%'>Fjern</td></tr>")
for each key in Request.Cookies("Kurv")
  if (Request.Cookies("Kurv")(Key) <> "0") then
    Response.Write("<tr><td width='10%'>" & Key & "</td><td width='70%'>(Kurv)(" & Key & ")=" & Request.Cookies("Kurv")(Key) & "</td><td width='10%' align='right'>" & Request.Cookies("Kurv")(Key) & "</td><td width='10%'><a href='?mode=delete&varenr=" & Key & "'>Fjern</a></td></tr>")
  end if
next

Response.Write("</table>")
Response.Write("</center>")
Response.Write("<br>")
Response.Write("<a href='?mode=reset'>Nulstil kurv</a>")

%>
Avatar billede kimlarsen1978 Nybegynder
05. august 2002 - 01:39 #6
Til coltau: Jeg kan desvære ikke bruge COOKIES, da det ikke er alle der folk der tillader brug af disse :-(

Til iceworld.tk: Ja, det kan jeg godt se ;-), men hvilken forskel gør det?
Avatar billede kimlarsen1978 Nybegynder
05. august 2002 - 01:40 #7
Ps: Coltau: Det ellers en lille smart måde at tackle det på...
Avatar billede kimlarsen1978 Nybegynder
05. august 2002 - 01:50 #8
Jeg håber, at nogen kan komme op med en løsning...
Jeg smutter på arbejde nu, men er tilbage igen i morgen engang...
Avatar billede coltau Juniormester
05. august 2002 - 01:54 #9
Acceptere cookies. ! Var det ikke i gamle dage. ?

Spøg til side - hvad er problemet. ? Den kode du viser ser jo ikke ud til at fejle noget - der er bare for lidt af det. :-)
Avatar billede oasen Nybegynder
05. august 2002 - 07:25 #10
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.
Avatar billede kimlarsen1978 Nybegynder
05. august 2002 - 09:37 #11
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.
Avatar billede coltau Juniormester
05. august 2002 - 10:26 #12
I bogen ASP (Active Server Pages) står der under anvendelse af sessions-objektet:

"Du kan kun gemme værdier i Session-objektet, hvis brugerens browser understøtter cookies, og brugeren ikke har slået understøttelsen af cookies fra."
Avatar billede kimlarsen1978 Nybegynder
05. august 2002 - 18:49 #13
Okay, så bruger jeg nok forslaget...
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester