10. november 2002 - 00:03
Der er
15 kommentarer og 2 løsninger
Upload
Hey alle Er der nogle der lige kan hjælpe mig med finde fejlen i denne kode. jeg får fejlen ved denne linje: 014: Count = Upload.Save(server.mappath("billeder/")) sådan se her filen ud: tekst = replace(request.form("tekst"),"'","''") navn = replace(request.form("navn"),"'","''") Set Upload = Server.CreateObject("Persits.Upload.1") Upload.OverwriteFiles = False Upload.SetMaxSize 3000000, True Count = Upload.Save(server.mappath("billeder/")) If Err <> 0 or Count = 0 Then If Err <> 0 Then theresponse = "Fejl: " & Err.Description Else theresponse = "Fejl: Ingen fil(er) valgt." else Set File = Upload.Files(1) ' create instance of AspJpeg Set jpg = Server.CreateObject("Persits.Jpeg") ' Open source file jpg.Open(File.Path) ' Set resizing algorithm jpg.Interpolation = 1 ' Set new height and width jpg.Width = 300 jpg.Height = File.ImageHeight / File.ImageWidth * 300 ' Perform resizing and ' send resultant image to client browser jpg.Save File.Path SQL = "insert into bil ([sti],[navn],[mappe_id],[spiller_id],[dato],[tekst]) values ('" & replace("" & File.Filename,"'","''") & "','" & navn & "'," & mappe_id & "," & session("spiller") & ",'" & date() & "','" & tekst & "')" conn.Execute(SQL) response.redirect "ret-galleri.asp?mode=under&mappe_id=" & mappe_id end if Fejlen er: Persits.Upload.1 (0x800A0001) Uspecificeret fejl upload.asp, line 14 Håber at i kan hjlpe.. Thomas
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
10. november 2002 - 00:07
#1
prøv at fjerne skråstregen: Count = Upload.Save(server.mappath("billeder"))
10. november 2002 - 00:09
#2
eller tilføj evt. skråstregen bagefter: Count = Upload.Save(server.mappath("billeder") & "/")
10. november 2002 - 00:09
#3
Ligger billede folder i roden så prøv: Count = Upload.Save(server.mappath("/billeder/")) Ligger billeder folder i samme folder som ASP filen så prøv: Count = Upload.Save(server.mappath("./billeder/"))
10. november 2002 - 00:10
#4
ingen af delene virker... desværre... Thomas
10. november 2002 - 00:12
#5
er du sikker på mappen eksisterer i samme mappe som scriptet?
10. november 2002 - 00:12
#6
Hvor ligger billede foldere i forhold til ASP filen?
10. november 2002 - 00:15
#7
Jeg forstår bare ikke at det ikke vil virker for det virkede første gang, men der redirectede den ikke... så ville jeg lige prøve igen, så kom fejlen.. og den bliver nu ved med at komme.. asp filen ligger i sammen mappe som mappen billeder gør... Thomas
10. november 2002 - 00:17
#8
kan det være fordi filen eksisterer allerede og scriptet ikke vil overskrive?
10. november 2002 - 00:17
#9
jeg har prøvet med forskellige filer...
10. november 2002 - 00:24
#10
Nu har jeg fået det til at virke... man må åbentbart ikke bruge request... for da jeg fjernede de 2 linjer i toppen, så virkede det helt perfekt... Mærkeligt... Men her er jeres point, tak for hjælpen... :) Thomas
10. november 2002 - 00:27
#11
Det er faktisk ikke helt mærkeligt da formen du sender fra er af "multipart/form-data" kryptering... :)
10. november 2002 - 00:28
#12
når nej det kan man ikke du skal bruge navnet på upload object og ikke request.: Set Upload = Server.CreateObject("Persits.Upload.1") Upload.OverwriteFiles = False Upload.SetMaxSize 3000000, True Count = Upload.Save(server.mappath("billeder/")) 'HER KAN DU BRUGER Upload.Form("xxxxx") tekst = replace(Upload.form("tekst"),"'","''") navn = replace(Upload.form("navn"),"'","''")
10. november 2002 - 00:28
#13
Fandt lige ud af noget mere... Set Upload = Server.CreateObject("Persits.Upload.1") dvs. at når man skal finde sine formfelter, så skal man skrive upload.form("feltnavn") Skide smart.. :) Sov godt..
10. november 2002 - 00:29
#14
Næste gang opdaterer jeg lige inden jeg skrive... :)
10. november 2002 - 00:30
#15
du var 3-4 sekunder efter ;)
10. november 2002 - 00:37
#16
Jeg har faktisk lige en ting mere... Som i kan se så lave jeg width & height om på billederne, men ved i hvordan jeg tjekker om width er under 300 før jeg ændre det, for ellers bliver opløsningen jo bare dårligere... ??? Thomas Går i seng nu, kigger forbi imorgen igen... ses...
10. november 2002 - 00:46
#17
Kan man ikke skriver: if jpg.Width >= 300 then jpg.Width = 300 end if
Kurser inden for grundlæggende programmering