<%
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
Función final
url=request.form("url")
si recortar(url)<>"" entonces
establecer xml = Server.CreateObject ("MSXML2.XMLHTTP.5.0")
xml.open "OBTENER", URL, Falso
xml.enviar
bo = BytesToBstr(xml.ResponseBody,"UTF-8")
encabezado = xml.GetAllResponseHeaders
establecer xml = nada
terminar si
%>
<html>
<cabeza>
<title>XMLHTTP测试</title>
<meta http-equiv="Tipo de contenido" content="text/html;charset=gb2312">
</head>
<body bgcolor="#D4D0C8" topmargin="20" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<div align="center" >
<table border="1" width="770px" cellspace="0" cellpadding="0" bordercolorlight="#808080" bordercolordark="#FFFFFF" height="356">
<tr>
<método de formulario="publicación">
<td align="centro" altura="50">
<tipo de entrada="texto" nombre="url" estilo="ancho:700;alto:20" valor="<%=url%>">
<tipo de entrada="enviar" valor="查看"> </td>
</formulario>
</tr>
<tr>
<td align="centro" altura="124">
<textarea id="Textarea2" name="Textarea2" rows="7" cols="105"><%=header%></textarea></td>
</tr>
<tr>
<td altura="230" align="centro">
<textarea id="Textarea1" nombre="Textarea1" filas="14" cols="105"><%=bo%></textarea></td>
</tr>
</tabla>
</div>
</body>
</html>