为什么没人解答？高手在哪？

Question

function DownURL(strRemoteURL,strLocalURL)
{
try
{
var xmlHTTP=new ActiveXObject("Microsoft.XMLHTTP");
xmlHTTP.open("Get",strRemoteURL,false);
xmlHTTP.send();
var adodbStream=new ActiveXObject("ADODB.Stream");
adodbStream.Type=1;//1=adTypeBinary
adodbStream.Open();
adodbStream.write(xmlHTTP.responseBody);
adodbStream.SaveToFile(strLocalURL,2);
adodbStream.Close();
adodbStream=null;
xmlHTTP=null;
}
catch(e)
{
window.confirm("下载URL出错!");
}
//window.confirm("下载完成.");
}

Answer 1

看看这.
利用XMLHTTP无刷新获取数据.     wanghr100 [原作] 
http://dev.csdn.net/develop/article/28/28323.shtm

Answer 2

asp 能接收中文发送接收的中文 正常
但是Response.Write “中文”
客户端接收的就乱了。
？？？？？？？？？

Answer 3

你回写时，把contentType的编码设为UTF-8在java上是
类似response.setContentType("text/html charset=UTF-8")的语句asp我不清楚，应该也有这个方法吧

Answer 4

JSP我不熟悉.ASP是这样子的.//ASP用JavaScript做为脚本语言.
//escape对字符串进行编码然后再传输.
//escape解决了XMLHTTP。中文处理的问题.
Response.Write(escape(sResult));

Answer 5

如果是用VBScript.这是中文的解决方法.<%
'二进制转字符串
Function bytes2BSTR(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End FunctionFunction viewCode(url) 
    Set baoxmlhttp = CreateObject("Msxml2.xmlhttp") 
    With baoxmlhttp 
        .Open "GET", url, False, "", "" 
        .Send 
     viewCode = bytes2BSTR(.ResponseBody) 
    End With 
    Set baoxmlhttp = Nothing
End Functionurl="http://www.baidu.com"  '你要取得HTML的网页地址
SourceCode=viewCode(url)
Response.Write "<pre>"&SourceCode&"</pre>"
%>