salve
qualcuno m sa dire com emai sto fetente di script nn mi funziona???
mi da errore sulle righe in verde!
in qualunque modo le scriva o le dichiari mi da errore :°°°
<%@Import Namespace="System.Drawing.Imaging" %>
<script language="VB" runat="server">
Function ThumbnailCallback() as Boolean
Return False
End Function
Sub Page_Load(sender as Object, e as EventArgs)
'Read in the image filename to create a thumbnail of
Dim imageUrl as String = Request.QueryString("img")
'Add on the appropriate directory
imageUrl = "/public/mangaphotoalbum/file/" & imageUrl
Dim fullSizeImg as System.Drawing.Image
fullSizeImg = System.Drawing.Image.FromFile(Server.MapPath(image Url))
if fullSizeImg.Height > fullSizeImg.Width then
Dim imgWidthNew as Integer = 100
imgHeightNewTemp = (fullSizeImg.Width * 100) / fullSizeImg.Height
Dim imgHeightNew as Integer = imgHeightNewTemp
else
imgWidthNewTemp = Fix((fullSizeImg.Height * 100) / fullSizeImg.Width)
Dim imgWidthNew as Integer = imgWidthNewTemp
Dim imgHeightNew as Integer = 100
end if
'Do we need to create a thumbnail?
Response.ContentType = "image/gif"
If imgWidthNew > 0 and imgHeightNew > 0 then
Dim dummyCallBack as System.Drawing.Image.GetThumbNailImageAbort
dummyCallBack = New System.Drawing.Image.GetThumbnailImageAbort(Addres sOf ThumbnailCallback)
Dim thumbNailImg as System.Drawing.Image
thumbNailImg = fullSizeImg.GetThumbnailImage(imgWidthNew, imgHeightNew, dummyCallBack, IntPtr.Zero)
thumbNailImg.Save(Response.OutputStream, ImageFormat.Gif)
thumbNailImg.Dispose()
Else
fullSizeImg.Save(Response.OutputStream, ImageFormat.Gif)
fullSizeImg.Dispose()
End If
End Sub
</script>
Rispondi quotando
