<% Dim Inips,ZhanIP,IP IP = Request("IP") Response.write "" & vbCrLf Response.write "

" & vbCrLf Response.write "" & vbCrLf Response.write "" & vbCrLf Response.write "" & vbCrLf Response.write "" & vbCrLf Response.write " IP地址： " & vbCrLf Response.write "

" & vbCrLf If IP<>"" Then Response.write "" & vbCrLf If IsNumeric(Replace(IP,".","")) = False Or IP = "" Then Response.write "请输入正确的IP地址" & vbCrLf Response.end End If Response.write "" & vbCrLf Call DBConnBegin("IP") Response.write "" & vbCrLf Call DBConnEnd() Response.write " 查询IP： "&IP&" 查询结果： "&GetIP(IP)&" " & vbCrLf End If Response.write "

" & vbCrLf Function GetIP(Str) If Str <> "" Then inips=split(Str,".") ZhanIP=16777216*inips(0) + 65536*inips(1) + 256*inips(2) + inips(3) Set Rs = Conn.Execute ("Select [Country],[Local] From [IP] Where StartIP<="&ZhanIP&" and EndIP>="&ZhanIP&"") If Not Rs.Eof Then GetIP = Rs(0)&"
"&Rs(1) If Instr(GetIP,"未知数据") > 0 Then If Replace(GetIP,"未知数据","") <> "" Then GetIP = Replace(GetIP,"未知数据","") End If Else GetIP = "Internet保留地址" End If Rs.Close Set Rs = Nothing End If End Function %>