Вы иногда хотите знать, кто посещает ваш сайт, когда, IP-адрес и т. д. Позвольте мне объяснить вам этот вопрос ниже. В этом примере текстовый файл используется для записи информации о пользователе для создания файла 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://vevb.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 = Ничего
Конец, если
%>