Come trovare la dimensione in punti di una immagine.

Questa funzione vi restituisce le misure di una immagine espressa in punti:

<% 
'impostare qui sotto il nome dell'immagine
 Immagine="/images/miaimmagine.jpg" 
 
 
 Dimensione = ImageSize(immagine) 
 Response.Write("punti di larghezza: " & Dimensione(0) & "<br>") 
 Response.Write("punti di altezza: " & Dimensione(1)) 



Function ImageSize(immagine) 
   Dimensione = Array("","") 
   Formato = Right(uCase(immagine), 3) 
   Select Case Formato 
     Case "JPG" 
       Start = 167 
       max = 4 
       xs = 3 
       xe = 4 
       ys = 1 
       ye = 2 
     Case "PNG" 
       Start = 24 
       max = 8 
       xs = 3 
       xe = 4 
       ys = 7 
       ye = 8 
     Case "GIF" 
       Start = 10 
       max = 4 
       xs = 2 
       xe = 1 
       ys = 4 
       ye = 3 
     Case "BMP" 
       Start = 24 
       max = 8 
       xs = 4 
       xe = 3 
       ys = 8 
       ye = 7 
     Case "WMF" 
       Start = 14 
       max = 4 
       xs = 2 
       xe = 1 
       ys = 4 
       ye = 3 
   End Select 

   Set fso = CreateObject("Scripting.FileSystemObject") 
   Set ts = fso.OpenTextFile(Server.MapPath(immagine), 1) 
   s = Right(ts.Read(Start), max) 
   Dimensione(0) = HexToDec(HexAt(s,xs) & HexAt(s,xe)) 
   Dimensione(1) = HexToDec(HexAt(s,ys) & HexAt(s,ye)) 
   ts.Close 
   ImageSize = Dimensione 
End Function 

Function HexAt(s, n) 
   HexAt = Hex(Asc(Mid(s, n, 1))) 
   If Len(HexAt) = 1 Then HexAt = "0" & HexAt 
End Function 


Function HexToDec(cadhex) 
   Dim n, i, ch, decimal 
   decimal = 0 
   n = Len(cadhex) 
   For i=1 To n 
     decimal = decimal * 16 
     ch = Mid(cadhex, i, 1) 
     decimal = decimal + inStr("0123456789ABCDEFabcdef",ch)-1 
   Next 
   HexToDec = decimal 
End Function 
%>

script, senna, formula1, radio, meteo, auto, risorse per webmaster, javascript, sport, scripts, macchine sportive, freeware, asp, programmare, del piero, visual basic, shumacher, sorpassi, porsche, free