用SQL在文本文件中追加数据

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

ifexists(select*fromdbo.sysobjectswhereid=object_id(N'[dbo].[p_movefile]')andOBJECTPROPERTY(id,N'IsProcedure')=1)
dropprocedure[dbo].[p_movefile]
GO

/*--在文本文件中追加数据

 在文本文件中追加数据
 如果文件不存在,将创建文件

--邹建2004.08(引用请保留此信息)--*/

/*--调用示例

 execp_movefile'c:/aa.txt','测试写入'
--*/
createprocp_movefile
@filenamevarchar(1000),--要操作的文本文件名
@textvarchar(8000) --要写入的内容
as
declare@errint,@srcvarchar(255),@descvarchar(255)
declare@objint

exec@err=sp_oacreate'Scripting.FileSystemObject',@objout
if@err<>0gotolberr

exec@err=sp_oamethod@obj,'OpenTextFile',@objout,@filename,8,1
if@err<>0gotolberr

exec@err=sp_oamethod@obj,'WriteLine',null,@text
if@err<>0gotolberr

exec@err=sp_oadestroy@obj
return

lberr:
 execsp_oageterrorinfo0,@srcout,@descout
 selectcast(@errasvarbinary(4))as错误号
  ,@srcas错误源,@descas错误描述
go
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>