IP获取地理位置asp

再给你一段完整的查看IP所在地的代码，自己试试 <% dim conn,connstr,db db="data/ipaddress.mdb" '这里是IP数据库存放的路径，自己设置 Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") conn.Open connstr dim IP,CIP,sip if Request.ServerVariables("HTTP_X_FORWARDED_FOR")="" then IP=Request.ServerVariables("REMOTE_ADDR") else IP=Request.ServerVariables("HTTP_X_FORWARDED_FOR") end if sip=IP cip=split(ip,".") ip=256*256*256*cip(0)+256*256*cip(1)+256*cip(2)+cip(3)-1 dim rs,sql,Country,City Set rs=Server.CreateObject("ADODB.Recordset") sql="select * from Address where IP1<="&ip&" and IP2>="&ip rs.open sql,conn,1,1 if rs.eof then City="未知" Country="未知" else City=rs("city") Country=rs("country") end if rs.close set rs=nothing response.write "你的IP是"&sip&",来自"&country&city %>