Метод использования xmlhttp для получения содержимого веб-страницы под asp обычно является более общим и затем перехватывает содержимое веб-страницы с помощью символов.
Скопируйте код следующим образом:url=http://www.csdn.net/
wstr=getHTTPPage(url)
start=Newstring(wstr,Resource Selection<!-- Download-->)
over=Newstring(wstr,<div class =friendlink>)
body=mid(wstr,200,500)
response.write body
Функция getHTTPPage(url)
dim objXML
set objXML=createobject(MSXML2.XMLHTTP)'define
objXML.open GET,url,false'Open
objXML.send()'Send
If objXML.readystate<>4 then 'Определить, был ли документ проанализирован, чтобы клиент мог принять
функция выхода
возвращаемого сообщения
End If
getHTTPPage=bBytesToBstr(objXML.responseBody)' возвращает информацию и использует
набор
кодировок определения функцииobjXML=nothing'Close
if err.number<>0 then err.Clear
End Function
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr) )
Конечная функция
Функция bBytesToBstr(body)
dim objstream
set objstream = CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = gb2312
'Преобразуйте исходную кодировку UTF-8 по умолчанию в кодировку GB2312, в противном случае напрямую используйте XMLHTTP для вызова веб-страницы с китайскими символами. будет тарабарщина
bBytesToBstr = objstream.ReadText
objstream.Close
set objstream = Nothing
end
Функция Функция BytesToBstr(body)
dim objstream
set objstream = CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = utf-8
'Преобразуйте исходную кодировку UTF-8 по умолчанию в кодировку GB2312, иначе прямое использование XMLHTTP для вызова веб-страницы с китайскими символами приведет к искажению кода
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = Nothing
end Function