<%
Response.Contenttype="image/jpeg"
Set GDI = CreateObject("prjGDIPlus.Global")
GDI.Createimage("C:\SERVER\DOWNLOAD\NEW\ws2003.jpg").getthumbnailimage 100,100
Response.binaryWrite результат
Set GDI=Nothing
%>
<%
Response.Contenttype="image/jpeg"
Set GDI = CreateObject("prjGDIPlus.Global")
GDI.CreateImage("C:\SERVER\DOWNLOAD\NEW\ws2003.jpg").GetThumbnailImage(100,100).SaveToJpegToMemory результат
Response.binaryWrite результат
Set GDI=Nothing
%>
<%
Dim RES
Response.Contenttype="image/jpeg"
Set GDI = CreateObject("prjGDIPlus.Global")
RES = GDI.Createimage("C:\SERVER\DOWNLOAD\NEW\ws2003.jpg").getthumbnailimage(100,100).savejpegtomemory
Set GDI=Nothing
%>
RES = GDI.Createimage("C:\SERVER\DOWNLOAD\NEW\ws2003.jpg").getthumbnailimage(100,100).savejpegtomemory
GDI.CreateImage("C:\SERVER\DOWNLOAD\NEW\ws2003.jpg").GetThumbnailImage(100,100).SaveToJpegToMemory RES
Dim i
Set i = GDI.CreateImage("C:\SERVER\DOWNLOAD\NEW\ws2003.jpg")
результат = i.GetThumbnailImage(100, 100 * i.Height / i.Width).SaveToJpegToMemoryVar
Сейчас этот форум просматривают: Mail.ru [бот], SemrushBot и гости: 10