Сканирование веб-страниц. Иногда необходимо добиться реального обновленного прогноза погоды. Компонент XMLHTTP используется для захвата указанной части веб-страницы. Фактически, многим программам-ворам необходимо разделить исходный код HTML, чтобы быть более полезными.
Захваченный исходный код HTML в этом примере выглядит следующим образом.
<p align=left>Вторник, 24 августа 2004 г.; день: солнечно, иногда пасмурно, ветер в провинции Юньнань 3-4; ночь: солнечно, южный ветер 3-4; температура: максимум 29℃ и минимум 19℃ </p>
Программа взята из
Используйте 24 августа 2004 г. в качестве ключевого слова для поиска до</p>конца.
Захваченное содержимое: вторник, 24 августа 2004 г.; день: солнечно, иногда облачно, ветер Юньнань 3-4; ночь: солнечно, южный ветер, температура: максимум 29 ℃, минимум 19 ℃;
Здесь чисто. Запишите это.
Скопируйте код кода следующим образом:
<%
При ошибке Возобновить Далее
Server.ScriptTimeOut=9999999
Функция getHTTPage(Путь)
т = GetBody (Путь)
getHTTPPage = BytesToBstr (т, GB2312)
Конечная функция
Функция GetBody(url)
при ошибке продолжить дальше
Установить получение = CreateObject(Microsoft.XMLHTTP)
С поиском
.Открыть Get, URL, False, ,
.Отправлять
GetBody = .ResponseBody
Конец с
Установить получение = Ничего
Конечная функция
Функция BytesToBstr(body,Cset)
тусклый объектный поток
установить objstream = Server.CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Открыть
objstream.Напишите тело
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
установить objstream = ничего
Конечная функция
Функция Newsstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
если Newstring<=0, то Newstring=Len(wstr)
Конечная функция
%>
<html>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 MARGINHEIGHT=0 MARGINWIDTH=0>
<!-- Старт-->
<%
Dim wstr,str,url,start,over,dtime
dtime=Год(Дата)&Год&Месяц(Дата)&Месяц&День(Дата)&День
URL=http://www.vevb.com/
wstr = getHTTPage (URL-адрес)
start = Строка новостей (wstr, dtime)
over=Newstring(wstr,</p>)
тело = середина (wstr, старт, перезапуск)
response.write <MARQUEE onmouseover=this.stop(); onmouseout=this.start();>&body&</marquee>
%>
<!--Конец-->
</body></html>