asp ajax 查看IP的所在地

index.asp文件  保存utf-8
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
<form id="form1" name="form1" method="post">
<input name="ip" type="text" id="ip" style="width:170px" />
</form>
<mce:script type="text/javascript" src="ajaxrequest-min.js" mce_src="ajaxrequest-min.js"></mce:script>
<mce:script type="text/javascript"><!--
var ajax = new AJAXRequest(); // 创建AJAX对象
function get() {
ajax.get("lookip.asp?ip=" + form1.ip.value, ShowMsg) //post提交 中间参数为传送内容
loadingtxt(txt); //loading开始
}
function loadingtxt(txt) {
document.getElementById('txt').innerHTML = "Loading..."; //loading开始
}
function ShowMsg(xmlobj) {
document.getElementById('txt').innerHTML = xmlobj.responseText; //显示回调数据
}
// --></mce:script>
<div id="txt" style="float: left; background-color: #666666; color: #FFFFFF; font-size: 12px; width: 120px; height: 18px; text-align: center"></div>
<div style="float: left; background-color: #000000; color: #FFFFFF; font-size: 12px; width: 50px; height: 18px; cursor: pointer; text-align: center;" onclick="javascript: get();">查询IP</div>
lookip.asp 保存utf-8
<%
dim ip, url
ip=request("ip")
url="http://www.ip138.com/ips.asp?ip="&ip&"&action=2"
On Error Resume Next
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear
end function
'==================================================
'函数名：GetBody
'作 用：截取字符串
'参 数：ConStr ------将要截取的字符串
'参 数：StartStr ------开始字符串
'参 数：OverStr ------结束字符串
'参 数：IncluL ------是否包含StartStr
'参 数：IncluR ------是否包含OverStr
'=============