<%@language = vbscript codepage = 936%>
<html>
<head>
<title> เอกสารที่ไม่มีชื่อ </title>
<meta http-equiv = เนื้อหาประเภทเนื้อหา = text/html;
</head>
<body>
-
Dim FinishGetip, Showip, Allip
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /// Gons
'โปรแกรมไม่ได้มีความคล่องตัวมากนักจากนั้นแก้ไขในภายหลัง
'ฐานข้อมูลที่ใช้ในโปรแกรมนี้คือ- "Feng Zhihong"- เขียน- "Hunting"- ฐานข้อมูล IP และ
ผู้เขียน "Guohua Software Guohua Soft"-"Feng Guohua"-"การจัดสรรที่อยู่ IP ทั่วโลก" CHM "เขียนโดย
'ขอบคุณข้อมูลที่ได้รับจาก "Feng Zhihong" และ "Feng Guohua"
'ยังมีที่อยู่ IP ที่ซ้ำกันจำนวนมากในฐานข้อมูล
'โปรแกรมของฉันซุ่มซ่ามมาก
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /// Gons
'สารละลาย:
'IP ไคลเอนต์ที่ได้รับโดยทั่วไปคือ 202.11.25.1 และรูปแบบ IP ในฐานข้อมูลคือ 202.011.025.001 ซึ่งจำเป็นต้องได้รับ
'IP ไคลเอนต์แปลงเป็นรูปแบบเดียวกับ IP ในฐานข้อมูล
'เนื่องจาก IP ที่เราใช้ในปัจจุบันแบ่งออกเป็น 4 ส่วนแต่ละส่วนของ 3 สถานที่และกลางจะคั่นด้วย "."
'ความคิดของฉันคือแบ่ง IP ไคลเอนต์ออกเป็น 4 ย่อหน้าจาก "." นั่นคือ 202/11/25/1
'จากนั้นตรวจสอบแต่ละย่อหน้าแยกกันถ้าเป็น 3 หลักมันจะไม่เปลี่ยนแปลง
'หลังจากได้รับการจัดรูปแบบ IP ส่วนสุดท้ายของ IP จะถูกลบออกนั่นคือบิต 11 อันดับแรกรวมถึง " ค่า
'เนื่องจากสามารถมองเห็นได้จากฐานข้อมูลสามย่อหน้าแรกของการเริ่มต้นและ endip จะเหมือนกันและย่อหน้าสุดท้ายเป็นเพียงที่อยู่ย่อยภายในซึ่งสามารถลบออกได้
'ตราบใดที่คุณใช้ 11 อันดับแรกของสนามเริ่มต้นหรือ endip เมื่อเทียบกับ 11 อันดับแรกของ IP ไคลเอนต์คุณสามารถค้นหาตำแหน่งที่เหมาะสม
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////// Gestman
ฟังก์ชั่นตรวจสอบ _trueip ()
'ใช้ ip จริงไคลเอนต์
getClientip = request.serverVariables (http_x_forwardeded_for) 'หากไคลเอนต์ใช้พร็อกซีเซิร์ฟเวอร์ให้ใช้วิธีการใช้วิธีการ ServerVariables (remote_addr)
ถ้า getClientip = จากนั้น
getClientip = equest.serverVariables (remote_addr) 'หากไคลเอ็นต์ไม่ได้ใช้เอเจนต์จากนั้น request.ServerVariables (http_x_forwardeded_for) เป็นค่าที่ว่างเปล่า
สิ้นสุดถ้า
checkip_trueip = getClientip
ฟังก์ชันสิ้นสุด
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it ////////////////////////////////////////////////////////if
ฟังก์ชั่น getAccessRecordSet (db, sql, mark, read) 'รับวัตถุ recordset
set conn = getAccessConn (db) 'พารามิเตอร์อินพุตเป็นเส้นทางสัมพัทธ์ของ db-database, คำสั่ง SQL-SQL, mark, การอ่านเป็นวิธีการอ่านฐานข้อมูล, 1,1 คือการอ่านและเขียน
'const = provider = microsoft.jet.oledb.4.0;
'conn.open const
ตั้งค่า getAccessRecordSet = server.createObject (adoDB.RecordSet)
getAccessRecordset.open sql, conn, mark, อ่าน
ฟังก์ชันสิ้นสุด
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it //////////////////////////////////////////////////////////////////////////////////////////////////////it
ฟังก์ชั่น getAccessConn (db) '' รับวัตถุการเชื่อมต่อ
ตั้งค่า getAccessConn = server.createObject (adodb.connection)
'const = driver = {Microsoft Access Driver (*.mdb)};
const = provider = microsoft.jet.oledb.4.0;
getAccessConn.open constr
ฟังก์ชันสิ้นสุด
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it ////////////////////////////////////////////////////////////////////////////////////////it
สลัว getip
'getip = (trim (request.serverVariables (remote_addr))') 'รับ IP จากไคลเอนต์
'getip = (trim (request.querystring (มา))') 'ป้อนการทดสอบ IP ด้วยตัวเอง
'response.write (getip & <br>)
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it ///////////////////////////////////////////////////////////////////////////////////////////////////////TH
ฟังก์ชั่นตรวจสอบ function (checkstring) 'กลับไปที่ฟังก์ชั่นตำแหน่งของอักขระคั่นใน IP
checkip_locations = instr (checkstring,.) 'เพื่อให้ฟังก์ชั่นกับฟังก์ชัน
ฟังก์ชันสิ้นสุด
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'ฟังก์ชั่นต่อไปนี้คือการแบ่ง IP และสตริงที่เหลืออยู่ของ IP ของ IP ทางด้านขวาหลังจากการแบ่งส่วนแต่ละครั้ง
ฟังก์ชั่นตรวจสอบ _left (checkstring)
locations_left = checkip_locations (checkstring) 'เพื่อรับสถานที่แรกที่ปรากฏตัวครั้งแรกในสตริงที่เหลือของ IP
iplength_left = len (checkstring) 'รับความยาวของสตริงที่เหลือของ IP
divide_locations_left = iplength_left-locations_left 'เพื่อรับตำแหน่งของ "." เป็นครั้งแรกในสตริงที่เหลือของ IP
ipstr_left = ขวา (ตรวจสอบ, divide_locations_left) 'หลังจากได้รับการแบ่งนี้สตริงที่เหลือของ IP ที่เหลืออยู่ทางด้านขวาของ "."
chect_left = ipstr_left 'จะให้สตริงที่ได้รับด้านบนกับฟังก์ชัน
ฟังก์ชันสิ้นสุด
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'ฟังก์ชั่นต่อไปนี้คือการแบ่ง IP และสตริง IP ที่ด้านซ้ายของ "."
ฟังก์ชั่นตรวจสอบ _right (checkstring)
locations_right = checkip_locations (checkstring) 'ที่ได้รับใน ip "
iPlength_right = len (checkstring) 'รับความยาวสตริง IP
divide_locations_right = iplength_right-locations_right 'เพื่อรับตำแหน่งของ "
IPSTR11 = TRIM (reft (ซ้าย (ตรวจสอบ, local),.,.,) ')') ') "
'หาก IP แบ่งออกเป็น 4 ย่อหน้าแต่ละส่วนจะน้อยกว่า 3 หลักและ 0
ถ้า len (ipstr11) = 2 แล้ว ipstr11 = 0 & ipstr11
ถ้า LEN (iPSTR11) = 3 แล้ว iPSTR11 = iPSTR11
ถ้า LEN (iPSTR11) = 1 แล้ว IPSTR11 = 00 & iPSTR11
chect_right = iPSTR11 'รับสตริงก่อน ".". นั่นคือการแบ่งส่วน IP ที่ได้รับหลังจากการแบ่งส่วนนี้เป็นหนึ่งในสี่ส่วน
สิ้นสุด functi
ศูนย์สาธิตสถานีเย็นที่ใหญ่ที่สุดในประเทศจีน!