如何解决AJAX中跨域访问出现'没有权限'的错误

作者:anlige 来源:编程中国 时间:2008-09-11 17:20:00 

很多人在使用AJAX调用别人站点内容的时候,JS会提示"没有权限"错误,这是XMLHTTP组件的限制-安全起见禁止访问非同域的网站,下面一个例子来访问http://www.google.cn



保存这段代码到test.html,在本地直接用IE打开没问题,但将该段代码上传到服务器后,问题出现了--JS提示"没有权限"错误!!!这该如何解决呢?

下面思考一下:既然不能访问非同域的,只能访问同域的地址了,同域的动态文件怎么获取非同域网页内容呢?我们还是想到的AJAX,只不过这个AJAX是在服务器端执行.

 大体思路是这样的:首先将URL用AJAX提交给自己站内的文件,例如getPage.asp---在getPage.asp再次通过服务器XMLHTTP来访问提交来的URL---将获取的内容返回给提交URL的页----显示内容
  下面开始组织代码,首先是test.html文件


<script type="text/javascript">
function createobj() {
if (window.ActiveXObject) {
         return new ActiveXObject("Microsoft.XMLHTTP");
     }
     else if (window.XMLHttpRequest) {
         return new XMLHttpRequest();
     }
}
function getWebPage(url) {
  var oBao=createobj();
  var my_url="getpage.asp?url="+escape(url);
  oBao.open('get',my_url,false); 
  oBao.onreadystatechange=function(){
       if(oBao.readyState==4){
            if(oBao.status==200){
              var returnStr=oBao.responseText;
              document.write(returnStr);
            }else{
              document.write("未找到您输入的地址或服务器505错误!");
            }
       }
  }
  oBao.send(null); 
}
getWebPage('http://www.google.cn');
</script>

再就是getpage.asp文件(注意:要以UTF-8格式保存本文件,防止乱码),如下:

<%
response.charset="UTF-8"
reg="\<meta.+ charset= {0,}([^\"" \>\/]*).+\/{0,1}\>"
'函数名:GetResStr
'作用:获取指定URL的HTML代码
'参数: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
'作用:转换二进制数据为字符
'参数:Body-二进制数据,Cset-文本编码方式
Function BytesToBstr(Body,Cset) 
  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.Charset =Cset 
  BytesToBstr = objstream.ReadText 
  objstream.Close 
  set objstream = nothing 
End Function
'函数名:GetCode
'作用:转换二进制为字符
'参数:str-待查询字符串,regstr-正则表达式
Function GetCode(str,regstr)
Dim Reg,serStr
set Reg= new RegExp
Reg.IgnoreCase = True
Reg.MultiLine = True
Reg.Pattern =regstr
if Reg.test(str) then '若查询到匹配项
   Set Cols = Reg.Execute(str)
   serStr=Cols(0).SubMatches(0) '使用匹配到的第一个匹配项
else '否则给个默认值gb2312,有点省懒法,如果页面没给出编码格式,想知道确实有点麻烦
   serStr="gb2312"
end if
GetCode=serStr
end function
dim url:url=request.querystring("url")
response.write GetResStr(URL)
%>

代码组织完毕,实验下,成功提取google.cn的内容!!!!!这样就可以解决"没有权限"的问题了。

其实,单纯一个getpage.asp一样能获取,不过不能像js那样动态的处理DOM。

还有一个问题,如果你用第一种方法访问baidu.com会出现乱码,因为baidu编码为GB2312,而XMLHTTP返回的是UTF-8编码格式。用第二种方法就不会出现这样的问题了,只要定义了编码格式的站点就能正常返回信息(这里不能包括一些使用特别编码的站点)。

标签:错误,ajax,跨域
0
投稿

猜你喜欢

  • pandas如何将datetime64[ns]转为字符串日期

    2022-06-28 13:48:37
  • 关于antd-vue a-menu菜单绑定路由的相关问题

    2023-07-02 16:33:12
  • 基于Python实现微博抓取GUI程序

    2021-06-01 10:59:29
  • Python数据分析之彩票的历史数据

    2021-06-16 07:53:39
  • 初步讲解Python中的元组概念

    2022-06-03 23:05:55
  • ASP网站程序自动升级实现的方法

    2008-10-15 14:28:00
  • 最新WebStorm2020.2注册码永久激活(激活到2089年) <font color=red>原创</font>

    2023-03-20 19:28:51
  • asp vbcrlf是什么意思

    2011-03-30 11:03:00
  • Python 随机生成中文验证码的实例代码

    2022-12-15 23:17:34
  • Oracle下时间转换在几种语言中的实现

    2009-02-28 11:09:00
  • SQL"不能为新插入的行确定标识"错误的解决方法

    2011-04-07 11:05:00
  • 在centos7下安装和部署java8和mysql

    2024-01-27 17:00:41
  • JavaScript使用ZeroClipboard操作剪切板

    2024-04-29 13:38:14
  • Javascript实现单选框效果

    2024-04-23 09:06:42
  • Python OpenCV中的drawMatches()关键匹配绘制方法

    2022-10-31 22:36:57
  • 发现一个不错的11px字体:PMingLiu

    2008-09-06 12:49:00
  • Python判断一个三位数是否为水仙花数的示例

    2021-11-06 06:14:13
  • python中使用docx模块处理word文档

    2023-04-07 18:50:44
  • 在Pandas中导入CSV数据时去除默认索引的方法汇总

    2023-03-16 02:35:53
  • Pycharm中配置远程Docker运行环境的教程图解

    2022-08-06 09:39:19
  • asp之家 网络编程 m.aspxhome.com