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