<html>
<script language=”javascript”>
function xmlHTTP_GET(url) {
alert(url);
var x = new ActiveXObject(“Microsoft.XMLHTTP”)
x.open(“get”,url,false);
x.send();
var strv = x.responseBody;
document.tform.tarea.value = BinDecode(strv);
}
function xmlHTTP_POST(url) {
var x = new ActiveXObject(“Microsoft.XMLHTTP”)
var parameters = “a=1&b=2″;
x.open(“post”,url,false);
x.setRequestHeader(‘Content-Type’,'application/x-www-form-urlencoded’);
x.setRequestHeader(“Content-length”, parameters.length);
x.send(parameters);
var strv = x.responseBody;
document.tform.tarea.value = BinDecode(strv);
}
</script>
<script language=”vbscript”>
‘//한글 변환
Public Function BinDecode(byVal binData)
Dim i, byteChr, strV
For i = 1 to LenB(binData)
byteChr = AscB(MidB(binData,i,2))
If byteChr > 127 Then
i = i + 1
strV = strV & Chr(“&H” & Hex(byteChr) & Hex(AscB(MidB(binData,i,2))))
Else
strV = strV & Chr(byteChr)
End if
Next
BinDecode = strV
End Function
</script>
<body>
<form onsubmit=”return false;” name=”tform”>
사이트 주소:<input type=”text” name=”turl” value=”http://test.com/mypc.asp” size=”80″>
<input type=”button” value=”POST로전송” onclick=”xmlHTTP_POST(document.tform.turl.value);”>
<input type=”button” value=”GET로전송” onclick=”xmlHTTP_GET(document.tform.turl.value);”><br>
결과:<textarea name=”tarea” style=”width:100%;height:300px”></textarea>
</form>
</body>
</html>
