禁止访问非同域网站WebSite,下面个例子来访问http://www.google.cn,
<script type="text/javascript">
function createobj {
(window.ActiveXObject) {
ActiveXObject("Microsoft.XMLHTTP");
}
(window.XMLHttpRequest) {
XMLHttpRequest;
}
}
function getWebPage(url) {
var oBao=createobj;
var my_url=url
oBao.open('get',my_url,false);
oBao.onreadystatechange=function{
(oBao.readyState4){
(oBao.status200){
var Str=oBao.responseText;
document.write(Str);
}{
document.write("未找到您输入地址或服务器505!");
}
}
}
oBao.send(null);
}
getWebPage('http://www.google.cn');
</script>
保存这段代码到test.html,在本地直接用IE打开没问题,但将该段代码上传到服务器后问题出现了--JS提示"没有权限"!!!这该如何解决呢？
下面研究下:既然不能访问非同域只能访问同域地址了同域动态文件如何获取非同域网页内容呢？我们还是想到AJAX只不过这个AJAX是在服务器端执行.
大体思路是这样:首先将URL用AJAX提交给自己站内文件例如getPage.asp---在getPage.asp再次通过服务器XMLHTTP来访问提交来URL---将获取内容返回给提交URL页----显示内容
下面开始组织代码,首先是test.html文件
<script type="text/javascript">
function createobj {
(window.ActiveXObject) {
ActiveXObject("Microsoft.XMLHTTP");
}
(window.XMLHttpRequest) {
XMLHttpRequest;
}
}
function getWebPage(url) {
var oBao=createobj;
var my_url="getpage.asp?url="+escape(url);
oBao.open('get',my_url,false);
oBao.onreadystatechange=function{
(oBao.readyState4){
(oBao.status200){
var Str=oBao.responseText;
document.write(Str);
}{
document.write("未找到您输入地址或服务器505!");
}
}
}
oBao.send(null);
}
getWebPage('http://www.google.cn');
</script>
再就是getpage.asp文件(注意:要以UTF-8格式保存本文件,防止乱码),如下:

<%
response.char="UTF-8"
reg="\<meta.+ char= {0,}([^\"" \>\/]*).+\/{0,1}\>"
'名:GetResStr
'作用:获取指定URLHTML代码
'参数:URL-要获取URL
function GetResStr(URL)
err.clear
dim ResBody,ResStr,PageCode,ReturnStr
Set Http=createobject("MiCROSOFT.XMLHTTP")
Http.open "GET",URL,False
Http.Send
If Http.Readystate =4 Then
If Http.status=200 Then
ResStr=http.responseText
ResBody=http.responseBody
PageCode=GetCode(ResStr,reg)
ReturnStr=BytesToBstr(http.responseBody,PageCode)
GetResStr=ReturnStr
End If
End If
End Function
'名:BytesToBstr
'作用:转换 2进制数据为
'参数:Body- 2进制数据,C-文本编码方式
Function BytesToBstr(Body,C)
Dim Objstream
Set Objstream = CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Char =C
BytesToBstr = objstream.ReadText
objstream.Close
objstream = nothing
End Function
'名:GetCode
'作用:转换 2进制为
'参数:str-待查询串,regstr-正则表达式
Function GetCode(str,regstr)
Dim Reg,serStr
Reg= RegExp
Reg.IgnoreCase = True
Reg.MultiLine = True
Reg.Pattern =regstr
Reg.test(str) then '若查询到匹配项
Set Cols = Reg.Execute(str)
serStr=Cols(0).SubMatches(0) '使用匹配到第个匹配项
'否则给个默认值gb2312,有点省懒法如果页面没给出编码格式想知道确实有点麻烦
serStr="gb2312"
end
GetCode=serStr
end function
dim url:url=request.query("url")
response.write GetResStr(URL)
%>
代码组织完毕,实验下,成功提取http://www.google.cn内容!!!!!这样就可以解决"没有权限"问题了
其实,单纯个getpage.asp样能获取不过不能像js那样动态处理DOM
还有个问题,如果你用第种思路方法访问http://www.baidu.com会出现乱码,baidu编码为GB2312,
而XMLHTTP返回是UTF-8编码格式用第 2种思路方法就不会出现这样问题了,只要定义了编码格式站点就能正常返回信息(这里不能包括些使用特别编码站点)