Titel:
<%
Funktion GetBody(weburl)
Set Retrieval = Server.CreateObject("MSXML2.XMLHTTP")
Mit Abruf
.Öffnen Sie „Get“, weburl, False, „“, „“
.setRequestHeader "referer", http://www.devdao.com/"'想改什么就改什么
.Schicken
GetBody = .ResponseBody
Ende mit
GetBody = BytesToBstr(GetBody,"GB2312")
Abruf festlegen = Nichts
Endfunktion
Funktion BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Öffnen
objstream.Text schreiben
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Schließen
set objstream = nichts
Endfunktion
Response.Write(GetBody(" http://www.devdao.com/referer.asp "))
%>