Скорость исполнения скриптов

Программирование на Active Server Pages и VBScript.
KyPCAHT
Начинающий
Начинающий
 
Сообщения: 12
Зарегистрирован: 08.01.2005 (Сб) 12:16

Скорость исполнения скриптов

Сообщение KyPCAHT » 27.01.2005 (Чт) 9:40

Здраствуйте. Вот скрипт.

Код: Выделить всё
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, то он испоняется нимерено долго, а то и привышает допустимый интервал времени.
Все компоненты само писные.

Подскажите как можно увеличить скорость исполнения скрипта. Ну или обмануть, чтобы не выдавалась ошибка по поводу таймаута.

Заранее спасибо за помощь.

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 27.01.2005 (Чт) 11:32

Самописные?
Чё-то осень-осень смахивает на обёртку Тёмыча...
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

KyPCAHT
Начинающий
Начинающий
 
Сообщения: 12
Зарегистрирован: 08.01.2005 (Сб) 12:16

Сообщение KyPCAHT » 27.01.2005 (Чт) 11:49

А я что ... отрицаю, написано с его помощью, даже больше - это его код ...
Самописные - имелось ввиду, что не отмайкрософт ....

ALX_2002
Мега гуру
Мега гуру
 
Сообщения: 2054
Зарегистрирован: 25.11.2002 (Пн) 20:03

Сообщение ALX_2002 » 01.02.2005 (Вт) 0:24

Как ускорить не знаю, но

Код: Выделить всё
Server.ScriptTimeout = 300


думаю подойдёт


Вернуться в ASP и VBScript

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 17

    TopList