淘宝ip接口返回的数据是json的，用jquery进行解析返回的json数据然后判断跳转更方便点，asp需要自己另外写解析json的方法或网上下个asp解析json的类来做

xmlhttp下载淘宝的地址，然后判断返回值是否包含上海，不过返回的内容是unicode编码过的，不能直接判断上海，判断上海的unicode编码"\u4e0a\u6d77\u5e02"

Function getHTML(ip)

  dim xhr,url

  url="http://ip.taobao.com/service/getIpInfo.php?ip="&ip

  set xhr=createobject("MSXML2.XMLHTTP")

  xhr.open "GET",url,false

  xhr.send()

  If xhr.readystate<>4 then

    exit function

  End If

  getHTML=getText(xhr.responseBody)

  set xhr=nothing

  if err.number<>0 then err.Clear

End Function

Function getText(body)

  dim ado

  set ado = CreateObject("adodb.stream")

  ado.Type = 1

  ado.Mode =3

  ado.Open

  ado.Write body

  ado.Position = 0

  ado.Type = 2

  ado.Charset = "gb2312"

  getText = ado.ReadText

  ado.Close

  set ado = nothing

end Function



ip="114.80.166.240"

html=getHTML(ip)

response.Write ip&":"

if instr(html,"""city"":""\u4e0a\u6d77\u5e02""")<>0 then

  response.Write "上海市ip"

else

  response.Write "不是上海市ip"

end if

response.Write "<br>"

ip="121.52.209.112"

html=getHTML(ip)

response.Write ip&":"

if instr(html,"""city"":""\u4e0a\u6d77\u5e02""")<>0 then

  response.Write "上海市ip"

else

  response.Write "不是上海市ip"

end if

使用#2的部分代码

Response.CharSet = "utf-8"

ip="114.80.166.240"

html=getHTML(ip)

html = unescape(Replace(html,"\","%"))

if instr(html,"上海") then

else

end if

现在根据下面代码已经可以实现根据判断内网外网IP跳转到不同页面 
比如外面就直接跳到2.htm,内网就直接跳1.htm 
<% 
ipx=Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
IF ipx="" Then ipx=Request.ServerVariables("REMOTE_ADDR") 
if ipcheck(ipx,"202.116.192.1","202.116.250.254")="true" then 
response.Redirect "1.htm" 
elseif ipcheck(ipx,"172.16.0.1","172.16.255.254 ")="true" then 
response.Redirect "1.htm" 
elseif ipcheck(ipx,"192.168.0.1","192.168.255.254 ")="true" then 
response.Redirect "1.htm" 
else 
response.Redirect "2.htm" 
end if 

function ipcheck(ip,startIp,endIp) 
ipPart=split(ip,".") 
startIpPart =split(startIp,".") 
endIpPart =split(endIp,".") 
if ipPart(0)&"."&ipPart(1)=startIpPart(0)&"."&startIpPart(1) then 
if ipPart(2)>=startIpPart(2) and ipPart(2)<=endIpPart(2) then 
ipcheck="true" 
else 
ipcheck="false" 
end if 
else 
ipcheck="false" 
end if 
end function 
%>
但是外网知道1.HTM这地址直接打地址就可以访问的. 
怎样在1.htm做限制呢??如果他是外网打1.htm这个地址还是要他跳会2.htm这个页面呢?
ipx=Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
IF ipx="" Then ipx=Request.ServerVariables("REMOTE_ADDR") 
if not(ipCheck(ipx,"202.116.192.1","202.116.250.254") or ipCheck(ipx,"202.116.192.1","202.116.250.254") or ipcheck(ipx,"202.116.192.1","202.116.250.254")) then 
response.redirect("2.html")
不过在IIS里要设置默认访问页面，把默认页面指向上面的代码页面。