存储过程中写日志

create trigger tr
on 表
for update
as

--记录信息
declare @o int
        ,@f int
        ,@t int
        ,@ret int
        ,@info varchar(1000)   --要记录的信息
        ,@path varchar(255)    --日志文件路径
        ,@tmp int
select  @info='update表于 '+convert(varchar,getdate(),120)
        ,@path='c:/log.txt'

exec master..xp_fileexist @path,@tmp out
exec sp_oacreate 'scripting.filesystemobject',@o out

if @tmp=0
begin
      exec sp_oamethod @o,'createtextfile',@f out,@path,1
end
else
begin
      exec sp_oamethod @o,'openTextFile',@f out,@path,8,1
end

exec @ret=sp_oamethod @f,'writeline',NULL,@info
exec sp_OADestroy @o
exec sp_oastop