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이면 로그 파일에 입력합니다.
만약 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 = 없음 설정
종료 조건
%>