Hola quisiera saber si alguien me puede ayudar
quisiera saber como hago para cambiar el tamaño de una imagen
gracias
| ||||
lo llamas asi <%redimImage "fotos/mifoto.jpg", 50, 70, 100, 100%> Sub redimImage(inImg, inW, inH, inMW, inMH) maxWidth = CInt(inMW) maxHeight = CInt(inMH) dW = 0 dH = 0 h = CInt(inH) : w = CInt(inW) dH = CInt(inH) : dW = CInt(inW) If h >= maxHeight Or w >= maxWidth Then If h >= maxHeight And w >= maxWidth Then If h > w Then dH=maxHeight dW = CInt((w * dH) / h) Else dW = maxWidth dH = CInt((h * dW) / w) End If ElseIf h > maxHeight And w < maxWidth Then dH = maxHeight dW = CInt((w * dH) / h) ElseIf h < maxHeight And w > maxWidth Then dW = maxWidth dH = CInt((h * dW) / w) End If End If Response.Write "<img src=""" & inImg & """ width=""" & dW & """ height=""" & dH & """ border=""0"">" End Sub%> un saludo
__________________ Manual de ASP Avanzado ;-) |