Contoh kode ASP untuk membuat file log
Contoh pembuatan file log dengan Asp 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 untuk 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.jzxue.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
%>