Используйте ASP, чтобы получить указанный контент удаленной веб -страницы, вы можете легко получить некоторое из указанных содержимого веб -страницы.
Код заключается в следующем:
<%
'Используйте ASP, чтобы получить указанный контент удаленной целевой веб -страницы, код предоставляется веб -сайтом Гуанчжоу для создания http://www.vevb.com
При ошибке резюме следующим
Server.scripttimeout = 9999999
Функция gethttppage (path)
T = getBody (path)
Gethttppage = bytestobstr (t, gb2312)
Конечная функция
Функциональная новость (WSTR, STRNG)
Newstring = instr (Lcase (WSTR), Lcase (Strng))
Если Newstring <= 0, то newstring = len (wstr)
Конечная функция
Функция Bytestobstr (тело, CSET)
Dim objstream
Установить objstream = server.createObject (adodb.stream)
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write?
objstream.position = 0
objstream.type = 2
objstream.charset = cset
Bytestobstr = objstream.readtext
objstream.close
установить objstream = ничего
Конечная функция
Функция getbody (url)
При ошибке резюме следующим
SET Retrieval = createObject (microsoft.xmlhttp)
С поиском
.Opeen get, url, false ,,,,,,
.Отправлять
Getbody =. -Responsebody
Закончить с
Setrieval = ничего
Конечная функция
'ASP получает указанный контент начала удаленной веб -страницы, запускаясь
Dim WSTR, STR, URL, Start, Over, Dtime
A = Start Content 'ASP Получите целевой контент веб -страницы и начните маркировку
b = конечный контент 'asp, чтобы получить финальный знак веб -контента
url = http://sc.vevb.com/
Wstr = gethttppage (url)
Start = Newstring (WSTR, A)
Over = Newstring (WSTR, B)
Тело = среднее (wstr, start, over-start)
Ответ.
'ASP Получите указанный контент отдаленной веб -страницы заканчивается
%>
Приведенный выше код может получить содержимое указанной веб -страницы.
Основной код:
'ASP получает указанный контент начала удаленной веб -страницы, запускаясь
Dim WSTR, STR, URL, Start, Over, Dtime
url = http://sc.vevb.com/
Wstr = gethttppage (url)
Тело = WSTR