Die Methode zum Abrufen von Webseiteninhalten unter ASP mit xmlhttp ist im Allgemeinen allgemeiner und fängt dann den Inhalt der Webseite über Zeichen ab.
Kopieren Sie den Code wie folgt: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
Funktion getHTTPPage(url)
dim objXML
set objXML=createobject(MSXML2.XMLHTTP)'define
objXML.open GET,url,false'Open
objXML.send()'Send
If objXML.readystate<>4 then 'Bestimmen Sie, ob das Dokument analysiert wurde, damit der Client es akzeptieren kann Die Rückkehrnachrichten-
Exit-Funktion
End If
getHTTPPage=bBytesToBstr(objXML.responseBody)' gibt Informationen zurück und verwendetden Codierungssatz
der Funktionsdefinition
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 )
End Function
Function 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
'Konvertieren Sie die ursprüngliche Standard-UTF-8-Kodierung in die GB2312-Kodierung. Andernfalls verwenden Sie XMLHTTP direkt, um die Webseite mit chinesischen Zeichen aufzurufen. wird Kauderwelsch sein
bBytesToBstr = objstream.ReadText
objstream.Close
set objstream = Nothing
end Function
Function 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
„Konvertieren Sie die ursprüngliche Standard-UTF-8-Kodierung in die GB2312-Kodierung. Andernfalls führt die direkte Verwendung von XMLHTTP zum Aufrufen einer Webseite mit chinesischen Zeichen zu verstümmeltem Code.
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = Nothing
end Funktion