De nombreux amis peuvent faire une question IP. net.net /data/ipaddress.mdb, bien sûr, je ne garantit pas que c'est le dernier.
Démonstration de cette page: http://www.brsky.net/sip.asp
<%
"Connectez la base de données
Dim Conn, Connstr, DB
db = "data / ipaddress.mdb"
Définir Conn = Server.CreateObject ("Adodb.Connection")
Connstr = "Provider = Microsoft.Jet.oledb.4.0; Data Source =" & Server.Mappath ("" & DB & "")
Conn.Open Connstr
%>
La partie suivante est un formulaire de soumission pour les données IP de saisie: ces données sont soumises à cette page
<form id = "form1" name = "form1" méthode = "post" action = "">
<étiquet>
Veuillez saisir l'IP pour être question
<input name = "ip" type = "text" id = "ip" />
</ label>
<étiquet>
<input type = "soumi" name = "soumi" value = "query" />
</ label>
</ form>
"Ce qui suit est la requête et le code d'affichage
<%
Si non demande.form ("ip") = "alors" Si le formulaire est soumis aux données, il est traité et traité
sip = trim (request.form ("ip"))
CIP = Split (SIP, ".")
Si Ubound (CIP) <3te "Si les données IP soumises sont inférieures à 4 bits, maquillage
Redim Preserve CIP (3) "Redéfinir le tableau et conserver la valeur d'origine
pour i = 3 à ubound (CIP) étape -1
cip (i) = 0
suivant
terminer si
Pour i = 0 à 3 ", vérifiez les éléments du tableau comme caractère de valeur ici. Sinon, vous pouvez utiliser la valeur maximale et minimale des règles IP séparément. Je n'utilise que la valeur minimale ici.
Sinon ISNUMERIC (CIP (I)) alors CIP (i) = 0
suivant
IP = 256 * 256 * 256 * CIP (0) 256 * 256 * CIP (1) 256 * CIP (2) CIP (3) -1
DIM RS, SQL, pays, ville, ville
Set rs = server.createObject ("adodb.oldset")
Sql = "select * à partir de l'adresse où ip1 <=" & ip & "et ip2> =" & ip
Rs.OOPEN SQL, Conn, 1,1
Si Rs.Eof alors
Ville = "inconnu"
Pays = "inconnu"
autre
Ville = Rs ("ville")
Pays = Rs ("pays")
terminer si
Rs.Close
Définir RS = rien
Response.Write "L'IP que vous souhaitez interroger est" & sip & ", de" & country & ville
terminer si
%>