قسم من الكود في الاستعلام عن موقع IP

قد يرغب العديد من الأصدقاء في إجراء استعلام 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 = "provider = microsoft.jet.oledb.4.0 ؛ data source =" & server.mappath ("" & db & "")

Conn.Open Connstr

٪>

الجزء التالي هو نموذج تقديم لبيانات IP للإدخال: يتم إرسال هذه البيانات إلى هذه الصفحة

<form id = "form1" name = "form1" method = "post" Action = "">

<blabel>

الرجاء إدخال IP ليكون الاستعلام

<input name = "ip" type = "text" id = "ip" />

</label>

<blabel>

أقل

</label>

</form>

"ما يلي هو رمز الاستعلام والعرض

<٪

إذا لم يكن طلبًا.

sip = trim (request.form ("ip"))

CIP = انقسام (SIP ".")

إذا كانت Ubound (CIP) <3TE "إذا كانت بيانات IP المقدمة أقل من 4 بتات ، فاكتبها

Redim Preserve CIP (3) "إعادة تعريف الصفيف والاحتفاظ بالقيمة الأصلية

ل I = 3 إلى ubound (CIP) الخطوة -1

CIP (i) = 0

التالي

إنهاء إذا

بالنسبة لـ i = 0 إلى 3 "تحقق من عناصر الصفيف كحرف قيمة هنا. إذا لم يكن الأمر كذلك ، يمكنك استخدام القيمة القصوى والحد الأدنى لقواعد IP بشكل منفصل. أنا فقط أستخدم الحد الأدنى للقيمة هنا.

إذا لم يكن isnumberic (CIP (i)) ثم CIP (i) = 0

التالي

IP = 256*256*256*CIP (0) 256*256*CIP (1) 256*CIP (2) CIP (3) -1

Dim RS ، SQL ، البلد ، المدينة ، المدينة

تعيين rs = server.createBject ("adodb.oldset")

SQL = "SELECT * من العنوان حيث IP1 <=" & ip & "و ip2> =" & ip

Rs.OOPEN SQL ، CONN ، 1،1

إذا rs.eof ثم

المدينة = "غير معروف"

البلد = "غير معروف"

آخر

المدينة = روبية ("المدينة")

البلد = روبية ("البلد")

إنهاء إذا

Rs.close

تعيين روبية = لا شيء

Response.write "IP الذي تريد الاستعلام عنه هو" & sip & "، من" & country & city

إنهاء إذا

٪>