SQL 调用 webservice

webservice 
需要配置为get 方式

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)
--WebService地址：以http开头，结尾带斜杠，例如'http://webservice.webxml.com.cn/WebServices/MobileCodeWS.asmx/' 
set @UrlAddress = 'http://127.0.0.1/Service/MessageService.asmx/'

declare @FunName varchar(50)
--WebService中调用的方法名：例如'getMobileCodeInfo'
set @FunName = 'SendMessage'   

--以下参数对应WebService中4个参数的[参数名]
DECLARE @appcode NVARCHAR(50)
DECLARE @password NVARCHAR(50)
DECLARE @sendModes NVARCHAR(50)
DECLARE @title NVARCHAR(50)
DECLARE @content NVARCHAR(50)
DECLARE @needReply VARCHAR(1)
DECLARE @bizObjId NVARCHAR(50)
DECLARE @senderUserID NVARCHAR(50)
DECLARE @receiveUserIds NVARCHAR(50)
DECLARE @receiveAcounts NVARCHAR(50)
DECLARE @sendTime DATETIME
DECLARE @expiredTime DATETIME

SET @appcode=N'PersonalPortal'
SET @password=N'PersonalPortal'
SET @sendModes=N'%E7%9F%AD%E4%BF%A1'
SET @title=N'test'
SET @content=N'test'
SET @needReply='0'
SET @bizObjId=N'test'
SET @senderUserID=N'工号'
SET @receiveUserIds=''
SET @receiveAcounts='手机号码或邮件'
SET @sendTime=GETDATE()
SET @expiredTime=DATEADD(HOUR,1,GETDATE())

set @ServiceUrl = @UrlAddress + @FunName + '?appcode=' + @appcode +'&'  
+ 'password=' + @password +'&' 
+ 'sendModes=' + @sendModes +'&' 
+ 'title=' + @title +'&' 
+ 'content=' + @content +'&' 
+ 'needReply=' + @needReply +'&' 
+ 'bizObjId=' + @bizObjId +'&' 
+ 'senderUserID=' + @senderUserID +'&' 
+ 'receiveUserIds=' + @receiveUserIds +'&' 
+ 'receiveAcounts=' + @receiveAcounts +'&' 
+ 'sendTime=' + CONVERT(VARCHAR(50),@sendTime,120)  +'&'     
+ 'expireTime=' +   CONVERT(VARCHAR(50),@expiredTime,120)                     
 
 PRINT   @ServiceUrl           


Declare @Object as Int
Declare @ResponseText as Varchar(8000)
                  
Exec sp_OACreate 'MSXML2.XMLHTTP', @Object OUT;
Exec sp_OAMethod @Object, 'open', NULL, 'get',@ServiceUrl,'false'
Exec sp_OAMethod @Object, 'send'
Exec sp_OAMethod @Object, 'responseText', @ResponseText OUTPUT
     
Select @ResponseText     
Exec sp_OADestroy @Object