ridimensionare immagine al volo

[webfaber]

Ciao a tutti,

vorrei sapere qualcuno ha alaborato/individuato scripts o tutorials che permettono di creare dei thumb al volo con ASP classic.

Avendo ereditato un sito pieno di immagini e non volendo ridimensionarle tutte, mi servirebbe che, nella pagina di visualizzazione ci fossero dei thumb, orizzontali o verticali, poi cliccabili.

Grazie

[rixx]

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") 
      If fso.FileExists(Server.MapPath(immagine)) Then 

   Set ts = fso.OpenTextFile(Server.MapPath(immagine)) 
   s = Right(ts.Read(Start), max) 
if HexToDec(HexAt(s,xs) & HexAt(s,xe)) => HexToDec(HexAt(s,ys) & HexAt(s,ye)) then
if HexToDec(HexAt(s,xs) & HexAt(s,xe)) <= mx then
   Dimensione(0) = HexToDec(HexAt(s,xs) & HexAt(s,xe)) 
   Dimensione(1) = HexToDec(HexAt(s,ys) & HexAt(s,ye)) 
else
   Dimensione(0) = mx 
   Dimensione(1) = HexToDec(HexAt(s,ys) & HexAt(s,ye)) * mx / HexToDec(HexAt(s,xs) & HexAt(s,xe))
end if
end if
if HexToDec(HexAt(s,xs) & HexAt(s,xe)) <= HexToDec(HexAt(s,ys) & HexAt(s,ye)) then
if HexToDec(HexAt(s,ys) & HexAt(s,ye)) <= mx then
   Dimensione(0) = HexToDec(HexAt(s,xs) & HexAt(s,xe)) 
   Dimensione(1) = HexToDec(HexAt(s,ys) & HexAt(s,ye))
else
   Dimensione(0) = HexToDec(HexAt(s,xs) & HexAt(s,xe)) * mx / HexToDec(HexAt(s,ys) & HexAt(s,ye))
   Dimensione(1) = mx
end if
end if
   ts.Close 
   ImageSize = Dimensione 
   else
      s = mx
   Dimensione(0) = 0 
   Dimensione(1) = 0 
   ImageSize = Dimensione 
   end if

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

la richiami con:
immagine="urlimmagine"
mx="dimensione a cui vuoi portare il lato piu grande"

[rixx]

l'ho fatta io cmq ci sono anche altri modi

[webfaber]

Grazie mille.

Ora la testo e poi ti faccio sapere.

Ciao

[rixx]

ps: le variabili delle due dimensioni dell'immagine sono nell'array
Dimensione, percui le richiami con dimensione(0) e dimensione(1)

[kluster]

cmq cosi non la ridimensiona, è solo per forzare una dimesione a rimpicciolirsi, non ricampiona l'immagine

tanto vale a quel punto
fare un
[img]quellochetipare[/img]

ridimensiona a 100 e l'height lo ricalcola in automatico l'html

per fare il ridimensionamento "reale" dell'immagine allora o usi asp.net o un componente

[rixx]

Originariamente inviato da kluster
cmq cosi non la ridimensiona, è solo per forzare una dimesione a rimpicciolirsi, non ricampiona l'immagine

tanto vale a quel punto
fare un
[img]quellochetipare[/img]

ridimensiona a 100 e l'height lo ricalcola in automatico l'html

per fare il ridimensionamento "reale" dell'immagine allora o usi asp.net o un componente

seeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee



dimmi hai mai provato ad usare html per il ridimensionamento dell'immagine?
cioè poniamo che l'img è 150x100 se tu metti width="100" ti pare che automaticamente l'altra diventa 70?

seeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee

[rixx]

questo fa il resize che è quello che volevi web no?

[rixx]

so diventato Senior fatemi gli auguri
cmq si puo inoltre aggiungere se proprio si vogliono fare le cose con stile addirittura il resize dei bytes ma non mi sembra necessario!

[kluster]

non ti sbagliare quella funzione fa tutto tranne il resize
legge il marker, trova la dimensione width o height e poi forza la dimensione in proporzioni

per ridimensionare io intendo che tu prendi una foto e la ridimensioni realmente ossia una volta che la riapri non è come prima ma ha le dimensioni cambiate


ripeto, farlo con l'html è la stessa cosa