sp_configure 'show advanced options', 1;

GO

RECONFIGURE;

GO

sp_configure 'Ole Automation Procedures', 1;

GO

RECONFIGURE;

GO

 

CREATE PROCEDURE [dbo].[ExecuteWeb](@url as varchar(1500)) 

AS

BEGIN

DECLARE @obj INT      

--DECLARE @url VARCHAR(200)      

DECLARE @response VARCHAR(5000)      

--SET  @url='http://www.flyso.cn'    

EXEC sp_OACreate 'MSXML2.ServerXMLHttp',@obj out      

EXEC sp_OAMethod @obj,'Open',null,'GET',@url,false      

EXEC sp_OAMethod @obj,'send'      

EXEC sp_OAGetProperty @obj,'responseText',@response out          

--SELECT @response [response]      

EXEC sp_OADestroy @obj 

END

 

GO