Validering af Billede i upload

Det med fil typen kan du lave sådan her:

For Each File in Upload.Files

  If File.ImageType <> "GIF" and File.ImageType <> "JPG" Then
    Response.Write "GIF or JPG files only please!"
    Exit For
  End If


Next


Ja den skulle da gerne selv lave en fejl.

Takker det prøver jeg lige
Ang. det med størrelsen så "æder" den alt

Fra deres hjemme side:
The SetMaxSize method expects two arguments: the maximum file size (in bytes) and a flag indicating whether a file exceeding the limit should be rejected with an error exception thrown (if set to True) or truncated (if set to False).

Som jeg læser det så vil den komme en fejl hvis det er true.

Prøv at kigge på dette eks:

<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload")
' Limit file size to 50000 bytes, throw an exception if file is larger
Upload.SetMaxSize 50000, True

' Intercept all exceptions to display user-friendly error
On Error Resume Next

' Perform upload
Upload.Save "c:\upload"

' 8 is the number of "File too large" exception
If Err.Number = 8 Then
  Response.Write "Your file is too large. Please try again."
Else
  If Err <> 0 Then
      Response.Write "An error occurred: " & Err.Description
  Else
      Response.Write "Success!"
  End If
End If
%>

</BODY>
</HTML>


taget herfra:
http://www.aspupload.com/manual_simple.html

Den sluger simpelhen alt, min kode ser sådan her ud: (jeg er ikke kommet til det med GIF og JPG endnu, kun det med størrelsen)
-----------
  randomize
  n=int(10000000*rnd)

  Set Upload = Server.CreateObject("Persits.Upload")
  Count = Upload.SaveToMemory
  Upload.SetMaxSize 50000, True
  On Error Resume Next
  For Each File in Upload.Files

  If Err.Number = 8 Then
  session("fejl") = "Dit billede er for stort, det må MAX fylde 50 kb."
  response.redirect "add_add.asp"
  Else
    If Err <> 0 Then
    session("fejl") = "Der opstod en fejl, brug denne besked ved henvendelse: " & Err.Description
    response.redirect "add_add.asp"
    End If
  End If

  Dim FileName
  FileName = File.ExtractFileName
  File.SaveAs "d:\inetpub\wwwroot\Billeder\"& n & FileName
  Next
-------------

Kan det være forbi jeg skal "exit" for-løkken?

Nej ikke hvis det er med redirect.

Måske du skal prøve at bytte rundt på disse to linje:

  Count = Upload.SaveToMemory
  Upload.SetMaxSize 50000, True

Så du sætte Max før du loader til memory:

  Upload.SetMaxSize 50000, True
  Count = Upload.SaveToMemory

Nu fejler den, men den fanger ikke min if-sætning, den kommer bare med en error i browseren, jeg har forsøgt at flytte rundt på if-sætningen:
KODE:
----------
  randomize
  n=int(10000000*rnd)

  Set Upload = Server.CreateObject("Persits.Upload")
  Upload.SetMaxSize 50000, True
  Count = Upload.SaveToMemory
 
  If Err.Number = 8 Then
    session("fejl") = "Dit billede er for stort, det må MAX fylde 50 kb."
    response.redirect "add_add.asp"
  Else
    If Err <> 0 Then
    session("fejl") = "Der opstod en fejl, brug denne besked ved henvendelse: " & Err.Description
    response.redirect "add_add.asp"
    End If
  End If
 
  On Error Resume Next
  For Each File in Upload.Files

  If File.ImageType <> "GIF" and File.ImageType <> "JPG" Then
    session("fejl") = "Billede skal være i formatet GIF eller JPG"
    response.redirect "add_add.asp"
  End If
 
  Dim FileName
  FileName = File.ExtractFileName
  File.SaveAs "d:\inetpub\Billeder\"& n & FileName
   
  Next
----------
FEJL
----------
Size of file C:\Documents and Settings\Administrator\Skrivebord\side3_og_4.pdf exceeds the maximum allowed size of 50000 bytes.
----------
på denne linie:
----------
Count = Upload.SaveToMemory
----------

Så flyt

On Error Resume Next

ind mellem disse to:

  Upload.SetMaxSize 50000, True
  Count = Upload.SaveToMemory

Sådan:

  Upload.SetMaxSize 50000, True
  On Error Resume Next
  Count = Upload.SaveToMemory

Jeg har flyttet "On Error Resume Next" nu virker det med størrelsen :-)

2 hoveder én tanke *gg*

Takker.
Det virker nu, også det med formatet, det skulle også lige flyttes udenfor For-løkken.

Jeg har et lille ekstra spørgsmål, hvis det er OK? Kan man tjekke om størrelsen på et billede er fx. 150*150?

Ja du kan på samme måde som med typen tjekke på størrelsen:


If File.ImageWidth > 150 Then
  Response.Write "Image width cannot exceed 150 pixels."
  Exit For
End If

If File.ImageHeight > 200 Then
  Response.Write "Image height cannot exceed 200 pixels."
  Exit For
End If

Fedt nok
Tak for hjælpen
God Weekend

Jeg forstyrer kige igen, det virker åbenbart ikke afligevel, uanset hvilken filtype jeg uploader om det er PDF eller JPG eller DOC så bliber FileType sat lig med JPG
KODE
-----------
  For Each File in Upload.Files
  Dim FileName
  FileName = File.ExtractFileName
 
  Dim FileType
  FileType = File.ImageType
  response.write FileType
 
  If FileType <> GIF AND FileType <> JPG AND FileType <> JPEG Then
    session("fejl") = "Billede skal være i formatet GIF eller JPG"
    response.write FileType
    'response.redirect "add_add.asp"
  End If
 
  File.SaveAs "d:\inetpub\Billeder\"& n & FileName
  Next

Problemet er altså at uanset, hvad jeg uploader så retunerer File.ImageType JPG

Prøv at sætte " omrking GIF og JPG mm

If FileType <> "GIF" AND FileType <> "JPG" AND FileType <> "JPEG" Then

Det har jeg prøvet, men det er ikke if-sætningen der er "forkert" det er File.ImageType der retunerer JPG så uanset hvad jeg uploader, så har FileType hele tiden værdien JPG

Fortsættes her: http://www.eksperten.dk/spm/351341