Exemplo:
<%
Função GetBody(weburl)
Definir recuperação = Server.CreateObject("MSXML2.XMLHTTP")
Com recuperação
.Abra "Obter", weburl, Falso, "", ""
.setRequestHeader "referenciador"," http://www.devdao.com/"'想改什么就改什么
.Enviar
GetBody = .ResponseBody
Terminar com
GetBody = BytesToBstr(GetBody,"GB2312")
Definir recuperação = nada
Função Final
Função BytesToBstr(body,Cset)
escurecer objstream
definir objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Modo =3
objstream.Open
objstream.Escrever corpo
objstream.Posição = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Fechar
definir objstream = nada
Função final
Response.Write(GetBody(" http://www.devdao.com/referer.asp "))
%>