<%
函數 BytesToBstr(body,Cset)
暗淡對象流
設定 objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.寫入主體
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.關閉
設定 objstream = 無
結束函數
url=request.form("url")
如果修剪(url)<>"" 那麼
設定 xml = Server.CreateObject("MSXML2.XMLHTTP.5.0")
xml.open“GET”，url，False
xml.發送
bo = BytesToBstr(xml.ResponseBody,"UTF-8")
標頭 = xml.GetAllResponseHeaders
設定 xml = 無
結束如果
%>
<html>
<標題>
<title>XMLHTTP測試</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
/ head>
<body bgcolor =“#D4D0C8”topmargin =“20”leftmargin =“0”rightmargin =“0”bottommargin =“0”marginwidth =“0”marginheight =“0”>
<divalign =“center” >
<table border="1" width="770px" cellspacing="0" cellpadding="0" bordercolorlight="#808080" bordercolordark="#FFFFFF" height="356">
<tr>
<表單方法=「貼文」>
<td對齊=“中心”高度=“50”>
<input type="text" name="url" style="width:700;height:20" value="<%=url%>">
<input type="submit" value="查看"> </td>
</形式>
</tr>
<tr>
<td對齊=“中心”高度=“124”>
<textarea id="Textarea2" name="Textarea2" rows="7" cols="105"><%=header%></textarea></td>
</tr>
<tr>
<td高度=“230”對齊=“中心”>
<textarea id="Textarea1" name="Textarea1" rows="14" cols="105"><%=bo%></textarea></td>
</tr>
</表>
</div>
</body>
</html>