20 svar · 411 visningar · startad av Mika3l
Hejsan!
Håller på att fixa till en liten webbshop och jag har nu kommit till kundvagnen.
Från början så hade jag tänkt att spara kundens varor i en databas(kundvagn.mdb) tillfälligt och sedan när man beställer skicka över posterna till en annan databas(admin.mdb) istället.
Men om besökaren bara lämnar sidan med en massa varor i kundvagnen så ligger ju dom posterna kvar i databasen och det tar kraft och utrymme.
Så därför tänkte jag spara varorna i kakor istället.
Men hur ska jag spara kakorna?
Jag vill spara flera värden i kakorna; PID(Produktens ID), namn, pris och antal.
Hur sparar men dessa kakor?
RED: Och hur gör man för att dom inte ska "spara över" varandra?
Dim vararray
vararray = skapar en array...
Response.Kaka("varor") = vararray
Är det något sådant man kan använda?
Priser och sådant skickar jag med i ett formulär.
Eller ska man bara skicka med alla produkters PID och sedan ta ut infon man behöver från databasen?
Det borde bli ganska krångligt? 
Någon som kan hjälpa mig?
Varorna kan sparar i sessions också om det skulle vara bättre...
/Mika3l
Wee, 100 inlägg på Wf! 
Hipp hipp hurra 
Kom på en fråga till.
När man ska administrera webbshoppen och lägga till nya produkter i produktdatabasen så vill jag att man ska kunna lägga in bilder i databasen eller i en speciell mapp genom att skriva den lokala adressen till bilden och sedan ska den skickas upp till en mapp på servern(images), blir det till att använda AspUpload?
Att spara produktens alla texter är inga problem.
Det ska gå att ladda upp max 3 bilder.
Tacksam för svar!
/Mika3l
uploadgrejjen kan du göra så här:
(om jag nu fattade frågan rätt(kanske lite för trött för sånt här nu))
sida1
<HTML>
<BODY BGCOLOR="#FFFFFF">
<%
If request.querystring("id") <> "" Then
Session("id") = Trim(Request.querystring("id"))
%>
<h2>Ladda upp filer.</h2>
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="UploadScript2.asp">
<INPUT TYPE=FILE SIZE=60 NAME="FILE1" style="font-family: Verdana; font-size: 10px; border-style: solid; border-width: 1px"><BR>
<INPUT TYPE=FILE SIZE=60 NAME="FILE2" style="font-family: Verdana; font-size: 10px; border-style: solid; border-width: 1px"><BR>
<INPUT TYPE=FILE SIZE=60 NAME="FILE3" style="font-family: Verdana; font-size: 10px; border-style: solid; border-width: 1px"><BR>
<INPUT TYPE=SUBMIT VALUE="Upload!" style="font-family: Verdana; font-size: 10px">
</FORM>
</BODY>
</HTML>
<%
Else
Response.write "det blev nå fel."
End If
%>
sida 2
<%
Dim strId
strId = (Session("id"))
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.SaveVirtual("images")
Function namn(str)
if isnull(str) or len(str) = 0 then
name = ""
return
end if
Dim pos
str = Trim(str)
pos = inStrRev(str,"\\")
namn = Right(str,Len(str)-pos)
End Function
Sub add(Fil)
Dim Conn
Set Conn = Server.Createobject("Adodb.Connection")
Conn.Open "driver={Microsoft Access Driver (\*.mdb)};dbq="& Server.MapPath("db.mdb")
sql = "Insert into bilder(bild,artid) Values('" & Fil & "','"& strId &"')"
Conn.Execute (sql)
Conn.Close
Set Conn = Nothing
End Sub
For Each File in Upload.Files
add(namn(File.Path))
Next
Response.write Count & " files uploaded."
If Upload.Expires <> CDate("9/9/9999") Then Response.Write "<HR>AspUpload expires on " & Upload.Expires
%>
du skulle ju kunna göra nåt sånt här också:
if request("artnr") <> "" Then
artNr=trim(Request.querystring("artnr"))
response.kaka(artNr)("namn")
response.kaka(artNr)("pris")
response.kaka(artNr)("antal")
End if
for each item in response.kaka
if response.kaka.hashkeys then
for each objitem in response.kaka(item)
namn = request.kaka(item)("namn")
pris = request.kaka(item)("pris")
antal = request.kaka(item)("antal")
Response.write antal &" st "& namn &" för "& pris &" /st."
next
else
response.write "Tomt!"
end if
glöm inte att byta ut ordet "kaka" mot (du vet vad)(c o o k i e s) som man inte får använda här på wf...
hoppas du hängde mä...
lycka till!
/ Mikul
Vad är det där ID grejset för något?
Är det något man måste ha med?
Och sen när man ska spara bilderna, är det bara att skriva ../images eller måste man skriva /mapp/mapp/images?
/Mika3l
Får ett konstigt felmeddelande nu.
Jag ska lägga till all information om en (ny)produkt i databasen och jag har försökt med följande kod:
<% ElseIf Request.QueryString("page") = "upload" Then
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.SaveVirtual("../images")
Function namn(str)
if isnull(str) or len(str) = 0 then
name = ""
return
end if
Dim pos
str = Trim(str)
pos = inStrRev(str,"\")
namn = Right(str,Len(str)-pos)
End Function
Sub add(Fil)
kat = Trim(Request.Form("kat"))
namn = Trim(Request.Form("namn"))
pris = Trim(Request.Form("pris"))
falt1 = Trim(Request.Form("falt1"))
falt2 = Trim(Request.Form("falt2"))
falt3 = Trim(Request.Form("falt3"))
falt4 = Trim(Request.Form("falt4"))
falt5 = Trim(Request.Form("falt5"))
falt6 = Trim(Request.Form("falt6"))
falt7 = Trim(Request.Form("falt7"))
falt8 = Trim(Request.Form("falt8"))
falt9 = Trim(Request.Form("falt9"))
falt10 = Trim(Request.Form("falt10"))
falt11 = Trim(Request.Form("falt11"))
falt12 = Trim(Request.Form("falt12"))
falt13 = Trim(Request.Form("falt13"))
falt14 = Trim(Request.Form("falt14"))
falt15 = Trim(Request.Form("falt15"))
sfalt1 = Trim(Request.Form("sfalt1"))
sfalt2 = Trim(Request.Form("sfalt2"))
sfalt3 = Trim(Request.Form("sfalt3"))
sfalt4 = Trim(Request.Form("sfalt4"))
sfalt5 = Trim(Request.Form("sfalt5"))
sfalt6 = Trim(Request.Form("sfalt6"))
sfalt7 = Trim(Request.Form("sfalt7"))
sfalt8 = Trim(Request.Form("sfalt8"))
sfalt9 = Trim(Request.Form("sfalt9"))
sfalt10 = Trim(Request.Form("sfalt10"))
sfalt11 = Trim(Request.Form("sfalt11"))
sfalt12 = Trim(Request.Form("sfalt12"))
sfalt13 = Trim(Request.Form("sfalt13"))
sfalt14 = Trim(Request.Form("sfalt14"))
sfalt15 = Trim(Request.Form("sfalt15"))
ovrigt = Trim(Request.Form("ovrigt"))
lank1 = Trim(Request.Form("lank1"))
lank2 = Trim(Request.Form("lank2"))
lank3 = Trim(Request.Form("lank3"))
lank4 = Trim(Request.Form("lank4"))
lank5 = Trim(Request.Form("lank5"))
status = Trim(Request.Form("status"))
SQL = "INSERT INTO produkter(kat, namn, pris, falt1, falt2, falt2, falt3, falt4, falt5, falt6, falt7, falt8, falt9, falt10, falt11, falt12, falt13, falt14, falt15, sfalt1, sfalt2, sfalt2, sfalt3, sfalt4, sfalt5, sfalt6, sfalt7, sfalt8, sfalt9, sfalt10, sfalt11, sfalt12, sfalt13, sfalt14, sfalt15, ovrigt, bild1, bild2, bild3, lank1, lank2, lank3, lank4, lank5, status) VALUES('" & kat & "','" & namn & "'," & pris & ",'" & falt1 & "','" & falt2 & "','" & falt2 & "','" & falt3 & "','" & falt4 & "','" & falt5 & "','" & falt6 & "','" & falt7 & "','" & falt8 & "','" & falt9 & "','" & falt10 & "','" & falt11 & "','" & falt12 & "','" & falt13 & "','" & falt14 & "','" & falt15 & "','" & sfalt1 & "','" & sfalt2 & "','" & sfalt2 & "','" & sfalt3 & "','" & sfalt4 & "','" & sfalt5 & "','" & sfalt6 & "','" & sfalt7 & "','" & sfalt8 & "','" & sfalt9 & "','" & sfalt10 & "','" & sfalt11 & "','" & sfalt12 & "','" & sfalt13 & "','" & sfalt14 & "','" & sfalt15 & "','" & ovrigt & "','" & FIL & "','" & FIL & "','" & FIL & "'_
,'" & lank1 & "','" & lank2 & "','" & lank3 & "','" & lank4 & "','" & lank5 & "','" & status & "'
Connection.Execute(SQL)
End Sub
For Each File in Upload.Files
add(namn(File.Path))
Next
Response.Redirect"addprod.asp?page=done&namn='" & namn & "'"
%>
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0409)
Oavslutad strängkonstant
/test/mystore/admin/addprod.asp, line 330, column 1018
SQL = "INSERT INTO produkter(kat, namn, pris, falt1, falt2, falt2, falt3, falt4, falt5, falt6, falt7, falt8, falt9, falt10, falt11, falt12, falt13, falt14, falt15, sfalt1, sfalt2, sfalt2, sfalt3, sfalt4, sfalt5, sfalt6, sfalt7, sfalt8, sfalt9, sfalt10, sfalt11, sfalt12, sfalt13, sfalt14, sfalt15, ovrigt, bild1, bild2, bild3, lank1, lank2, lank3, lank4, lank5, status) VALUES('" & kat & "','" & namn & "'," & pris & ",'" & falt1 & "','" & falt2 & "','" & falt2 & "','" & falt3 & "','" & falt4 & "','" & falt5 & "','" & falt6 & "','" & falt7 & "','" & falt8 & "','" & falt9 & "','" & falt10 & "','" & falt11 & "','" & falt12 & "','" & falt13 & "','" & falt14 & "','" & falt15 & "','" & sfalt1 & "','" & sfalt2 & "','" & sfalt2 & "','" & sfalt3 & "','" & sfalt4 & "','" & sfalt5 & "','" & sfalt6 & "','" & sfalt7 & "','" & sfalt8 & "','" & sfalt9 & "','" & sfalt10 & "','" & sfalt11 & "','" & sfalt12 & "','" & sfalt13 & "','" & sfalt14 & "','" & sfalt15 & "','" & ovrigt & "','" & FIL & "','" & FIL & "','" & FIL & "'_
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -----------------------------------------------------------------------------------------------------------------------------------------^
Rad 330 är i blå färg.
Jag antar att det blir något fel när jag använder _ för att byta rad.
Sen, Mikul; har jag gjort rätt där jag skrivit & FIL &?
/Mika3l
Jo, du kan inte byta rad mitt i en sträng och så saknades det ett avslutande ".
SQL = "INSERT INTO produkter(kat, namn, pris, falt1, falt2, falt3, falt4, falt5, falt6," & _
" falt7, falt8, falt9, falt10, falt11, falt12, falt13, falt14, falt15, sfalt1, sfalt2, sfalt2," & _
" sfalt3, sfalt4, sfalt5, sfalt6, sfalt7, sfalt8, sfalt9, sfalt10, sfalt11, sfalt12, sfalt13, " & _
" sfalt14, sfalt15, ovrigt, bild1, bild2, bild3, lank1, lank2, lank3, lank4, lank5, status) " & _
" VALUES('" & kat & "','" & namn & "'," & pris & ",'" & falt1 & "','" & falt2 & "','" & falt3 & _
"','" & falt4 & "','" & falt5 & "','" & falt6 & "','" & falt7 & "','" & falt8 & "','" & falt9 & _
"','" & falt10 & "','" & falt11 & "','" & falt12 & "','" & falt13 & "','" & falt14 & "','" & falt15 & _
"','" & sfalt1 & "','" & sfalt2 & "','" & sfalt2 & "','" & sfalt3 & "','" & sfalt4 & "','" & sfalt5 & _
"','" & sfalt6 & "','" & sfalt7 & "','" & sfalt8 & "','" & sfalt9 & "','" & sfalt10 & "','" & sfalt11 & _
"','" & sfalt12 & "','" & sfalt13 & "','" & sfalt14 & "','" & sfalt15 & "','" & ovrigt & "','" & FIL & _
"','" & FIL & "','" & FIL & "','" & lank1 & "','" & lank2 & "','" & lank3 & "','" & lank4 & _
"','" & lank5 & "','" & status & "')"
Du hade också med falt2 två gånger, så jag tog bort det.
Jag tycker att din databasdesign är lite felaktig, t.ex. att du har falt1 till falt15. Det skulle jag bryta ut i en egen tabell med två kolumner där man kan lagra en post per fältvärde. I så fall kan du ha ett godtyckligt antal sådana värden.
Tack LarsG(och ett grattis också förresten !) för koden.
Kan du förklara lite mer om den egna tabellen istället för falt1, falt2 osv...?
Jag har aldrig gjort en webbshop förut så jag vet inte riktigt hur man ska ha databaserna...
/Mika3l
vad får du för fel nu?
sen ska du inte kunna använda request.form, utan du får använda Upload.form.....
sen fattade jag inte vad du menade med fil grejjen...
men du ska i allafall bara lägga till en fil åt gången...för om du laddar upp 3 filer, så kommer den att köra subben 3 gånger...
/ Mikul
Att bryta ut en egenskap som kan förekomma flera gånger kan du göra så här t.ex. (Nu vet jag inte vad fält1 till fält15 är för något så jag har inget bra namn.)
produkter
---------
Id!namn!pris!beskrivning!kategoriId
egenskap
--------
produktID!egenskap
Du bör även lägga kategori i en egen tabell då flera produkter kan höra till samma kategori
kategori
--------
id!kategori!beskrivning
Mikul: Glöm vad jag sa
LarsG: Min databas där jag har alla varorna heter shop.mdb och ser ut så här:
kategorier:
KID(Kategorins idnr)
kat(Kategorins namn)
produkter
PID(Produktens idnr)
namn(namnet på produkten)
pris(priset på produkten)
falt1(fält där man kan skriva en fråga som man svarar på i sfalt1.
falt2, falt3 osv kommer sedan t.o.m falt15 och sedan kommer sfalt1 t.o.m sfalt15.(Fattar du? )
ovrigt(övrig text man kan lägga till)
bild1(adress till en bild)
bild2(adress till en bild)
bild3(adress till en bild)
lank1(ev länk)
lank2(ev länk)
lank3(ev länk)
lank4(ev länk)
lank5(ev länk)
status(lagerstatus)
Fattar du vad jag menar?
/Mika3l
Nu är jag här Mikul
Jag har inte hunnit testa din kakfunktion ännu, ska fixa så man kan lägga till produkter först och sedan ska jag fixa kundvagnen.
Jag har inte haft några problem ännu...
/Mika3l
(kolla min sida förresten, flash)
Hej igen!
Nu har jag fått ännu ett felmeddelande!
Jag har gjort om så man bara kan ladda upp en bild(för enkelhetens skull ) och bytt ut alla Request.Form till Upload.Form men det vill inte fungera.
Min kod:
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save "c:\inetpub\wwwroot\test\mystore\images"
Set File = Upload.Files("bild")
kat = Trim(Upload.Form("kat"))
namn = Trim(Upload.Form("namn"))
pris = Trim(Upload.Form("pris"))
falt1 = Trim(Upload.Form("falt1"))
falt2 = Trim(Upload.Form("falt2"))
falt3 = Trim(Upload.Form("falt3"))
falt4 = Trim(Upload.Form("falt4"))
falt5 = Trim(Upload.Form("falt5"))
falt6 = Trim(Upload.Form("falt6"))
falt7 = Trim(Upload.Form("falt7"))
falt8 = Trim(Upload.Form("falt8"))
falt9 = Trim(Upload.Form("falt9"))
falt10 = Trim(Upload.Form("falt10"))
falt11 = Trim(Upload.Form("falt11"))
falt12 = Trim(Upload.Form("falt12"))
falt13 = Trim(Upload.Form("falt13"))
falt14 = Trim(Upload.Form("falt14"))
falt15 = Trim(Upload.Form("falt15"))
sfalt1 = Trim(Upload.Form("sfalt1"))
sfalt2 = Trim(Upload.Form("sfalt2"))
sfalt3 = Trim(Upload.Form("sfalt3"))
sfalt4 = Trim(Upload.Form("sfalt4"))
sfalt5 = Trim(Upload.Form("sfalt5"))
sfalt6 = Trim(Upload.Form("sfalt6"))
sfalt7 = Trim(Upload.Form("sfalt7"))
sfalt8 = Trim(Upload.Form("sfalt8"))
sfalt9 = Trim(Upload.Form("sfalt9"))
sfalt10 = Trim(Upload.Form("sfalt10"))
sfalt11 = Trim(Upload.Form("sfalt11"))
sfalt12 = Trim(Upload.Form("sfalt12"))
sfalt13 = Trim(Upload.Form("sfalt13"))
sfalt14 = Trim(Upload.Form("sfalt14"))
sfalt15 = Trim(Upload.Form("sfalt15"))
ovrigt = Trim(Upload.Form("ovrigt"))
lank1 = Trim(Upload.Form("lank1"))
lank2 = Trim(Upload.Form("lank2"))
lank3 = Trim(Upload.Form("lank3"))
lank4 = Trim(Upload.Form("lank4"))
lank5 = Trim(Upload.Form("lank5"))
status = Trim(Upload.Form("status"))
SQL = "INSERT INTO produkter(kat, namn, pris, falt1, falt2, falt3, falt4, falt5, falt6," & _
" falt7, falt8, falt9, falt10, falt11, falt12, falt13, falt14, falt15, sfalt1, sfalt2, sfalt2," & _
" sfalt3, sfalt4, sfalt5, sfalt6, sfalt7, sfalt8, sfalt9, sfalt10, sfalt11, sfalt12, sfalt13, " & _
" sfalt14, sfalt15, ovrigt, bild, lank1, lank2, lank3, lank4, lank5, status) " & _
" VALUES('" & kat & "','" & namn & "'," & pris & ",'" & falt1 & "','" & falt2 & "','" & falt3 & _
"','" & falt4 & "','" & falt5 & "','" & falt6 & "','" & falt7 & "','" & falt8 & "','" & falt9 & _
"','" & falt10 & "','" & falt11 & "','" & falt12 & "','" & falt13 & "','" & falt14 & "','" & falt15 & _
"','" & sfalt1 & "','" & sfalt2 & "','" & sfalt3 & "','" & sfalt4 & "','" & sfalt5 & _
"','" & sfalt6 & "','" & sfalt7 & "','" & sfalt8 & "','" & sfalt9 & "','" & sfalt10 & "','" & sfalt11 & _
"','" & sfalt12 & "','" & sfalt13 & "','" & sfalt14 & "','" & sfalt15 & "','" & ovrigt & "','" & File.Filename & _
"','" & lank1 & "','" & lank2 & "','" & lank3 & "','" & lank4 & _
"','" & lank5 & "','" & status & "')"
Connection.Execute(SQL)
Jag får felmeddelandet
Persits.Upload.1 (0x800A0005)
Det går inte att hitta filen.
/test/mystore/admin/addprod.asp, line 269
269: Upload.Save "c:\inetpub\wwwroot\test\mystore\images"
Mappen finns så det borde fungera...
Jag provade att ändra till c:\upload och då fungerade det men när det fungerade så fick jag ett annat felmeddelande. 
[Microsoft][Drivrutin för ODBC Microsoft Access] Antalet värden i frågan och antalet målfält är olika.
/test/mystore/admin/addprod.asp, line 331
331: Connection.Execute(SQL)
Det är alltså något fel på nån rad över egentligen...
Någon som kan hjälpa mig?!
/Mika3l
kom på att jag skrivit lite fel i den...
den var inte fullständig....
if request("artnr") <> "" Then
artNr=trim(Request.querystring("artnr"))
'databaskopling
Set RecSet = conn.execute("select * from tabell where pid="& artNr)
response.kaka(artNr)("namn") = RecSet("namn")
response.kaka(artNr)("pris") = RecSet("pris")
response.kaka(artNr)("antal") = trim(Request("antal"))
End if
for each item in response.kaka
if response.kaka.hashkeys then
for each objitem in response.kaka(item)
namn = request.kaka(item)("namn")
pris = request.kaka(item)("pris")
antal = request.kaka(item)("antal")
Response.write antal &" st "& namn &" för "& pris &" /st."
next
else
response.write "Tomt!"
end if
jag har redan kollat din sida i dag...
fan va tråkig du är som inte har nåra problem...
jag har ju dötrist nu.... sitter och laddar ner lite filmer så man så småningom ska ha lite å göra åt minstonne....
/ Mikul
Hej, du har angivit 42 kolumnnamn i din insert, men du har bara 41 värde att lägga in. Du måste ha lika många värde som kolumner.
mvh Jörgen
varför kör du inte mä: Upload.SaveVirtual("../images")?
du har 42 kolumner och bara 41 eller om det är 39 values...
/ Mikul
Hej, du har angivit 42 kolumnnamn i din insert, men du har bara 41 värde att lägga in. Du måste ha lika många värde som kolumner.
Vad fan är det som gör så att det blir en mindre då?
Blir till att tänkta 
Sorry Mikul, jag var tvungen att sticka direkt när jag skrev inlägget...
Jag kommer imorn igen någon gång(troligtvis runt kl.12-13).
/Mika3l