Muchos amigos pueden hacer una consulta IP. net.net /data/ipaddress.mdb, por supuesto, no garantizo que este sea el último.
Demostración de esta página: http://www.brsky.net/sip.asp
<%
"Conecte la base de datos
Dim Conn, Connstr, DB
db = "data/ipaddress.mdb"
Establecer conn = server.createObject ("ADODB.Connection")
Connstr = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.Mappath ("" & DB & "")
Conn.open Connstr
%>
La siguiente parte es un formulario de envío para los datos de IP de entrada: estos datos se envían a esta página
<Form ID = "form1" name = "form1" método = "post" action = "">
<Tabel>
Ingrese la IP para ser consulta
<input name = "ip" type = "text" id = "ip" />
</seleting>
<Tabel>
<input type = "enviar" name = "enviar" valor = "consulta" />
</seleting>
</form>
"El siguiente es el código de consulta y visualización
<%
Si no request.form ("ip") = "entonces" Si el formulario se envía a los datos, se procesa y procesa
sip = trim (request.form ("ip"))
CIP = Split (SIP, ".")
Si UBound (CIP) <3Te "Si los datos de IP enviados son inferiores a 4 bits, cree
Redim Preserve CIP (3) "Redefine la matriz y retenga el valor original
para i = 3 a Ubound (CIP) Paso -1
CIP (i) = 0
próximo
final si
Para i = 0 a 3 "verifique los elementos de la matriz como un carácter de valor aquí. Si no, puede usar el valor máximo y mínimo de las reglas IP por separado. Solo uso el valor mínimo aquí.
Si no es isnumérico (CIP (i)), entonces 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, Ciudad, Ciudad
Establecer rs = server.createObject ("ADODB.Oldset")
Sql = "seleccionar * desde la dirección donde ip1 <=" & ip & "e ip2> =" & ip
Rs.oopen SQL, Conn, 1,1
Si rs.Eof entonces
Ciudad = "Desconocido"
País = "desconocido"
demás
Ciudad = Rs ("Ciudad")
País = rs ("país")
final si
Rs.
establecer RS = nada
Response.write "La IP que desea consultar es" & Sip & ", de" & Country & City
final si
%>