Aiuto - con la classe Classe ImageSize di byluciani ricavo le dimensioni di una immagine però voglio che non vengano superate certe dimensioni e quindi faccio così:
Set objImageSize = New ImageSize
With objImageSize
'.ImageFile = Server.MapPath("logo_byluciani.gif")
.ImageFile = Server.MapPath(var_cart & "\" & var_file)
if (.ImageWidth <> 500 or .ImageWidth <> 600) and (.ImageHeight <> 600 or .ImageHeight <> 500) then
Response.Write "Name: " & .ImageName & "
"
'larghezza
Response.Write "X (larghezza): " & .ImageWidth & "
"
'altezza
Response.Write "Y (altezza): " & .ImageHeight & "
"
Response.Write "Immagine non consentita valori permessi
"
Response.Write "1 larghezza 500 e altezza 600 se foto verticale
"
Response.Write "1 larghezza 600 e altezza 500 se foto orizzontale
"
'elseif (.ImageWidth <> 600 and .ImageHeight <> 500) then
' Response.Write "Name: " & .ImageName & "
"
' 'larghezza
' Response.Write "X (larghezza): " & .ImageWidth & "
"
' 'altezza
' Response.Write "Y (altezza): " & .ImageHeight & "
"
' Response.Write "Immagine non consentita
"
' Response.Write "2 larghezza 500 e altezza 600 se foto verticale
"
' Response.Write "2 larghezza 600 e altezza 500 se foto orizzontale
"
else
'If .IsImage Then
Response.Write "Path: " & .ImageFile & "
"
Response.Write "Name: " & .ImageName & "
"
Response.Write "Type: " & .ImageType & "
"
'larghezza
Response.Write "X (larghezza): " & .ImageWidth & "
"
'altezza
Response.Write "Y (altezza): " & .ImageHeight & "
"
'Response.Write "Colors: " & .ImageDepth & "
"
'Else
'Response.Write "Name: " & .ImageName & "
"
'Response.Write "it isn't an image"
End If
End With
Set objImageSize = Nothing
Però non riesco nell'intento ossia se l'immagine è 500 x 600 o 600 x 500 mi visualizza Immagine non consentita.
Dove sbaglio ve ne sono grato



Rispondi quotando