<%
    Function getPath()
        getPath = request.servervariables("APPL_PHYSICAL_PATH")
    End Function

    Function getScriptName()
        sName = request.servervariables("SCRIPT_NAME")
        getScriptName = sName
    End Function


    Sub writeLog(logMsg, strSQL)
        f_YY=CStr(Year(Now()))
        If( Month(Now()) < 10 ) Then
            f_MM="0" & CStr(Month(Now()))
        Else
            f_MM=CStr(Month(Now()))
        End if
        If( day(Now()) < 10 ) Then
            f_DD="0" & CStr(day(Now()))
        Else
            f_DD=CStr(day(Now()))
        End if

        ‘f_date    = FormatDateTime(date,2)
        f_date1    = f_YY & f_MM & f_DD

     
        pathname = "D:\LOG\" & Request.ServerVariables("REMOTE_ADDR") & "-" &  f_date1    & ".log" ‘formatdatetime(Date, 1) FormatDateTime(Now(),1)
        set fso = server.CreateObject("scripting.filesystemobject")

        if fso.fileExists(pathname) then          
            set ofile = fso.OpenTextFile(pathname,8,true)
        else
            set ofile = fso.CreateTextFile(pathname,true)
        end If

        ofile.Writeline "[" & Now & "-" & getScriptName() & "]" & chr(13) & chr(10)
        ofile.Writeline logMsg & chr(13) & chr(10)
        ofile.Writeline strSQL & chr(13) & chr(10)

        ofile.close
        set ofile = nothing
        set fso = nothing
    End Sub
%>

asp中日志方法