Banyak teman yang ingin membuat kueri IP. net.net /data/ipaddress.mdb, tentu saja, saya tidak menjamin bahwa ini adalah yang terbaru.
Demonstrasi halaman ini: http://www.brsky.net/sip.asp
<%
"Hubungkan database
redup conn, connstr, db
db = "data/ipaddress.mdb"
Set Conn = Server.CreateObject ("AdodB.Connection")
Connstr = "provider = microsoft.jet.oledb.4.0; sumber data =" & server.mappath ("" & db & "")
Conn.open Connstr
%>
Bagian berikut adalah formulir pengiriman untuk input data IP: Data ini diserahkan ke halaman ini
<Form id = "Form1" name = "Form1" Method = "Post" Action = "">
<label>
Harap masukkan IP untuk menjadi permintaan
<input name = "ip" type = "text" id = "ip" />
</label>
<label>
<input type = "kirim" name = "kirim" value = "query" />
</label>
</form>
"Berikut ini adalah kode kueri dan tampilan
<%
Jika tidak meminta.
sip = trim (request.form ("ip"))
cip = split (sip, ".")
Jika ubound (CIP) <3te "Jika data IP yang dikirimkan kurang dari 4 bit, make up
Redim Cagar Alat Cip (3) "Mendefinisikan ulang array dan pertahankan nilai aslinya
untuk i = 3 ke ubound (CIP) Langkah -1
cip (i) = 0
Berikutnya
akhiri jika
Untuk i = 0 hingga 3 "Periksa elemen array sebagai karakter nilai di sini. Jika tidak, Anda dapat menggunakan nilai maksimum dan minimum dari aturan IP secara terpisah. Saya hanya menggunakan nilai minimum di sini.
jika tidak isnumeric (cip (i)) maka cip (i) = 0
Berikutnya
IP = 256*256*256*CIP (0) 256*256*CIP (1) 256*CIP (2) CIP (3) -1
Redup, sql, negara, kota, kota
Set RS = Server.CreateObject ("ADODB.OldSet")
Sql = "Pilih * dari alamat di mana ip1 <=" & ip & "dan ip2> =" & ip
Rs.oopen Sql, Conn, 1,1
Jika rs.eof maka
Kota = "tidak diketahui"
Country = "tidak diketahui"
kalau tidak
City = RS ("City")
Negara = rs ("negara")
akhiri jika
Rs.close
Setel RS = Tidak Ada
Response.write "IP yang Anda inginkan untuk meminta" & Sip & ", dari" & Country & City
akhiri jika
%>