SQLSERVER调用Web Service

IF EXISTS(             SELECT 1             FROM sysobjects             WHERE name = 'sP_GetWX_Access_Token' AND type = 'u'         )    DROP PROC sP_GetWX_Access_TokenGOCREATE PROC sP_GetWX_Access_Token(    @RetVal VARCHAR(8000)=0 OUTPUT)ASBEGIN    DECLARE @ServiceUrl AS VARCHAR(1000)    DECLARE @UrlAddress VARCHAR(500)
    --WebService地址：以http开头，结尾带斜杠    SET @UrlAddress = 'https://qyapi.weixin.qq.com/cgi-bin/'    --https://qyapi.weixin.qq.com/cgi-bin/gettoken?corpid={0}&corpsecret={1}    DECLARE @FunName VARCHAR(50)    --WebService中调用的方法名：例如'getcheckindata'    SET @FunName = 'gettoken'

    --https://qyapi.weixin.qq.com/cgi-bin/checkin/getcheckindata?access_token=
    --以下参数对应WebService中参数的[参数名]    DECLARE @P1 VARCHAR(800),@P2 VARCHAR(100)    DECLARE @P1_Value VARCHAR(100),@P2_Value VARCHAR(100),@P3_Value VARCHAR(100),@P4_Value VARCHAR(100)

    SET @P1 = 'corpid'    SET @P2 = 'corpsecret'
    SET @P1_Value = 'xxxxx'    SET @P2_Value = 'xxxxx'
    SET @ServiceUrl = @UrlAddress + @FunName + '?' + @P1 + '=' + @P1_Value + '&' + @P2 + '=' + @P2_Value    --Select @ServiceUrl                  DECLARE @Object INT    --Declare @ResponseText 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, 'Post', @ServiceUrl, 'false'    EXEC sp_OAMethod @Object, 'send'    EXEC sp_OAMethod @Object, 'responseText', @RetVal OUTPUT
    SELECT @RetVal    EXEC sp_OADestroy @Object --破坏已创建的 OLE 对象。--如果未调用 sp_OADestroy，则在批处理结束时将自动破坏已创建的 OLE 对象。当不再需要对象时，调用 sp_OADestroy 释放使用 sp_OACreate 创建的对象实例。    RETURNENDGO