Par exemple :
<%
Fonction GetBody(weburl)
Définir la récupération = Server.CreateObject("MSXML2.XMLHTTP")
Avec récupération
.Ouvrez "Obtenir", weburl, False, "", ""
.setRequestHeader "referer", http://www.devdao.com/"'想改什么就改什么
.Envoyer
GetBody = .ResponseBody
Terminer par
GetBody = OctetsVersBstr(GetBody,"GB2312")
Définir la récupération = Rien
Fonction de fin
Fonction BytesToBstr(body,Cset)
objstream obscur
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Ouvrir
objstream.Écrire le corps
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Fermer
définir objstream = rien
Fin de la fonction
Response.Write(GetBody(" http://www.devdao.com/referer.asp "))
%>