- Код: Выделить всё
Set GDI = CreateObject("prjGDIplus.Global")
Set map = GDI.CreateImage("C:\RIS\map\66.bmp")
Set flod=CreateObject("prjRIS.clsMAP")
flod.FloodFillImage map, 166, 141, 8388608, 0, 0, 0
flod.FloodFillImage map, 127, 141, 8388608, 63, 63, 63
flod.FloodFillImage map, 238, 188, 8388608, 127, 127, 127
flod.FloodFillImage map, 178, 197, 8388608, 191, 191, 191
flod.FloodFillImage map, 120, 182, 8388608, 255, 255, 255
Set jpg = GDI.CreateBitmap(map.Width, map.Height, map.Format)
GDI.CreateGraphicsFromImage(jpg).DrawImage map, 0, 0
jpg.SaveToJpeg "C:\RIS\temp\xxx.jpg", 90
Set GDI = Nothing
Set flod= Nothing
Если его загнать в обыкновенный фаил *.vbs, то он исполняется за приемлимое время(менее 1 секунды), если его загнать в *.asp, то он испоняется нимерено долго, а то и привышает допустимый интервал времени.
Все компоненты само писные.
Подскажите как можно увеличить скорость исполнения скрипта. Ну или обмануть, чтобы не выдавалась ошибка по поводу таймаута.
Заранее спасибо за помощь.
