Simpelt upload script

denne kan gøre det:

        'Slet den gamle fil   
        if not fil = "" then
            set fso = CreateObject("Scripting.FileSystemObject")
            if fso.FileExists(server.mappath("./userfiles/" & fil)) then
                set filslet = fso.GetFile(server.mappath("./userfiles/" & fil))
                filslet.Delete
            end if
            set fso = nothing
        end if
       
        'Upload den nye fil
        set UoG = server.createobject("aspsmartupload.smartupload")
            UoG.upload
            picfilnavn = framenavn & "-" & UoG.Files.Item(1).FileName
            UoG.files.item(1).saveas("./userfiles/" & picfilnavn)
        set UoG = nothing

i og med at du sletter filen først med fso, kan du undgå evt. rettighedsproblemer, men det er ikke nødvendigt....

og den trimmede udgave til dig ;)

<%
        'Slet den gamle fil   
        set fso = CreateObject("Scripting.FileSystemObject")
        if fso.FileExists(server.mappath("./plakat.jpg")) then
            set filslet = fso.GetFile(server.mappath("./plakat.jpg"))
            filslet.Delete
        end if
        set fso = nothing
       
        'Upload den nye fil
        set UoG = server.createobject("aspsmartupload.smartupload")
            UoG.upload
            UoG.files.item(1).saveas("./plakat.jpg)
        set UoG = nothing
%>

kan man ikke lave en udgave uden komponenter?
jeg har lidt problimer med at få det til at virke!

smid din fejl herind.... og jo... der findes et script på netcoders der kan "streame" den op, men når du har en komponent til rådighed er det klart det bedste...

Lad mig se din fejl ;)

jo... jeg får ikke rigtigt nogen side, kun en fejl 500!!

i explorer: funktioner > Internetindstillinger > Avanceret > Vis meddelelser om udskadelige HTTP-fejl


Så kan du få en fejlkode, som vi kan bruge ;)

Se engang på www.freeaspupload.net Det er rigtig godt udgangspunkt

smart!!

jeg fik den her fejl:

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/kommende_film/admin/aspsmartupload.asp, line 16

UoG.files.item(1).saveas("./plakat.jpg)
---------------------------------------^

Sådan.. jeg har glemt et "

<%
        'Slet den gamle fil   
        set fso = CreateObject("Scripting.FileSystemObject")
        if fso.FileExists(server.mappath("./plakat.jpg")) then
            set filslet = fso.GetFile(server.mappath("./plakat.jpg"))
            filslet.Delete
        end if
        set fso = nothing
       
        'Upload den nye fil
        set UoG = server.createobject("aspsmartupload.smartupload")
            UoG.upload
            UoG.files.item(1).saveas("./plakat.jpg")
        set UoG = nothing
%>

shit happens ;)

fedt, nu virker det, hvordan kan jeg så lave en kontrol af om det er en jpg fil?

(kan du ikke sende det som et svar, ellers kan jeg ikke give dig point)!

svar :)

Vi kan lave et tjek på brugersiden i din fileboks....

smid lidt kode, så brygger jeg lige noget sammen til dig ;)

dette skulle klare dit problem med filtype

<%
        'Slet den gamle fil   
        set fso = CreateObject("Scripting.FileSystemObject")
        if fso.FileExists(server.mappath("./plakat.jpg")) then
            set filslet = fso.GetFile(server.mappath("./plakat.jpg"))
            filslet.Delete
        end if
        set fso = nothing
       
        'Upload den nye fil
        set UoG = server.createobject("aspsmartupload.smartupload")
            UoG.AllowedFilesList = "jpg"
            UoG.upload
            UoG.files.item(1).saveas("./plakat.jpg")
        set UoG = nothing
%>

men det er også godt at ligge tjekket på brugersiden,
da vi så fjerner unødig serverbelastning.