结合VBSCRIPT使用,这思想我是从ASP无组件文件上传那里学来的,居然解决了这头痛的问题,呵呵. <script language="vbscript"> Function bin2str(binstr) Dim varlen,clow,ccc,skipflag,i skipflag=0 ccc = "" If Not IsNull(binstr) Then varlen=LenB(binstr) For i=1 To varlen If skipflag=0 Then clow = MidB(binstr,i,1) If AscB(clow) > 127 Then ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow)) skipflag=1 Else ccc = ccc & Chr(AscB(clow)) End If Else skipflag=0 End If Next End If bin2str = ccc End Function </script><script language="jscript"> var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP"); function getURL() { xmlhttp.open("GET",url.value,false); xmlhttp.send(); var WebCode = bin2str(xmlhttp.responseText); document.write(WebCode); } </script>
document.write(HttpUtility.UrlEncode(WebCode))
希望对你有所帮助。。<HTML> <HEAD> <TITLE></TITLE> <Script language="Javascript"> var sFile = "sina.txt"; var sURL = "http://www.sina.com.cn"; var objXMLHTTP = new ActiveXObject("Microsoft.XMLHTTP"); objXMLHTTP.Open("GET",sURL,false); objXMLHTTP.Send(); var St1= new ActiveXObject("Adodb.Stream"); St1.type = "1"; St1.open(); St1.write(objXMLHTTP.responsebody); St1.savetofile(sFile,2); St1.close(); var St2= new ActiveXObject("Adodb.Stream"); St2.type = "2"; St2.charset="gb2312"; St2.open(); St2.loadfromFile(sFile); document.write(St2.readText()); St2.close(); </Script> </HEAD><BODY BGCOLOR="#FFFFFF"> </BODY> </HTML>
UPUP UPUPUPUPUP UPUP UPUPUPUPUPUPUP UPUP UPUP UPUPUPUPUPUPUP UPUP UPUP UP UPUP UPUPUP UP UPUP UPUP UP UPUP UP UPUP UP UPUP UPUP UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP UP UPUP UP UPUP UP UP UPUP UPUP UP UPUP UPUPUP UP UPUP UPUP UPUP UPUPUPUP UPUP UPUP UPUPUPUP UPUP UPUPUP UPUPUPUPUPUPUP UPUPUPUPUP UPUPUPUPUP UP UPUPUPUP UPUP UP UPUPUP UP UPUPUP UP UPUPUPUPUP UP UPUPUP UPUPUP UP UP UPUP UPUPUP UP UPUP UPUP UPUPUPUP UP UPUPUPUPUPUPUP UPUPUPUPUPUP UPUPUPUP UPUPUPUPUP UPUP UPUPUP
UPUPUP UPUP UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP UPUPUPUPUPUPUPUPUPUPUP UPUP UP UPUP UP UP UP UP UP UPUPUPUPUPUPUPUPUPUPUPUPUPUP UP UPUP UPUP UP UPUP UP UP UPUP UP UP UPUP UPUP UP UP UPUP UPUP UP UP UPUP UPUP UP UP UPUP UPUP UP UP UPUP UPUP UP UP UPUP UPUP UP UP UPUP UPUP UP UP UPUP UP UP UP UPUP UPUP UP UP UPUP UPUP UP UP UPUP UP UPUP UP UPUPUPUP UPUP UPUP UPUPUP UPUP UPUPUP UPUP UPUPUP UPUP UPUPUP UPUPUP UPUP UPUP
<?xml version="1.0" encoding="utf-8" ?>
或
<?xml version="1.0" encoding="GB2312" ?>
等。
不知行不行
try it:xmlHTTP.setRequestHeader("Content-Type","text/xml; charset=utf-8" ) ;
<script language="vbscript">
Function bin2str(binstr)
Dim varlen,clow,ccc,skipflag,i
skipflag=0
ccc = ""
If Not IsNull(binstr) Then
varlen=LenB(binstr)
For i=1 To varlen
If skipflag=0 Then
clow = MidB(binstr,i,1)
If AscB(clow) > 127 Then
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
skipflag=1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag=0
End If
Next
End If
bin2str = ccc
End Function
</script><script language="jscript">
var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
function getURL()
{
xmlhttp.open("GET",url.value,false);
xmlhttp.send();
var WebCode = bin2str(xmlhttp.responseText);
document.write(WebCode);
}
</script>
<HEAD>
<TITLE></TITLE>
<Script language="Javascript"> var sFile = "sina.txt";
var sURL = "http://www.sina.com.cn"; var objXMLHTTP = new ActiveXObject("Microsoft.XMLHTTP"); objXMLHTTP.Open("GET",sURL,false);
objXMLHTTP.Send(); var St1= new ActiveXObject("Adodb.Stream");
St1.type = "1";
St1.open();
St1.write(objXMLHTTP.responsebody);
St1.savetofile(sFile,2);
St1.close(); var St2= new ActiveXObject("Adodb.Stream");
St2.type = "2";
St2.charset="gb2312";
St2.open();
St2.loadfromFile(sFile);
document.write(St2.readText());
St2.close();
</Script>
</HEAD><BODY BGCOLOR="#FFFFFF">
</BODY>
</HTML>
UPUPUPUPUP UPUP
UPUPUPUPUPUPUP UPUP UPUP
UPUPUPUPUPUPUP UPUP UPUP
UP UPUP UPUPUP
UP UPUP UPUP
UP UPUP
UP UPUP
UP UPUP UPUP
UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP
UP UPUP
UP UPUP UP
UP UPUP UPUP
UP UPUP UPUPUP
UP UPUP UPUP UPUP
UPUPUPUP UPUP UPUP
UPUPUPUP UPUP UPUPUP
UPUPUPUPUPUPUP UPUPUPUPUP
UPUPUPUPUP UP UPUPUPUP
UPUP UP UPUPUP
UP UPUPUP
UP UPUPUPUPUP
UP UPUPUP UPUPUP UP
UP UPUP UPUPUP UP
UPUP UPUP UPUPUPUP UP
UPUPUPUPUPUPUP UPUPUPUPUPUP
UPUPUPUP UPUPUPUPUP
UPUP UPUPUP
UPUPUP
UPUP UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP
UPUPUPUPUPUPUPUPUPUPUP UPUP
UP UPUP
UP UP
UP UP
UP UPUPUPUPUPUPUPUPUPUPUPUPUPUP
UP UPUP UPUP
UP UPUP UP
UP UPUP UP
UP UPUP UPUP UP
UP UPUP UPUP UP
UP UPUP UPUP UP
UP UPUP UPUP UP
UP UPUP UPUP UP
UP UPUP UPUP UP
UP UPUP UPUP UP
UP UPUP UP UP
UP UPUP UPUP UP
UP UPUP UPUP UP
UP UPUP
UP UPUP UP
UPUPUPUP UPUP UPUP
UPUPUP UPUP UPUPUP
UPUP UPUPUP
UPUP UPUPUP
UPUPUP UPUP
UPUP
<globalization
requestEncoding="GB2312"
responseEncoding="GB2312"
uiCulture="zh-CN"
culture="zh-CN"
fileEncoding="GB2312"
/>
就可以显示了!