ASP日志记录

'日志记录（文本追加生成）
sub writeTxt(str,p)
    Set FSO=Server.CreateObject("Scripting.FileSystemobject")
    path=Server.MapPath(p)
    if FSO.FileExists(path) then
        Set text=FSO.OpenTextFile(path,8)
    else
        Set text=FSO.CreateTextFile(path,2)
    end if
    text.WriteLine(str)
    text.WriteLine("<hr>")
    text.close
    Set FSO=nothing
end sub