Архив форумов ЦИТФорума

[( Anton )]

СУТЬ ДЕЛА:
Этот скрипт открывает (скачивает) страницу с другого сайта (сервера)... т.е., например, импортирует новости, погоду, валюту и прочее с др. сервера (открывает и сохраняет в переменную результат выполнения *.shtml, *.phtml, *.asp, *.html... вообщем получает содержимое любого нужного файла).

НО Уж СЛИШКОМ ДОЛГО СКРИПТ "ДУМАЕТ" НА СЕРВЕРЕ перед тем, как выводит скаченный текст... Причём небольшой текст и с одного сервера...
А если текстов несколько, то уж совсем долго висит...

Может подскажите, как ускорить работу скрипта (?)

<%
Dim objIE : Set objIE = CreateObject("InternetExplorer.Application")

objIE.Visible = False : objIE.Silent = False

objIE.Navigate "http://......./*.*"

While CBool(objIE.Busy) : Wend

Dim objDoc : Set objDoc=objIE.Document

pData = objDoc.body.outerHTML &"" '