sql 调用 webservice 发微信

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go

ALTER function [dbo].[m_wx_post](@P1_Value varchar(20),@P2_Value varchar(200))

returns @t table(col varchar(200))

as

begin

--sp_configure 'show advanced options', 1;
--GO
--RECONFIGURE;
--GO
--sp_configure 'Ole Automation Procedures', 1;
--GO
--RECONFIGURE;
--GO

declare @ServiceUrl as varchar(1000)
declare @UrlAddress varchar(500)

set @UrlAddress = 'http://168.10.100.3:8190/WeiChatWS.asmx/'

declare @FunName varchar(50)
set @FunName = 'sendMoreMessage'

--以下参数对应WebService中参数的[参数名]
declare @P1 varchar(800),@P2 varchar(100)
set @P1 = 'userid'
set @P2 = 'content'

--declare @P1_Value varchar(100),@P2_Value varchar(100)
--set @P1_Value = '601347'
--set @P2_Value = 'aaatest'

set @ServiceUrl = @UrlAddress + @FunName + '?' + @P1 + '=' + @P1_Value +'&' + @P2 + '=' + @P2_Value

Declare @Object as Int
Declare @ResponseText as Varchar(8000)

--创建 OLE 对象的实例。
--sp_OACreate { progid | clsid } , objecttoken OUTPUT [ , context ]
--返回的对象令牌，并且必须是数据类型为 int 的局部变量。 该对象令牌用于标识所创建的 OLE 对象，并用于调用其他 OLE 自动化存储过程。
Exec sp_OACreate 'MSXML2.XMLHTTP', @Object OUT;
--sp_OAMethod 调用一个 OLE 对象的方法。
Exec sp_OAMethod @Object, 'open', NULL, 'get',@ServiceUrl,'false'
Exec sp_OAMethod @Object, 'send'
Exec sp_OAMethod @Object, 'responseText', @ResponseText OUTPUT


Exec sp_OADestroy @Object --破坏已创建的 OLE 对象。--如果未调用 sp_OADestroy，则在批处理结束时将自动破坏已创建的 OLE 对象。
--当不再需要对象时，调用 sp_OADestroy 释放使用 sp_OACreate 创建的对象实例。

return

end