快捷導(dǎo)航

解決AJAX中跨域訪問(wèn)出現(xiàn)'沒(méi)有權(quán)限'的錯(cuò)誤

更新時(shí)間：2008年08月20日 01:13:20 作者：

很多人在使用AJAX調(diào)用別人站點(diǎn)內(nèi)容的時(shí)候,JS會(huì)提示"沒(méi)有權(quán)限"錯(cuò)誤，這是XMLHTTP組件的限制-安全起見(jiàn)

禁止訪問(wèn)非同域的網(wǎng)站,下面一個(gè)例子來(lái)訪問(wèn)http://www.google.cn,

<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.responseText;
document.write(returnStr);
}else{
document.write("未找到您輸入的地址或服務(wù)器505錯(cuò)誤!");
}
}
}
oBao.send(null);
}
getWebPage('http://www.google.cn');
</script>

保存這段代碼到test.html,在本地直接用IE打開(kāi)沒(méi)問(wèn)題,但將該段代碼上傳到服務(wù)器后，問(wèn)題出現(xiàn)了--JS提示"沒(méi)有權(quán)限"錯(cuò)誤!!!這該如何解決呢？
下面思考一下：既然不能訪問(wèn)非同域的，只能訪問(wèn)同域的地址了，同域的動(dòng)態(tài)文件怎么獲取非同域網(wǎng)頁(yè)內(nèi)容呢？我們還是想到的AJAX，只不過(guò)這個(gè)AJAX是在服務(wù)器端執(zhí)行.
大體思路是這樣的:首先將URL用AJAX提交給自己站內(nèi)的文件，例如getPage.asp---在getPage.asp再次通過(guò)服務(wù)器XMLHTTP來(lái)訪問(wèn)提交來(lái)的URL---將獲取的內(nèi)容返回給提交URL的頁(yè)----顯示內(nèi)容
下面開(kāi)始組織代碼,首先是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("未找到您輸入的地址或服務(wù)器505錯(cuò)誤!");
}
}
}
oBao.send(null);
}
getWebPage('http://www.google.cn');
</script>

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

<%
response.charset="UTF-8"
reg="\<meta.+ charset= {0,}([^\"" \>\/]*).+\/{0,1}\>"
'函數(shù)名:GetResStr
'作用:獲取指定URL的HTML代碼
'參數(shù):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

'函數(shù)名:BytesToBstr
'作用:轉(zhuǎn)換二進(jìn)制數(shù)據(jù)為字符
'參數(shù):Body-二進(jìn)制數(shù)據(jù),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

'函數(shù)名:GetCode
'作用:轉(zhuǎn)換二進(jìn)制為字符
'參數(shù):str-待查詢字符串,regstr-正則表達(dá)式
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 '若查詢到匹配項(xiàng)
Set Cols = Reg.Execute(str)
serStr=Cols(0).SubMatches(0) '使用匹配到的第一個(gè)匹配項(xiàng)
else '否則給個(gè)默認(rèn)值gb2312,有點(diǎn)省懶法，如果頁(yè)面沒(méi)給出編碼格式，想知道確實(shí)有點(diǎn)麻煩
serStr="gb2312"
end if
GetCode=serStr
end function

dim url:url=request.querystring("url")
response.write GetResStr(URL)
%>

代碼組織完畢,實(shí)驗(yàn)下,成功提取http://www.google.cn的內(nèi)容!!!!!這樣就可以解決"沒(méi)有權(quán)限"的問(wèn)題了。
其實(shí),單純一個(gè)getpage.asp一樣能獲取，不過(guò)不能像js那樣動(dòng)態(tài)的處理DOM。
還有一個(gè)問(wèn)題,如果你用第一種方法訪問(wèn)http://www.baidu.com會(huì)出現(xiàn)亂碼,因?yàn)閎aidu編碼為GB2312,
而XMLHTTP返回的是UTF-8編碼格式。用第二種方法就不會(huì)出現(xiàn)這樣的問(wèn)題了,只要定義了編碼格式的站點(diǎn)就能正常返回信息(這里不能包括一些使用特別編碼的站點(diǎn))。

您可能感興趣的文章: