Ejemplo:
<%
Función GetBody (weburl)
Establecer recuperación = Server.CreateObject ("MSXML2.XMLHTTP")
Con recuperación
.Abrir "Obtener", weburl, Falso, "", ""
.setRequestHeader "referidor", http://www.devdao.com/"'想改什么就改什么
.Enviar
ObtenerCuerpo = .ResponseBody
Terminar con
ObtenerCuerpo = BytesToBstr(ObtenerCuerpo,"GB2312")
Establecer recuperación = nada
Función final
Función BytesToBstr(cuerpo,Cset)
corriente de objetos tenue
establecer objstream = Server.CreateObject("adodb.stream")
objstream.Tipo = 1
objstream.Modo =3
objstream.Abrir
objstream.Escribir cuerpo
objstream.Posición = 0
objstream.Tipo = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Cerrar
establecer objstream = nada
de función final
. Escritura (GetBody (" http://www.devdao.com/referer.asp "))
%>