때때로 귀하의 사이트를 누가, 언제, 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이면 로그 파일에 입력합니다.
만약 ValidEntry라면
ConstForAppending = 8
Const 생성 = true
희미한 FSO
희미한 TS
DIM 내 파일 이름
희미한 strLog
MyFileName = 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.strLog 쓰기
TS.Writeline
' 다음에 ValidEntry를 확인할 세션 변수를 만듭니다.
세션(로그인) = 예
TS = 없음 설정
FSO = 없음 설정
종료 조건
%>