热门合集 猴姆独家布兰妮为Women&#039s...
给作者投票
相关视频连播
方式一：扫一扫
支持各类二维码扫描软件
方式二：发一发
免费发送App到手机
看不清验证码不正确
该短信不收取任何费用
方式三：下一下
下载App观看
还有更多攻略和游戏礼包等着你
嵌入代码：
这个支持手机播放哦
手机看视频
远征丶阿飞
远征王者LOL
不是女流氓
大家都在看
Copyright & 173. All rights reserved.当前位置： >
> AJAX跨域访问出现\'没有权限\'的错误
AJAX跨域访问出现\'没有权限\'的错误
很多人在使用AJAX调用别人站点内容的时候,JS会提示"没有权限"错误，这是XMLHTTP组件的限制-安全起见禁止访问非同域的网站,下面一个例子来访问,
&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=url&&& oBao.open('get',my_url,false);&&&& oBao.onreadystatechange=function(){&&&&&&&& if(oBao.readyState==4){&&&&&&&&&&&&& if(oBao.status=&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=url&&& oBao.open('get',my_url,false);&&&& oBao.onreadystatechange=function(){&&&&&&&& if(oBao.readyState==4){&&&&&&&&&&&&& if(oBao.status==200){&&&&&&&&&&&&&&& var returnStr=oBao.responseT&&&&&&&&&&&&&&& document.write(returnStr);&&&&&&&&&&&&& }else{&&&&&&&&&&&&&&& document.write("未找到您输入的地址或服务器505错误!");&&&&&&&&&&&&& }&&&&&&&& }&&& }&&& oBao.send(null);&& }& getWebPage('');& &/script& =200){&&&&&&&&&&&&&&& var returnStr=oBao.responseT&&&&&&&&&&&&&&& document.write(returnStr);&&&&&&&&&&&&& }else{&&&&&&&&&&&&&&& document.write("未找到您输入的地址或服务器505错误!");&&&&&&&&&&&&& }&&&&&&&& }&&& }&&& oBao.send(null);&& }& getWebPage('');& &/script& 保存这段代码到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.responseT&&&&&&&&&&&&&&& document.write(returnStr);&&&&&&&&&&&&& }else{&&&&&&&&&&&&&&& document.write("未找到您输入的地址或服务器505错误!");&&&&&&&&&&&&& }&&&&&&&& }&&& }&&& oBao.send(null);&& }& getWebPage('');& &/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)& %& 代码组织完毕,实验下,成功提取的内容!!!!!这样就可以解决"没有权限"的问题了。 其实,单纯一个getpage.asp一样能获取，不过不能像js那样动态的处理DOM。
还有一个问题,如果你用第一种方法访问会出现乱码,因为baidu编码为GB2312,而XMLHTTP返回的是UTF-8编码格式。用第二种方法就不会出现这样的问题了,只要定义了编码格式的站点就能正常返回信息(这里不能包括一些使用特别编码的站点)。视频特辑 来自星星的你 金秀贤, 全智贤 &am...
给作者投票
相关视频连播
方式一：扫一扫
支持各类二维码扫描软件
方式二：发一发
免费发送App到手机
看不清验证码不正确
该短信不收取任何费用
方式三：下一下
下载App观看
还有更多攻略和游戏礼包等着你
嵌入代码：
这个支持手机播放哦
手机看视频
远征丶阿飞
远征王者LOL
不是女流氓
大家都在看
Copyright & 173. All rights reserved.Sina Visitor System