ASP CALL ตัวอย่างไลบรารี IP บริสุทธิ์

แนะนำ: อินสแตนซ์ ASP: ผู้เข้าชมล่าสุดของ ASP Applementation Space
เนื่องจากความสัมพันธ์ในการทำงานเรากำลังทำงานในพื้นที่ผู้ใช้ หากต้องการใช้ผู้เข้าชมล่าสุดในอวกาศดูรหัส ASP: % username = request.querystring (ชื่อผู้ใช้) 'ชื่อผู้ใช้ในคอลัมน์ภาคพื้นดินคือชื่อผู้ใช้ของคุณหรือไม่

เมื่อทำงานในโครงการฉันพบปัญหาของ ASP ที่เรียกห้องสมุด IP ที่ไร้เดียงสา ตอนนี้ให้ฉันพูดถึงวิธีแก้ปัญหา

-

-

'ส่งคืนข้อมูล IP disp_ipaddressdata (ip, 0)

-

ฟังก์ชั่น look_ip (IP)

Dim wry, iptype, qqwryversion, ipcounter

'ตั้งค่าวัตถุคลาส

ตั้งค่า wry = ใหม่ tqqwry

'เริ่มค้นหาและกลับไปที่ผลการค้นหา

'คุณสามารถตรวจสอบได้ว่าที่อยู่ IP มีอยู่ในฐานข้อมูลตามค่าการส่งคืน QQWRY (IP) หรือไม่ หากไม่มีอยู่คุณสามารถดำเนินการอื่น ๆ ได้

'ตัวอย่างเช่นหากคุณสร้างฐานข้อมูลสำหรับการติดตามฉันจะไม่อธิบายรายละเอียดที่นี่

iptype = wry.qqwry (IP)

'ประเทศ: ประเทศ: เขตประเทศ

'Localstr: จังหวัดเมืองและข้อมูลอื่น ๆ

look_ip = wry.country & & wry.localstr

'' '' 'look_ip = wry.country &

ฟังก์ชันสิ้นสุด

-

'ส่งคืนข้อมูล IP JS CALL

-

ฟังก์ชั่น disp_ipaddressdata (ip, stype)

Dim Wry, iptype

ตั้งค่า wry = ใหม่ tqqwry

iptype = wry.qqwry (IP)

เลือก case stype

กรณีที่ 1 disp_ipaddressdata = ip

กรณีที่ 2 disp_ipaddressdata = wry.country

กรณีที่ 3 disp_ipaddressdata = wry.localstr

'กรณีอื่น disp_ipaddressdata = wry.country & & wry.localstr

กรณีอื่น disp_ipaddressdata = wry.country

สิ้นสุดเลือก

ฟังก์ชันสิ้นสุด

-

'กลับไปที่ข้อมูล qqwry

-

ฟังก์ชั่น wryinfo ()

Dim wry, iptype, qqwry_tem (0), qqwry_tem1 (1)

'ตั้งค่าวัตถุคลาส

ตั้งค่า wry = ใหม่ tqqwry

iptype = wry.qqwry (2555.255.255.254)

'อ่านข้อมูลเวอร์ชันฐานข้อมูล

qqwry_tem (0) = wry.country & & wry.localstr

'อ่านจำนวนที่อยู่ IP ฐานข้อมูล

qqwry_tem1 (1) = wry.recordcount + 1

wryinfo = qqwry_tem (0) & & qqwry_tem1 (1)

ฟังก์ชันสิ้นสุด

แชร์: ASP ป้องกันได้รับการฉีดโพสต์และการโจมตีเซิร์ฟเวอร์และบันทึก IP
วิธีการป้องกันการฉีดโพสต์และการโจมตีเซิร์ฟเวอร์ 'ใช้วิธีการรวมไฟล์นี้ไว้ในไฟล์ที่จำเป็นต้องบันทึกดังนั้นโปรดทราบว่าการโจมตีโพสต์และการโจมตีที่นี่ไม่จำเป็นต้องโจมตี โปรดให้ความสนใจกับการใช้พวกเขาในเวอร์ชันภาษาอังกฤษ 'Feng Xu Modified Session.abandon () Dim fxjt111_attack_post, fxjt111_attack_get, fxjt111_attack_sys