Пример программы анализа для захвата учебника

Рекомендуется: ASP возвращает последнее местоположение строки
% dwwwstr = divdwww.cn/divdivwww.dwww.cn/div Design home dwwwstr = instrrev (dwwwstr,/div) response.write dwwwstr % instrrev Описание возвращает позицию с конца строки, которая появляется в другой строке. Syntax Instrrev (String1, String2 [, Start [, Compare]]) Instrerre

Когда я работал в компании утром, я увидел, как снег падает на улицу. Полем

Поэтому я нашел способ написать процедуру прогнозирования погоды, и я увидел, что прогноз погоды на QQ был довольно хорошим. Полем хе -хе. Полем Я тебя поймаю!

Как показано на картинке:

Код:

<%

'При ошибке резюме следующим

«Автор: Wuqing Source: Пожалуйста, сохраните источник при перепечатку

Response.contenttype = text/html;

Вызовать погоду ()

Подглубь ()

url = http: //weather.news.qq.com/inc/07_ss252.htm 'Погода в Шанхае

Вызовите isobjinstalled (microsoft.xmlhttp)

weatherstr = gethttppage (url)

Если weatherstr = then

Ответ. Извините, прогноз погоды не загрузился!

еще

Установить reg = new Regexp

reg.multiline = true

reg.global = false

reg.ignorecase = true

reg.pattern = <td height = 77 class = wht2 lk37> ((. | n)*?) </td>

SET MATCHES = Reg.Execute (Weatherstr)

Для каждого матча в матчах

Weatherstr = Match1.value

Следующий

Установить совпадения = ничего

Установить reg = ничего

Если instr (weatherstr, не найден с)> 0, тогда

Ответ. Извините, прогноз погоды не загрузился!

Еще

weatherstr = заменить (Weatherstr, <td height = 77 class = wht2 lk37>,)

weatherstr = reply (weatherstr, <div class = txbd>,)

Weatherstr = Заменить (Weatherstr, </div>,)

weatherstr = replication (Weatherstr, </td>,)

Ответ. Прогноз погоды Шанхай: и Weatherstr &

конец, если

конец, если

Конец суб

'// Использовать компонент microsoft.xmlhttp для сбора данных

Функция gethttppage (url)

'При ошибке резюме следующим

Dim http

Установить http = server.createObject (microsoft.xmlhttp)

Http.open get, url, false

Http.send ()

Если http.readystate <> 4 то

Выходная функция

конец, если

gethttppage = bytes2bstr (http.responsebody)

Установите http = ничего

Если err.number <> 0, то err.clear

Конечная функция

Share: проанализируйте голосование в программе DIGE DIG ASP
ASP делает голосование в программе DIG (некоторые называются Top и наступают). избиратель.