Avanceret upload:)

plus 1 ting til:)

Hvordan gør jeg at filen får et nyt navn?

2: Ændre SetMaxSize til 2 Mb
  Upload.SetMaxSize 2048576

3: Sæt OverwriteFiles til flase. Så får filerne et (xx) på hvis de allerede eksistere
Upload.OverwriteFiles = False

I min upload form står den på false..

Det gør der sørme også. Så skulle de blive omdøbt hvis filen eksistere i forvejen.

1: Der bliver du nød til at uploade til hukommelsen først, tjekke filtypen, også gemme dem. Der findes en speciel ImageType der kan bruges:

Set Upload = Server.CreateObject("Persits.Upload.1")
  Upload.OverwriteFiles = False
  Upload.SetMaxSize 1048576
  Upload.Save
  overskrift = Upload.Form("overskrift")
  nyhed = Upload.Form("nyhed")
  For Each File in Upload.Files
    if File.ImageType <> "UNKNOWN" then
      File.SaveAs Server.MapPath("upload") &"\" & File.FileName
      filename = file.FileName
    else
      response.write "Ikke et billed"
    end if

ImageType tjekker for BMP, GIF, JPEG, PNG og TIFF

Men mangler stadigvæk nr. 3..?
Hvad hvis jeg vil have at alle der opretter et billed skal hedde det samme som deres ip eller deres navn de skriver i en input? Hvordan gør jeg det?

Med samme script fra løsning 1. Du ændre bare dette:
File.SaveAs Server.MapPath("upload") &"\" & File.FileName
filename = file.FileName

Til hvad det nu eller skulle være:
File.SaveAs Server.MapPath("upload") &"\" & "NytFilNavn."& File.Ext
filename = file.FileName

Du kan skrive hvad som helst i "NytFilNavn", så det kan du udskifte med brugerens IP hvis du vil.

File.SaveAs Server.MapPath("upload") &"\" & "" & request.form("Navn") & "" File.Ext
filename = file.FileName

Sådan?

Post et svar:)