<% sele_mier_ip=trim(request("ip")) if sele_mier_ip<>"" then mier_ip_str=split(sele_mier_ip,".") if len(sel_mier_ip)<7 and not isip(sele_mier_ip) then sele_mier_ip="0" end if end if host_ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If host_ip = "" Then host_ip = Request.ServerVariables("REMOTE_ADDR") '来访IP end if function isip(ip) isip=true n=len(ip) j=0 for i=1 to n if instr("0123456789.",cstr(mid(cstr(ip),i,1)))<1 then isip=false else if cstr(mid(cstr(ip),i,1))="." then j=j+1 end if end if next if isip=true and j=3 then isip=true else isip=false end if end function function get_ip(ip) mier_ip_str=split(ip,".") mier_ip=mier_ip_str(0)*256*256*256+mier_ip_str(1)*256*256+mier_ip_str(2)*256+mier_ip_str(3) rs.open "select * from ip where startip<="& mier_ip &"and endip>="&mier_ip,conn,1,1 if rs.eof or rs.bof then get_ip="没有此IP数据" else get_ip=rs("country") end if rs.close end function %>
当前位置 >> 千年阳光健康生活网 >> 健康生活实用查询 >> IP地址查询
   当前IP地址  
 
  您当前的IP: <%=host_ip%>  
  您所在的的地理位置: <%=get_ip(host_ip)%>  
 
 IP地址查询
 
请输入IP地址:
 
 查询结果
<% if sele_mier_ip<>"" and sele_mier_ip<>"0" then country=get_ip(sele_mier_ip) else if sele_mier_ip="0" then sele_mier_ip="IP输入错误!" end if end if %>
  您要查询的IP:<%=sele_mier_ip%>   
  查询IP所在地理位置: <%=country%>