首页 »Javascript教程 » ajax跨域:解决AJAX中跨域访问出现''没有权限''的错误 »正文ajax跨域:解决AJAX中跨域访问出现''没有权限''的错误来源: 发布时间:星期四, 2008年12月25日 浏览:87次 评论:0
禁止访问非同域网站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种思路方法就不会出现这样问题了,只要定义了编码格式站点就能正常返回信息(这里不能包括些使用特别编码站点) 0
相关文章读者评论发表评论 |
|