ASP 로그 작성하기

Const fsoForAppend = 8
 
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 
'텍스트 파일을 수정 모드로 연다.
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("D:\WebRoot\ttl_mms\syscon\log_deliver.txt", fsoForAppend)
 
'텍스트 파일의 내용을 파일에 쓴다.
if Err <> 0 then
  strResult = Err.Description
else
  strResult = "SUCCESS"
end if

strLog = now() &"|"& PARAM &"|"& Err &"|"& strResult
objTextStream.WriteLine strLog

'TextStream 개체를 닫는다.
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing



[출처] http://kin.naver.com/detail/detail.php?d1id=1&dir_id=10112&eid=8qnir4vqnW1A4C83pRs9ROYiI9Cy3mla&qb=YXNwILfOsdc=&pid=f5lJJwoi5UZssb/Pi9Nsss--032104&sid=SJQhly34k0gAAGYuO-M