แนะนำ: ASP เรียกตัวอย่างไลบรารี IP บริสุทธิ์ % '==================================================== ========= 'ส่งคืนข้อมูล IP disp_ipaddressdata (ip, 0)' ============================================================================ ================================= = ฟังก์ชั่น look_ip (ip) dim wry, iptype, qqwryversion, ipcounter 'ชุดวัตถุตั้งค่า Wry Wry = ใหม่ tqqwry 'เริ่มค้นหา
-
ฟังก์ชั่น badchar (str)
BADSTR = รายการอักขระที่ไม่มีการเปลี่ยนแปลงแยกจากกันด้วย | (ส่งเพราะไม่สามารถมีอักขระเหล่านั้นได้เมื่อเผยแพร่)
badword = split (badstr, |)
สำหรับ i = 0 ถึง Ubound (badword)
ถ้า instr (str, badword (i))> 0 แล้ว
badchar = true
ออกจาก
อื่น
badchar = false
สิ้นสุดถ้า
ต่อไป
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น cutbadchar (str)
BADSTR = รายการอักขระที่ไม่มีการเปลี่ยนแปลงแยกจากกันด้วย | (ส่งเพราะไม่สามารถมีอักขระเหล่านั้นได้เมื่อเผยแพร่)
badword = split (badstr, |)
สำหรับ i = 0 ถึง Ubound (badword)
ถ้า instr (str, badword (i))> 0 แล้ว
str = แทนที่ (str, badword (i), ×× x)
สิ้นสุดถ้า
ต่อไป
cutbadchar = str
ฟังก์ชันสิ้นสุด
-
แบ่งปัน: อินสแตนซ์ ASP: ผู้เยี่ยมชมพื้นที่การใช้งาน ASP ล่าสุด เนื่องจากความสัมพันธ์ในการทำงานเรากำลังทำงานในพื้นที่ผู้ใช้ หากต้องการใช้ผู้เข้าชมล่าสุดในอวกาศดูรหัส ASP: % username = request.QueryString (ชื่อผู้ใช้) 'ชื่อผู้ใช้ในคอลัมน์ภาคพื้นดินเป็นชื่อผู้ใช้ของคุณเองถ้า trim (request.cookies (user_name) จำเป็นต้องพิจารณาสิ่งนี้ว่าจะเข้าสู่ระบบหรือไม่สามารถบันทึกได้หากคุณเข้าสู่ระบบ