FSO를 이용해 로그 파일 생성

LMS를 개발중인대 외부 업체에서 보내온 플래시파일들 중간 중간에 코드를 도저희 찍어서
알아낼 방법이 없어서 고민하다가 어치파 안보일꺼면 FSO로 찍어 보자는 생각에
인터넷을 뒤져서 지금 다음 방법으로 디버깅을 하고 있습니다.

에휴...

 '# 윤인환 2011-05-02
Sub DebugLog(msg)
if "test1" = session("memId") then 

  ' Const ForReading = 1, ForWriting = 2, ForAppending = 8
   ForReading = 1
   ForWriting = 2
   ForAppending = 8
   Dim fso, f,path2logfile
   
   yyyy = Year(now)
  
  tmp_mm = Month(now)
  if tmp_mm < 10 then
                mm = "0" & tmp_mm
               else
                mm = tmp_mm
               end if
  
  tmp_dd  = Day(now)
  if tmp_dd < 10 then
                 dd = "0" & tmp_dd
               else
                 dd = tmp_dd
               end if

   path2logfile = Server.MapPath("./log/MSLog" & yyyy & mm & dd & ".txt")

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set f = fso.OpenTextFile(path2logfile, ForAppending, True)
   f.WriteLine Request.ServerVariables("SERVER_NAME") & "  : " & now & " : " & Request.ServerVariables("SCRIPT_NAME") & " : [" & msg & "]" 
   f.Close
   set fso = nothing
end if
 End Sub 



'====================
'# Duraboys DebugLog
DebugLog(strSQL)
'==================== 
저작자 표시 비영리 동일 조건 변경 허락
신고

'☆Develpoer > └ asp' 카테고리의 다른 글

Working with ASP Applications  (0) 2011.05.24
global.asa <OBJECT>  (0) 2011.05.24
FSO를 이용해 로그 파일 생성  (0) 2011.05.02
ASP함수 모음  (0) 2011.04.19
초보자를 위한 ASP + MySQL 연동 방법  (0) 2011.04.19
WinHttp.WinHttpRequest.5.1 GET  (0) 2011.02.16