星期五寫了個(gè)分類信息的小東東!在數(shù)據(jù)庫里只有ip地址,一般訪客不太清楚IP地址來源于哪個(gè)城市.如果在表里多一個(gè)列保存城市又沒有真實(shí)性可言.如果能把IP地址變成城市多好呀.當(dāng)然可以去down下數(shù)據(jù)庫.可就為這個(gè)需求覺得有點(diǎn)浪費(fèi).還好了有好多網(wǎng)站提供查詢.如果能把它的結(jié)果變成我的.問題解決.
需要一個(gè)js函數(shù).當(dāng)每出來一條記錄時(shí),就把ip替換為城市:
復(fù)制代碼 代碼如下:
script type="text/javascript">
function queryAddress(strID){
try{
var qIp=document.getElementById("ip_"+strID);
var qUrl='http://ip.wanvee.cn/GetIp.ashx?ipstr='+qIp.firstChild.nodeValue;
var ajax=new Ajax.Request(qUrl,{
method:'get',
onSuccess:function(strResponse){
var resContent=strResponse.responseText;
var strStruct=resContent.substring(resContent.lastIndexOf(",")+1,resContent.length);
qIp.innerHTML=strStruct.split(" ")[0];
}
});
}catch(e){}
}
/script>
寫一個(gè)測(cè)試用例:
span id="ip_2">221.123.123.123/span>script type="text/javascript">queryAddress('2')/script>
span id="ip_3">221.123.123.123/span>script type="text/javascript">queryAddress('3')/script>
span id="ip_4">221.123.123.123/span>script type="text/javascript">queryAddress('4')/script>
羅列一下我找的幾個(gè)查詢網(wǎng)址:
http://www.ip.cn/getip.php?action=queryipip_url=221.123.123.123
http://ip.wanvee.cn/GetIp.ashx?ipstr=221.123.123.123
以上兩個(gè)只返回文本
http://www.youdao.com/smartresult-xml/search.s?type=ipq=221.123.123.123
這個(gè)返回XML
寫完了,意識(shí)到一個(gè)問題.ajax不支持跨域提交.這也不成問題:我們用腳本寫一個(gè)頁面.用msxml的load方法裝載目標(biāo)網(wǎng)址!就可以搞到我們感興趣的數(shù)據(jù)!參考此貼:http://topic.csdn.net/t/20030619/12/1933920.html
js代碼稍微變一下:
復(fù)制代碼 代碼如下:
function queryAddress(strID){
try{
var qIp=document.getElementById("ip_"+strID);
var qUrl='queryiplocal.asp?ip='+qIp.firstChild.nodeValue;
var ajax=new Ajax.Request(qUrl,{
method:'get',
onSuccess:function(strResponse){
qIp.innerHTML=strResponse.responseText;
}
});
}catch(e){}
}
下面的是ASP文件源碼:
復(fù)制代碼 代碼如下:
%
Response.ContentType="text/xml"
Response.Charset="GB2312"
Dim strIP,strPattern
strIP=Request.QueryString("ip")
strPattern="^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$"
If strIP="" Or IsNumeric(strIP) then
Response.End()
ElseIf Not serRegValidate(strPattern,strIP) then
Response.End()
End If
Dim strURL:strURL="http://www.youdao.com/smartresult-xml/search.s?type=ipq="
set parser=Server.CreateObject("MSXML2.DOMDocument")
parser.async=false
parser.ValidateOnParse=true
parser.setProperty "ServerHTTPRequest",true
parser.load(strURL)
if parser.parseError.errorCode>0 then
Response.End()
end if
set currNode=parser.selectNodes("http://product")
Dim strLocal:strLocal=currNode.item(0).selectSingleNode("location").text
Response.Write Split(strLocal," ")(0)
%>
您可能感興趣的文章:- ie7下利用ajax跨域盜取cookie的解決辦法
- PHP中運(yùn)用jQuery的Ajax跨域調(diào)用實(shí)現(xiàn)代碼
- 利用iframe實(shí)現(xiàn)ajax跨域通信的實(shí)現(xiàn)原理(圖解)
- JQuery的Ajax跨域請(qǐng)求原理概述及實(shí)例
- Ajax跨域查詢完美解決通過$.getJSON()實(shí)現(xiàn)
- 完美解決AJAX跨域問題
- 用iframe設(shè)置代理解決ajax跨域請(qǐng)求問題
- jquery ajax跨域解決方法(json方式)
- 淺談Ajax跨域Session和跨域訪問
