<%
함수 BytesToBstr(body,Cset)
희미한 객체 스트림
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write 본문
objstream.위치 = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
objstream = 아무것도 설정하지 않음
함수 종료
url=request.form("url")
만약 Trim(url)<>""이면
xml = Server.CreateObject("MSXML2.XMLHTTP.5.0") 설정
xml.open "GET", URL, 거짓
xml.send
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">
<div align="center" >
<table border="1" width="770px" cellpacing="0" cellpadding="0" bordercolorlight="#808080" bordercolordark="#FFFFFF" height="356">
<tr>
<양식 방법="게시">
<td align="center" height="50">
<input type="text" name="url" style="width:700;height:20" value="<%=url%>">
<input type="submit" value="查看"> </td>
</form>
</tr>
<tr>
<td align="center" height="124">
<textarea id="Textarea2" name="Textarea2"rows="7" cols="105"><%=header%></textarea></td>
</tr>
<tr>
<td height="230" align="가운데">
<textarea id="Textarea1" name="Textarea1"rows="14" cols="105"><%=bo%></textarea></td>
</tr>
</table>
</div>
</body>
</html>