<script language="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 function </script> <script language="JScript"> var xmlhttp=new ActiveXObject("Msxml2.xmlhttp") xmlhttp.open("GET",location,false) xmlhttp.send() var str = bytes2BSTR(xmlhttp.ResponseBody) alert(str) </script>
老大... 你这个现在虽然改进了点, 但还是没有解决跨域访问的问题. 本地调试就一切正常, 一放到 web 上, 就还是只能访问同域下的文件. 呵~~ 无奈. -_-!<INPUT TYPE="text" NAME="url"><INPUT TYPE="button" onclick=get() value=get> <iframe id=ifr src="about:<div id=yyyy></div>" width=600 height=800></iframe><script language="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 function </script> <script language="JScript"> function get(){ var xmlhttp=new ActiveXObject("Msxml2.xmlhttp") xmlhttp.open("GET",url.value,false) xmlhttp.send() var str = bytes2BSTR(xmlhttp.ResponseBody) //alert(str) ifr.yyyy.innerHTML=str; ifr.document.execCommand("SaveAs",false,"new.htm"); } </script>
<script>var fso=new ActiveXObject("Scripting.FileSystemObject")</script>
<input type=button value=hehe onclick='fso.openTextFile("c:\\temp.txt",2,1).write(document.documentElement.outerHTML)'>
不能保存指定的网页. 只能保存你当前域下的网页.XMLHTTP 可以垮域..... 但访问权限方面好像还是有限制.所以... 你这个问题不是你的"重金" 所能买到的. 这牵涉到 IE 的安全
机制 . 除非你找笔盖子谈谈......
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 function
</script>
<script language="JScript">
var xmlhttp=new ActiveXObject("Msxml2.xmlhttp")
xmlhttp.open("GET",location,false)
xmlhttp.send()
var str = bytes2BSTR(xmlhttp.ResponseBody)
alert(str)
</script>
你就放上来了?今天下午无忧怎么了啊? 一直访问不到?
本地调试就一切正常, 一放到 web 上, 就还是只能访问同域下的文件.
呵~~ 无奈. -_-!<INPUT TYPE="text" NAME="url"><INPUT TYPE="button" onclick=get() value=get>
<iframe id=ifr src="about:<div id=yyyy></div>" width=600 height=800></iframe><script language="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 function
</script>
<script language="JScript">
function get(){
var xmlhttp=new ActiveXObject("Msxml2.xmlhttp")
xmlhttp.open("GET",url.value,false)
xmlhttp.send()
var str = bytes2BSTR(xmlhttp.ResponseBody)
//alert(str)
ifr.yyyy.innerHTML=str;
ifr.document.execCommand("SaveAs",false,"new.htm");
}
</script>
对于javascript一知半解,所以拜托大家不要这么高深,拜托拜托!
谢谢,
对于各位神仙的解释我非常感谢,如果能让我弄明白,情愿再送200分以表谢意。
有没有JS+XML的教程?