14. august 2002 - 22:47Der er
16 kommentarer og 1 løsning
"coltau" er du online?
Hey Jeg har lige et spg til det indkøbsscript du forslo mig den anden dag. Der hvor man sætter vare i kurven: ---------------------- 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 ----------------------- Det virker kun hvis varenumret består af ét bogstav og derefter tal. Fx A12 virker fint, men Ae12 virker ikke - hvorfor? Det vil sige den første tilføjes fint, men efterfølgende skifter antallet ikke til 2 hvis man køber varen igen
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.
I kan da få hele scriptet her: ------------------------- 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 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>") -------------------------- Det virker kun hvis varenumret består af ét bogstav og derefter tal. Fx A12 virker fint, men Ae12 virker ikke - hvorfor? Det vil sige den første tilføjes fint, men efterfølgende skifter antallet ikke til 2 hvis man køber varen igen
Ja LCase til små bogstaver UCase laver om til store bogstaver.
Ok prøvede også lige at lave både et Ae12 og et AE12 vareNr. Cookien er ikke case senativ så den er ligeglad om det er Ae12 eller AE12 man skriver, men if sætningen er som før skrevet case senativ. Så det er ikke lige meget om det er Ae12 eller AE12.
Det må være fordi Cookien gemmer det som store bogstaver selv om det er angivet med små.
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.