

bytesToBSTR转换编码的时候提示错误,经过比较发现其他的asp小偷程序里的代码都是Responsebody,分析后,发现body返回来的是二进制数据而
不是像ResponseText或ResponseXml那样返回字符或dom对象. 
ajax的asp代理函数介绍 
send_request(url) ,url为地址  
服务器端代码如下带自动判断所有字符编码,已测试 日语 韩语 繁体
 代码如下:
<%@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"}//对获取不到的网站采用gb2312编码,可自行更改 
//自动判断编码结束 
        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> 
