AspSmartUpload - 2 spørgsmål

1. brug "and" i stedet for "or":

    if (File.FileExt <> ".jpg") and (File.FileExt <> ".jpeg") and (File.FileExt <> ".zip") then
      response.redirect "index.asp?page=bestil.asp&mode=wrongext"
    end if

ja, selvfølgelig *DOH*

Jeg tror at det her er bedre:

dim bad_files
bad_files = ""

    for each file in upload.Files
if (File.FileExt <> ".jpg") or (File.FileExt <> ".jpeg") or (File.FileExt <> ".zip") then
      bad_files = bad_files & file.filename & "<br>"
'      response.redirect "index.asp?page=bestil.asp&mode=wrongext"
'  end if
else
    If not file.IsMissing Then
      filnavn = sti & file.filename
      file.saveas Server.MapPath(filnavn)
      Photo = File.fileName
      FilStiNavn = sti & File.FileName & file.FileExt
    else
      FilStiNavn = ""
    end if
end if
    next

if bad_files <> "" then
bad_files = left(bad_files, len(bad_files) - len("<br>")) ' fjern det sidste "<br>"
response.write "<br><br>Følgende filer kunne ikke oploades, da det er forkert format:<br>" & bad_files
end if

ja, det kan man også. P.t. kører jeg dog kun med en fil ad gangen, så det er ikke betydende endnu - men tak for modifikationen :)

Du må lave et loop som tjekke om filen findes, samt bruge FSO til at tjekke som filen findes. Så dette kode.


    If not file.IsMissing Then
      filnavn = sti & file.filename
      file.saveas Server.MapPath(filnavn)
      Photo = File.fileName
      FilStiNavn = sti & File.FileName & file.FileExt
    else
      FilStiNavn = ""
    end if


bliver til noget som dette:


    If not file.IsMissing Then
      Set fso = Server.CreateObject("Scripting.FileSystemObject")
      filnavn = sti & file.filename
      i=1
      do while fso.FileExists(Server.MapPath(filnavn))
        filnavn = replace(file.filename,"."&file.FileExt,"")
        filnavn = sti & filnavn & "_" & i & "." & file.FileExt
        i=i+1
      loop
      file.saveas Server.MapPath(filnavn)
      Photo = File.fileName
      FilStiNavn = sti & File.FileName & file.FileExt
    else
      FilStiNavn = ""
    end if

File.FileExt udskriver intet punktum ..
Iøvrigt udskriver den for det meste i uppercase...
derfor kan du ikke validere på det..    prøv at ændre linien til

if (Lcase(File.FileExt) <> "jpg") or (Lcase(File.FileExt) <> "jpeg") or (LCase(File.FileExt) <> "zip") then


/Mads

kingmedia: Den med punktum hacde jeg løst inden.. (ved godt at man ikke kan se det i koden, men alligevel :/) så det var p.g.a. "and" og "or"

eagleeye: Jeg kigger lige på det senere i dag, men læg et svar alligevel, da jeg kan se fornuften i det :)

thesurfer: læg et svar :)

..og et svar er lagt :-)

superior  >>  helt iorden :)  Jeg lagde bare mærke til det..

Husk også at Lcase() dine file.fileExt. 

Held og lykke :o)

/Mads