<%
الدالة BytesToBstr(body,Cset)
objstream خافت
تعيين 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.Close
تعيين objstream = لا شيء
نهاية الوظيفة
url=request.form("url")
إذا تقليم (url) <>"" إذن
تعيين xml = Server.CreateObject("MSXML2.XMLHTTP.5.0")
xml.open "GET"، عنوان URL، خطأ
xml.send
بو = BytesToBstr(xml.ResponseBody،"UTF-8")
header = xml.GetAllResponseHeaders
تعيين XML = لا شيء
النهاية إذا
%>
<أتش تي أم أل>
<الرأس>
<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" هامش عرض = "0" هامش ارتفاع = "0">
<div align = "center"" >
<حدود الجدول = "1" العرض = "770px" تباعد الخلايا = "0" cellpadding = "0" bordercolorlight = "#808080" bordercolordark = "#FFFFFF" الارتفاع = "356">
<تر>
<طريقة النموذج = "post">
<td align="center" height="50">
<نوع الإدخال = "نص" اسم = "url" نمط = "العرض: 700؛ الارتفاع: 20" القيمة = "<%=url%>">
<input type="submit" value="查看"> </td>
</النموذج>
</tr>
<تر>
<td محاذاة = "المركز" الارتفاع = "124">
<textarea id="Textarea2" name="Textarea2"rows="7" cols="105"><%=header%></textarea></td>
</tr>
<تر>
<ارتفاع td = "230" محاذاة = "المركز">
<textarea id="Textarea1" name="Textarea1"rows="14" cols="105"><%=bo%></textarea></td>
</tr>
</الجدول>
</div>
</body>
</html>