Apakah Anda terkadang ingin tahu siapa yang mengunjungi situs Anda, kapan, alamat IP, dll. Izinkan saya menjelaskan masalah ini kepada Anda di bawah. Contoh ini menggunakan file teks untuk menulis informasi pengguna untuk membuat logfile.asp dan menempatkannya di bagian atas setiap halaman asp <!--#Include File=LogFile.asp-->Ketika seseorang mengunjungi situs Anda logfile.asp secara otomatis Menulis informasinya ke LogFile.txt. Jika URL terkait sama, file tidak akan ditulis.
Berkas: LogFile.asp
Copy kode kodenya 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://vevb.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
%>