La méthode d'utilisation de xmlhttp pour obtenir le contenu d'une page Web sous asp est généralement plus générale, puis intercepte le contenu de la page Web via des caractères.
Copiez le code comme suit :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)
réponse.write body
Fonction getHTTPPage(url)
dim objXML
set objXML=createobject(MSXML2.XMLHTTP)'define
objXML.open GET,url,false'Open
objXML.send()'Send
If objXML.readystate<>4 then 'Détermine si le document a été analysé, afin que le client puisse l'accepter la
fonction de sortie
du message de retourEnd If
getHTTPPage=bBytesToBstr(objXML.responseBody)' renvoie des informations et utilise
le jeu
d'encodage de définition de fonctionobjXML=nothing'Close
si err.number<>0 alors err.Clear
Fin Fonction
Fonction Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
si Newstring<=0 alors Newstring=Len(wstr )
Fin de la fonction
Fonction 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
'Convertissez l'encodage UTF-8 par défaut d'origine en encodage GB2312, sinon utilisez directement XMLHTTP pour appeler la page Web avec des caractères chinois. sera du charabia
bBytesToBstr = objstream.ReadText
objstream.Close
set objstream = rien
de fin Fonction
Fonction 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
'Convertissez l'encodage UTF-8 par défaut d'origine en encodage GB2312, sinon l'utilisation directe de XMLHTTP pour appeler une page Web avec des caractères chinois entraînera un code tronqué.
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = Nothing
End Function