เพื่อนหลายคนอาจต้องการทำแบบสอบถาม IP net.net /data/ipaddress.mdb แน่นอนฉันไม่รับประกันว่านี่เป็นล่าสุด
การสาธิตหน้านี้: http://www.brsky.net/sip.asp
-
"เชื่อมต่อฐานข้อมูล
Dim Conn, Connstr, DB
db = "data/ipaddress.mdb"
ตั้งค่า conn = server.createObject ("adodb.connection"))
connstr = "ผู้ให้บริการ = microsoft.jet.oledb.4.0; แหล่งข้อมูล =" & server.mappath ("" & db & "")
conn.open connstr
-
ส่วนต่อไปนี้เป็นแบบฟอร์มการส่งข้อมูล IP อินพุต: ข้อมูลนี้ถูกส่งไปยังหน้านี้
<form id = "form1" name = "form1" method = "post" action = "">
<label>
โปรดป้อน IP เพื่อเป็นแบบสอบถาม
<input name = "ip" type = "text" id = "ip" />>
</lable>
<label>
<input type = "subment" name = "subment" value = "Query" />
</lable>
</form>
"ต่อไปนี้เป็นรหัสค้นหาและการแสดงผล
-
หากไม่ได้ร้องขอรูปแบบ ("IP") = "จากนั้น" หากส่งแบบฟอร์มไปยังข้อมูลจะถูกประมวลผลและประมวลผล
sip = trim (request.form ("ip"))
cip = split (sip, ".")
หาก Ubound (CIP) <3te "หากข้อมูล IP ที่ส่งน้อยกว่า 4 บิตให้ทำขึ้น
Redim Preserve CIP (3) "กำหนดอาร์เรย์ใหม่และเก็บค่าดั้งเดิมไว้
สำหรับ i = 3 ถึง Ubound (CIP) ขั้นตอน -1
CIP (i) = 0
ต่อไป
สิ้นสุดถ้า
สำหรับ i = 0 ถึง 3 "ตรวจสอบองค์ประกอบอาร์เรย์เป็นอักขระค่าที่นี่ถ้าไม่คุณสามารถใช้ค่าสูงสุดและต่ำสุดของกฎ IP แยกกันฉันใช้ค่าต่ำสุดที่นี่เท่านั้น
ถ้าไม่ใช่ isnumeric (cip (i)) จากนั้น cip (i) = 0
ต่อไป
IP = 256*256*256*CIP (0) 256*256*CIP (1) 256*CIP (2) CIP (3) -1
Dim Rs, SQL, Country, City, City
ตั้งค่า rs = server.createObject ("adoDb.oldset"))
sql = "เลือก * จากที่อยู่ที่ IP1 <=" & ip & "และ ip2> =" & ip
Rs.oopen SQL, Conn, 1,1
ถ้า RS.EOF แล้ว
เมือง = "ไม่ทราบ"
ประเทศ = "ไม่ทราบ"
อื่น
City = Rs ("City")
ประเทศ = RS ("ประเทศ")
สิ้นสุดถ้า
Rs.close
ตั้งค่า rs = ไม่มีอะไร
Response.write "IP ที่คุณต้องการสอบถามคือ" & Sip & "จาก" & Country & City
สิ้นสุดถ้า
-