%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%>
!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
html>
head>
meta http-equiv="Content-Type" content="text/html; charset=utf-8">
title>XMLHTTP/title>
/head>
% 
Server.ScriptTimeout=9999999;
function send_request(url) {
    var codedtext;
    http_request = Server.CreateObject("Microsoft.XMLHTTP");
    http_request.Open("GET",url,false);
    http_request.Send(null);
    if (http_request.ReadyState == 4){
        //自動判斷編碼開始
        var charresult = http_request.ResponseText.match(/CharSet=(\S+)\">/i);
        if (charresult != null){
        var Cset = charresult[1];
        }else{Cset = "gb2312"}//對獲取不到的網(wǎng)站采用gb2312編碼,可自行更改

//自動判斷編碼結(jié)束
        codedtext = bytesToBSTR(http_request.Responsebody,Cset);
        }else{
        codedtext = "Erro";
        }
    return(codedtext);
}

function bytesToBSTR(body,Cset){
var objstream;
objstream = Server.CreateObject("Adodb.Stream");
objstream.Type = 1;
objstream.Mode = 3;
objstream.Open();
objstream.Write(body);
objstream.Position = 0;
objstream.Type = 2;
objstream.Charset = Cset;
bytesToBSTR = objstream.Readtext;
objstream.Close;
return(bytesToBSTR);
}

%>
body>
% Response.Write(send_request("http://www.daum.net")) %>
/body>
/html>