Upload

Hej

Jeg har leget lidt med upload af grafik filer, men nu er jeg kørt fast. Jeg søger et script, som kan gøre følgende:

Checke:
1) om filen, som ønsket uploadet, allerede eksisterer i upload-bib. Hvis den gør -> afbryd
2) om der er tale om en gif eller jpg file. Hvis ikke -> slet filen
3) checke om filen (billedet) er mellem 80 x 80 pixels og 90 x 90 pixels stort. Hvis ikke -> slet filen

Nedenstående kode kan måske bruges - det er i hvert fald dertil jeg er kommet. Du har helt frie hænder til at starte forfra med kodningen eller at fortsætte på min kode, hvis du kan. ;-)

_______________________________________________________


<%

Function FileDelete(varFile)
    Set fso = CreateObject("Scripting.FileSystemObject")
    On error resume next
    fso.DeleteFile(varFile)
    Set fso = Nothing
End Function

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

    Set fso = CreateObject("Scripting.FileSystemObject")
    filespec = Server.Mappath(????????)
    Set File = fso.OpenTextFile(filespec,1)
    If File.Exists Then
      response.write "filen eksisterer allerede"
    Else
      GoCheck()
    End If
   
    Set File = Nothing
    Set fso = Nothing

end if
   
function GoCheck ()

    strImageDir="/grafik/2002/"
      Set File = Server.CreateObject("Persits.Upload.1")

    'Count = File.Save(Server.MapPath(strImageDir))
    'Response.Write Count & " fil modtaget.<BR>"

    'Jamen, jeg skal kun uploade en fil
    'For Each File in Upload.Files
    strNAVN = strImageDir & File.ExtractFileName
    Response.Write strNAVN
    'Next

    strTestNAVN=lcase(right(strNAVN,3))

    strOK=""
    if strTestNAVN="jpg" THEN strOK="OK"
    if strTestNAVN="gif" THEN strOK="OK"
   
    If File.ImageWidth >= 80 And File.ImageWidth <= 90 Then
          If File.ImageHeight >= 80 And File.ImageHeight <= 90 Then
            response.write "dette billede har de rigitge størrelser"
          Else
            response.write "dette billede har IKKE de rigitge størrelser"
          End If
    Else
          response.write "dette billede har IKKE de rigitge størrelser"
    End If

    if strOK="OK" THEN
   
        DIM strIMAGE

        strFileName = Server.MapPath(strNAVN)   
        Set objImg=Server.CreateObject("ImgSize.Check")
        objImg.FileName=strFileName
        varWidth=objImg.Width
        varHeight=objImg.Height

        ' gør en hel masse, som ikke er relevant her.
        Set objImg=nothing
       
    ELSE
        call FileDelete(Server.MapPath(strNAVN))
        response.write "<FONT COLOR=RED>Filen er ikke accepteret...<BR>"
        response.write "Kun filtyperne JPG og GIF kan uploades...</FONT><BR>"
        response.write "Den valgte fil var: " & strNAVN & "</FONT><BR>"
    END IF
   
end function
%>