Gunakan Asp untuk membuat file log. Contoh ini menggunakan file teks untuk menulis informasi pengguna. Buat logfile.asp dan letakkan di bagian atas setiap halaman asp <!--#Include File=LogFile.asp-->Ketika seseorang datang mengunjungi situs Anda logfile.asp secara otomatis menulis informasinya ke LogFile.txt. Jika URL terkait sama, file tidak akan ditulis.
Berkas: LogFile.asp
Kodenya adalah sebagai berikut:
<%
Redupkan ValidEntry ' Variabel log
' Pertama-tama atur bahwa log ini valid
ValidEntry = Benar
' Jika LogIn Variabel Sesi tidak kosong
' itu berarti orang ini sudah login
' lalu atur ValidLog ke False
Jika bukan IsEmpty(Session(LogIn)) maka ValidEntry = False
' Di sini Anda dapat menambahkan batasan yang berbeda
' Jika url pengarah berasal dari situs yang sama
' jangan menulis ke file log
Jika Kiri(Permintaan.ServerVariables(HTTP_REFERER), 17)
=http://jzxue.com Lalu
ValidEntry = Salah
Berakhir jika
Jika Kiri(Permintaan.ServerVariables(HTTP_REFERER), 21)
=http://www.vevb.com Lalu
ValidEntry = Salah
Akhiri Jika
' Sekarang jika ValidEntry adalah True lalu masuk ke file log
Jika ValidEntry Lalu
ConstForAppending = 8
Const Buat = benar
Redupkan FSO
DIM TS
DIM Nama File Saya
Redupkan strLog
NamaFile Saya = Server.MapPath(MyLogFile.txt)
Setel FSO = Server.CreateObject(Scripting.FileSystemObject)
Setel TS = FSO.OpenTextFile(NamaFileSaya, UntukPenambahan, Buat)
' Simpan semua nilai yang diperlukan di strLog
strLog = <br><P><B> & sekarang & </B>
strLog = strLog & Permintaan.ServerVariables(REMOTE_ADDR) &
strLog = strLog & Permintaan.ServerVariables(HTTP_REFERER) &
strLog = strLog & Permintaan.ServerVariables(HTTP_USER_AGENT) & <BR>
' Tulis informasi terkini ke File Teks Log.
TS.tulis strLog
TS.Writeline
' Buat variabel sesi untuk memeriksa ValidEntry di lain waktu
Sesi(Masuk) = ya
Tetapkan TS = Tidak ada
Tetapkan FSO = Tidak Ada
Akhiri Jika
%>