ใช้ ASP เพื่อสร้างไฟล์บันทึก คุณคือเว็บไซต์ logfile.asp เขียนข้อมูลของเขาโดยอัตโนมัติไปยัง logfile.txt หาก URL ที่เกี่ยวข้องเหมือนกันมันจะไม่ถูกเขียนลงในไฟล์
ไฟล์: logfile.asp
รหัสมีดังนี้:
-
ตัวแปรบันทึกของ Dim Validentry
'ชุดแรกที่บันทึกนี้ใช้ได้
validentry = true
'ถ้าการเข้าสู่ระบบของตัวแปรเซสชันไม่ว่างเปล่า
'นั่นหมายความว่าบุคคลนี้ได้รับการบันทึกไว้แล้ว
'จากนั้นตั้งค่าเป็นเท็จ
ถ้าไม่ใช่ ismpty (เซสชัน (เข้าสู่ระบบ)) ค่า = false
'ที่นี่คุณสามารถเพิ่มข้อ จำกัด ที่แตกต่างกัน
'หาก URL อ้างอิงมาจากไซต์เดียวกัน
'อย่าเขียนถึงไฟล์บันทึก
ถ้าทิ้ง (request.serverVariables (http_referr), 17)
= http://jzxue.com แล้ว
validentry = false
สิ้นสุดถ้า
ถ้าเหลือ (request.serverVariables (http_referr), 21)
= http://www.vevb.com แล้ว
validentry = false
สิ้นสุดถ้า
'ตอนนี้ถ้า validentry เป็นจริงแล้วป้อนไปยังไฟล์บันทึก
ถ้า Validentry แล้ว
การขึ้นรูป const = 8
const create = true
สลัว fso
DIM TS
Dim Myfilename
สลัวสลัว
myFilename = server.mappath (mylogfile.txt)
ตั้งค่า fso = server.createObject (scripting.filesystemobject)
ตั้งค่า ts = fso.opentextfile (myfilename, forappending, สร้าง)
'เก็บค่าที่ต้องการทั้งหมดใน strlog
strlog = <br> <p> <b> & ตอนนี้ & </b>
strlog = strlog & request.serverVariables (remote_addr) &
strlog = strlog & request.serverVariables (http_referr) &
strlog = strlog & request.serverVariables (http_user_agent) & <br>
'เขียนข้อมูลปัจจุบันเพื่อบันทึกไฟล์ข้อความ
ts.write strlog
ts.writeline
'สร้าง Varialbe เซสชันเพื่อตรวจสอบในครั้งต่อไปสำหรับการประเมินค่า
เซสชัน (เข้าสู่ระบบ) = ใช่
ตั้งค่า ts = ไม่มีอะไร
ตั้งค่า fso = ไม่มีอะไร
สิ้นสุดถ้า
-