ridurre la visualizzazione di 1 immagine?

[yro]

si puo in asp?

io prelevo l'immagine così:

<%
gigi=request.querystring("immagine")
%>

<%
response.Write "<img src=public/"&gigi&">"
%>


come posso creare una condizione per dirgli che se l'immagine è + grande di 400x400 px me la riduca a tot???


grazie!

[yro]

vi prego!!

ho fatto la ricerca ma non trovato niente a riguardo!

[seafarer]

Originariamente inviato da yro
si puo in asp?

io prelevo l'immagine così:

<%
gigi=request.querystring("immagine")
%>
tutt'al + così prelevi il nome dell'immagine
<%
response.Write "<img src=public/"&gigi&">"
%>


come posso creare una condizione per dirgli che se l'immagine è + grande di 400x400 px me la riduca a tot???

grazie!

se vuoi ridurla fisicamente devi usare asp.net (non mi risultano algoritmi per la manipolazione di files in asp) se no basta che controlli la dimensione e se è maggiore di quanto dici tu imponi

[img]...[/img]

[yro]

Originariamente inviato da seafarer
se vuoi ridurla fisicamente devi usare asp.net (non mi risultano algoritmi per la manipolazione di files in asp) se no basta che controlli la dimensione e se è maggiore di quanto dici tu imponi

[img]...[/img]

non fisicamente, a me basta ridurre la visualizzazione!

il problema (x me!) è la sintassi della condizione!!
non saprei come scrivere la stringa!?!

tipo...

if <img src"<%pubblic/&gigi&>"(come metto le dimensioni??)then
...

mi incarto!!

help! :master:

[seafarer]

Dim Dimensione
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"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
  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

Immagine = "path/immagine" 'qui il path virtuale dell'immagine
Dimensione = ImageSize(Immagine)
Response.Write "Larghezza: " & Dimensione(0) & " pixel" & "
"
Response.Write "Altezza: " & Dimensione(1) & " pixel"]

[tse]

si ma in questo modo l'immagine non viene ridotta in scala...
o mi sbaglio?

[seafarer]

infatti, così vedi solo le dimensioni vere e proprie, poi sta a te fare le proporzioni. è semplice

altezza vera sta a altezza che vuoi come larghezza vera sta a x
x è la larghezza proporzionata all'altezza che vuoi