ASP获取IP所属地区名称

花了点时间写了个页面，可以获取IP地址所属的地区名称，借用纯真IP数据库~~~ ^_^

程序代码如下，比较简单，一个函数而已。使用请把代码复制到记事本，然后另存为ASP文件（扩展名为.asp）。

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<%
function getAreaName(ipAddr) {
 if (!ipAddr) {
  return "无效参数";
 } else if (/^((2[0-4]"d|25[0-5]|[01]?"d"d?)".){3}(2[0-4]"d|25[0-5]|[01]?"d"d?)$/.test(ipAddr) == false) {
  return "无效的IP地址";
 }
 
 var http = null;
 try {
  http = Server.CreateObject("Microsoft.XMLHTTP");
 } catch(e) {
  try {
   http = Server.CreateObject("Msxml2.XMLHTTP");
  } catch(e) {
   return "服务器不支持XML对象";
  }
 }
 http.Open("GET", "http://www.cz88.net/ip/default.aspx?ip=" + ipAddr, false);
 http.Send();
 if (http.readyState == 4) {
  var area = "无法获取";
  var res = http.ResponseText;
  
  var startPos = res.indexOf("InputIPAddrMessage");
  if (startPos == -1) { return area; }
  startPos = res.indexOf(">", startPos);
  if (startPos == -1) { return area; }
  
  var endPos = res.indexOf("<", startPos);
  if (endPos == -1) { return area; }
  area = res.substring(startPos + 1, endPos);
  
  return area;
 } else {
  return "读取失败";
 }
}

var checkIp = Request("ip");
Response.Write(getAreaName(checkIp));
%>

比如另存为getip.asp文件，使用时浏览http://xxx/getip.asp?ip=127.0.0.1即可获取127.0.0.1的所属地区名称。