Muitos amigos podem fazer uma consulta IP. net.net /data/ipaddress.mdb, é claro, não garanto que este é o mais recente.
Demonstração desta página: http://www.brsky.net/sip.asp
<%
"Conecte o banco de dados
Dim Conn, Connstr, DB
db = "Data/ipaddress.mdb"
Definir Conn = Server.CreateObject ("Adodb.Connection")
Connstr = "Provider = Microsoft.Jet.oledb.4.0; Data Source =" & Server.mappath ("" & db & "")
Conn.Open Connstr
%>
A parte a seguir é um formulário de envio para dados de IP de entrada: esses dados são enviados a esta página
<form id = "form1" name = "form1" método = "post" action = "">>
<Boel>
Por favor, insira o IP para ser uma consulta
<input name = "ip" type = "text" id = "ip" />
</belt>
<Boel>
<input type = "submit" name = "submite" value = "query" />
</belt>
</morm>
"A seguir, a consulta e o código de exibição
<%
Se não for request.form ("ip") = "então" se o formulário for enviado aos dados, ele será processado e processado
SIP = TRIM (request.form ("ip")))
cip = dividido (gole, ".")
Se ubound (cip) <3te "se os dados de IP enviados forem inferiores a 4 bits, maquiagem
Redim Preserve CIP (3) "Redefine a matriz e retenha o valor original
para i = 3 a ubound (cip) etapa -1
cip (i) = 0
próximo
final se
Para i = 0 a 3 "Verifique os elementos da matriz como um caractere de valor aqui. Caso contrário, você pode usar o valor máximo e mínimo das regras IP separadamente. Eu só uso o valor mínimo aqui.
se não é numérico (cip (i)) então cip (i) = 0
próximo
IP = 256*256*256*cip (0) 256*256*cip (1) 256*cip (2) cip (3) -1
Dim RS, SQL, país, cidade, cidade
Definir rs = server.createObject ("adodb.oldset")
Sql = "Selecione * do endereço em que ip1 <=" & ip & "e ip2> =" & ip
Rs.ooopen SQL, Conn, 1,1
Se rs.eof então
Cidade = "desconhecido"
Country = "desconhecido"
outro
Cidade = rs ("cidade")
País = rs ("país")
final se
Rs.close
Definir rs = nada
Response.Write "O IP que você deseja consultar é" & sip & ", From" & Country & City
final se
%>