파일쓰기....

헐.. ASP를 처음 하다 보니.. 이런것도 기록하게 되는고나..--;

 

<%

Function savelog(msg, filename)
    Dim log_dir, log_filename, del_date, del_filename

    log_dir = "D:\log"
    log_filename = log_dir & "\" & Year(now) & Right("0" & Month(now), 2) & Right("0" & Day(now), 2) & ".txt" '날짜별 기록
 
    Set fso = Server.CreateObject("Scripting.FileSystemObject")

    If fso.fileExists(log_filename) Then
        Set out = fso.OpenTextFile(log_filename, 8, true)
    Else
        Set out = fso.CreateTextFile(log_filename, true)
    End If
 
    out.write("[" & Now & "]\t")
    out.writeLine(msg)
    out.close

   

    '30일 이전체크 후 지난 파일 삭제
    del_date = DateAdd("d", -30, Date())
    del_date = Replace(del_date, "-", "")
    del_filename = log_dir & "\" & del_date & ".txt"

    If fso.fileExists(del_filename) Then
        fso.DeleteFile(del_filename)
    End if

 
    Set out = Nothing
    Set fso = Nothing
End Function

 

Call savelog("filename", "message")

 

%>