Используйте Asp для создания файла журнала. В этом примере для записи информации о пользователе используется текстовый файл. Создайте файл logfile.asp и поместите его вверху каждой страницы asp <!--#Include File=LogFile.asp-->Когда кто-то заходит на ваш сайт logfile.asp автоматически записывает свою информацию в LogFile.txt. Если связанные URL-адреса одинаковы, файл не будет записан.
Файл: LogFile.asp
Код выглядит следующим образом:
<%
Dim ValidEntry 'Переменная журнала
' Сначала устанавливаем, что этот журнал действителен
Валидэнтри = Истина
' Если переменная сеанса LogIn не пуста
' это означает, что этот человек уже зарегистрирован
' затем установите для ValidLog значение False
Если не IsEmpty(Session(LogIn)) то ValidEntry = False
'Здесь вы можете добавлять различные ограничения
' Если ссылающийся URL находится на том же сайте
'не писать в файл журнала
Если осталось (Request.ServerVariables(HTTP_REFERER), 17)
=http://jzxue.com Тогда
Валидэнтри = ложь
Конец, если
Если осталось (Request.ServerVariables(HTTP_REFERER), 21)
=http://www.vevb.com Тогда
Валидэнтри = ложь
Конец, если
'Теперь, если ValidEntry имеет значение True, войдите в файл журнала
Если ВалидЭнтри Тогда
Констфораппендидинг = 8
Константное создание = истина
Дим ФСО
ДИМ ТС
DIM имя_файла
Дим стрлог
ИмяМоегоФайла = Server.MapPath(MyLogFile.txt)
Установите FSO = Server.CreateObject(Scripting.FileSystemObject)
Установите TS = FSO.OpenTextFile(MyFileName, ForAppending, Create)
' Сохраняем все необходимые значения в strLog
strLog = <br><P><B> & сейчас & </B>
strLog = strLog & Request.ServerVariables(REMOTE_ADDR) &
strLog = strLog & Request.ServerVariables(HTTP_REFERER) &
strLog = strLog & Request.ServerVariables(HTTP_USER_AGENT) & <BR>
' Запись текущей информации в текстовый файл журнала.
TS.write стрлог
TS.Writeline
' Создаем переменную сеанса для проверки ValidEntry в следующий раз.
Сеанс (Вход) = да
Установить TS = Ничего
Установить FSO = Ничего
Конец, если
%>