Avatar billede thb Nybegynder
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
Avatar billede psyco01 Nybegynder
10. november 2002 - 00:07 #1
prøv at fjerne skråstregen:
Count = Upload.Save(server.mappath("billeder"))
Avatar billede psyco01 Nybegynder
10. november 2002 - 00:09 #2
eller tilføj evt. skråstregen bagefter:
Count = Upload.Save(server.mappath("billeder") & "/")
Avatar billede eagleeye Praktikant
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/"))
Avatar billede thb Nybegynder
10. november 2002 - 00:10 #4
ingen af delene virker... desværre...

Thomas
Avatar billede psyco01 Nybegynder
10. november 2002 - 00:12 #5
er du sikker på mappen eksisterer i samme mappe som scriptet?
Avatar billede eagleeye Praktikant
10. november 2002 - 00:12 #6
Hvor ligger billede foldere i forhold til ASP filen?
Avatar billede thb Nybegynder
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
Avatar billede psyco01 Nybegynder
10. november 2002 - 00:17 #8
kan det være fordi filen eksisterer allerede og scriptet ikke vil overskrive?
Avatar billede thb Nybegynder
10. november 2002 - 00:17 #9
jeg har prøvet med forskellige filer...
Avatar billede thb Nybegynder
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
Avatar billede psyco01 Nybegynder
10. november 2002 - 00:27 #11
Det er faktisk ikke helt mærkeligt da formen du sender fra er af "multipart/form-data" kryptering... :)
Avatar billede eagleeye Praktikant
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"),"'","''")
Avatar billede thb Nybegynder
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..
Avatar billede thb Nybegynder
10. november 2002 - 00:29 #14
Næste gang opdaterer jeg lige inden jeg skrive... :)
Avatar billede psyco01 Nybegynder
10. november 2002 - 00:30 #15
du var 3-4 sekunder efter ;)
Avatar billede thb Nybegynder
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...
Avatar billede eagleeye Praktikant
10. november 2002 - 00:46 #17
Kan man ikke skriver:


if jpg.Width >= 300 then
  jpg.Width = 300
end if
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