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)
'==================== 

'asp' 카테고리의 다른 글

Working with ASP Applications  (0) 2011.05.24
global.asa <OBJECT>  (0) 2011.05.24
ASP함수 모음  (0) 2011.04.19
초보자를 위한 ASP + MySQL 연동 방법  (0) 2011.04.19
WinHttp.WinHttpRequest.5.1 GET  (0) 2011.02.16

+ Recent posts