O método de usar xmlhttp para obter o conteúdo da página da web em asp é geralmente mais geral e, em seguida, intercepta o conteúdo da página da web por meio de caracteres.
Copie o código da seguinte forma: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
Função getHTTPPage(url)
dim objXML
set objXML=createobject(MSXML2.XMLHTTP)'define
objXML.open GET,url,false'Open
objXML.send()'Send
If objXML.readystate<>4 then 'Determina se o documento foi analisado, para que o cliente possa aceitar a
função de saída
da mensagem de retornoEnd If
getHTTPPage=bBytesToBstr(objXML.responseBody)' retorna informações e usa
o conjunto de
codificação de definição de funçãoobjXML=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 )
Função Final
Função 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
'Converta a codificação UTF-8 padrão original para a codificação GB2312, caso contrário, use diretamente XMLHTTP para chamar a página da web com caracteres chineses. será um jargão
bBytesToBstr = objstream.ReadText
objstream.Close
set objstream = nada
end
Função Função BytesToBstr (corpo)
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
'Converta a codificação UTF-8 padrão original para a codificação GB2312, caso contrário, usar XMLHTTP diretamente para chamar uma página da web com caracteres chineses resultará em código ilegível
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nada
end Function