<codePage = 936%>
<html>
<head>
<title> เอกสารที่ไม่มีชื่อ </title>
<meta http-equiv = เนื้อหาประเภทเนื้อหา = text/html;
</head>
<body>
-
Dim FinishGetip, Showip, Allip
'' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it ////////////////////////////////////////////////////////////////////////////////T
'' โปรแกรมไม่ได้มีความคล่องตัวมากนักจากนั้นแก้ไขในภายหลัง
'' ฐานข้อมูลที่ใช้ในโปรแกรมนี้คือ- "Feng Zhihong"- เขียน- "Hacquent" -IP ฐานข้อมูลและ
ผู้เขียน "Guohua Software Guohua Soft
'' ขอบคุณข้อมูลที่ได้รับจาก "Feng Zhihong" และ "Feng Guohua"
มีที่อยู่ IP ที่ซ้ำกันหลายแห่งในฐานข้อมูลฉันหวังว่าคนที่สนใจสามารถลบและลดฐานข้อมูลได้
'' โปรแกรมของฉันซุ่มซ่ามมาก
'' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it ////////////////////////////////////////////////////////////////////////////////T
'' สารละลาย:
'' IP ไคลเอนต์ที่ได้รับโดยทั่วไปคือ 202.11.25.1 และรูปแบบ IP ในฐานข้อมูลคือ 202.011.025.001 ซึ่งจำเป็นต้องได้รับ
'' IP ไคลเอนต์ถูกแปลงเป็นรูปแบบเดียวกับ IP ในฐานข้อมูล
'' เนื่องจาก IP ปัจจุบันที่เราใช้แบ่งออกเป็น 4 ส่วนแต่ละส่วนของ 3 สถานที่และกลางจะคั่นด้วย "."
'' ความคิดของฉันคือแบ่ง IP ไคลเอนต์ออกเป็น 4 เซ็กเมนต์จาก "."
'' จากนั้นตรวจสอบแต่ละย่อหน้าแยกกันถ้ามันเป็น 3 บิตมันจะไม่เปลี่ยนแปลง
หลังจากการจัดรูปแบบ IP ส่วนสุดท้ายของ IP จะถูกลบออกนั่นคือ 11 บิตแรกรวมถึง "
'' เพราะคุณสามารถเห็นได้จากฐานข้อมูลสามย่อหน้าแรกของการเริ่มต้นและ endip จะเหมือนกันและย่อหน้าสุดท้ายเป็นเพียงที่อยู่ย่อยภายในซึ่งสามารถลบออกได้
'' ตราบใดที่คุณใช้ตัวเลข 11 หลักแรกของสนามเริ่มต้นหรือ endip เมื่อเทียบกับ 11 อันดับแรกของ IP ไคลเอนต์คุณสามารถค้นหาตำแหน่งที่ถูกต้องได้
'' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it ///////////////////////////////////////on
ฟังก์ชั่นตรวจสอบ _trueip ()
'' ใช้ ip จริงไคลเอนต์
getClientip = request.serverVariables (http_x_forwarded_for) '' หากไคลเอนต์ใช้พร็อกซีเซิร์ฟเวอร์ให้ใช้วิธีการใช้เมธอด ServerVariables (remote_addr)
ถ้า getClientip = จากนั้น
getClientip = equest.serverVariables (remote_addr) '' หากไคลเอนต์ไม่ได้ใช้พร็อกซีจากนั้น request.serverVariables (http_x_forwardededed_for) เป็นค่าที่ว่างเปล่า
สิ้นสุดถ้า
checkip_trueip = getClientip
ฟังก์ชันสิ้นสุด
'' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it ///////////////////////////////////////////////////////////////////////////////it
ฟังก์ชั่น getAccessRecordset (db, sql, mark, read) ''
set conn = getAccessConn (db) '' 'เส้นทางสัมพัทธ์ของพารามิเตอร์อินพุตคือ db-database, คำสั่ง SQL-SQL, mark, การอ่านเป็นวิธีการอ่านฐานข้อมูล, 1,1 อ่านเท่านั้น, 1,3 ถูกอ่านและ เขียนเพื่ออ่านและเขียนคืออ่านและเขียน
'' 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))) ''
'' getip = (trim (request.querystring (มา))) '' การทดสอบ IP อินพุตด้วยตัวเอง
'response.write (getip & <br>)
'' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it ////////////////////////////////////////////////////////////
ฟังก์ชั่นตรวจสอบ FUNCTION_LOCATIONS (CHECKSTRING) ''
checkip_lock_locations = instr (checkstring,.) '' เพื่อให้ค่ากับฟังก์ชัน
ฟังก์ชันสิ้นสุด
'' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it ////////////////////////////////////////////////////
'' ฟังก์ชั่นต่อไปนี้คือการแบ่ง IP และสตริงที่เหลืออยู่ของ IP ของ IP ทางด้านขวาหลังจากการแบ่งส่วนแต่ละครั้ง
ฟังก์ชั่นตรวจสอบ _left (checkstring)
location_left = checkip_locations (checkstring) '' '
iplength_left = len (checkstring) '' ความยาวของสตริงที่เหลือของ IP
divide_locations_left = iplength_left-locations_left '' เพื่อรับสถานที่แรกที่ปรากฏตัวครั้งแรกในสตริง IP "
ipstr_left = ขวา (ตรวจสอบ, divide_locations_left) '' 'หลังจากได้รับการแบ่งสตริงที่เหลือของ IP ที่เหลืออยู่ทางด้านขวาของ "
chect_left = ipstr_left '' เพื่อให้สตริงที่ได้รับด้านบนกับฟังก์ชัน
ฟังก์ชันสิ้นสุด
'' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////it ////////////////////////////////////////////////////
'' ฟังก์ชั่นต่อไปนี้เป็น IP และสตริง IP ที่ด้านซ้ายของ "."
ฟังก์ชั่นตรวจสอบ _right (checkstring)
location_right = checkip_locations (checkstring) ''
iplength_right = len (checkstring) '' รับความยาวสตริง IP
divide_locations_right = iplength_right-locations_right ''
ipstr11 = trim (reft (ซ้าย (ตรวจสอบ, locations_right),.,) '' '' '. "ทางด้านซ้ายของ". "
'' ถ้า IP แบ่งออกเป็น 4 ย่อหน้าแต่ละย่อหน้าจะน้อยกว่า 3 หลักและ 0
ถ้า len (ipstr11) = 2 แล้ว ipstr11 = 0 & ipstr11
ถ้า LEN (iPSTR11) = 3 แล้ว iPSTR11 = iPSTR11
ถ้า LEN (iPSTR11) = 1 แล้ว IPSTR11 = 00 & iPSTR11
chect_right = iPSTR11 '' 'ก่อน ".