很多方法取得源码,都都没法跨域的
下面的方法可以本地访问其他域,搁到网上就不行了<textarea id=source rows=5 cols=50></textarea>
<script language="vbscript">
Function bytes2BSTR(vIn)
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
set xml=CreateObject("Microsoft.XMLHTTP")
xml.Open "POST","http://mail.sina.com.cn/"
xml.Send
source.value=bytes2BSTR(xml.ResponseBody)
</script>
下面的方法可以本地访问其他域,搁到网上就不行了<textarea id=source rows=5 cols=50></textarea>
<script language="vbscript">
Function bytes2BSTR(vIn)
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
set xml=CreateObject("Microsoft.XMLHTTP")
xml.Open "POST","http://mail.sina.com.cn/"
xml.Send
source.value=bytes2BSTR(xml.ResponseBody)
</script>
解决方案 »
- 如何改写document.execCommand("BackColor",false,"red") 兼容火狐
- Dreamweaver CS5 回车,大括号对齐的问题。
- 各位大哥,滚动条如何分页
- javaScript中的replace要替换全部的"("如何写
- 大侠帮我看下代码把
- backspace功能
- onmouseover事件和cursor
- 请问各位,怎么将 一个页面的ACTION 提交到两个FORM里去。进来看看详情,多谢!
- 如何把表单内容从一页发送到另一页的问题?
- angularjs继承问题
- 很难,很难,关于下拉菜单被帧遮住的问题
- 怎么不用上载控件,而实现文件上载,或用ActiveX替换文件上载控件
但是COOKIE就不同了。