sql2005 clr例子

  
  

   
   using
   
    System;

   
   using
   
    System.Collections.Generic;

   
   using
   
    System.Text;

   
   using
   
    System.Data.SqlTypes;

   
   using
   
    System.Text.RegularExpressions;

   
   using
   
    Microsoft.SqlServer.Server;

   
   using
   
    System.Net;

   
   using
   
    System.IO;

   
   namespace
   
    qanholas
{ 
 
   
   public
   
    
   
   class
   
    net 
 { 
 [SqlFunction(IsDeterministic 
   
   =
   
    
   
   true
   
   , DataAccess 
   
   =
   
    DataAccessKind.None)] 
 
   
   public
   
    
   
   static
   
    SqlString ping(
   
   string
   
    html)
 {
 
   
   return
   
    (SqlString)GetWebClient(html);
 }


 
   
   private
   
    
   
   static
   
    
   
   string
   
    GetWebClient(
   
   string
   
    url)
 {
 
   
   string
   
    strHTML 
   
   =
   
    
   
   ""
   
   ;
 WebClient myWebClient 
   
   =
   
    
   
   new
   
    WebClient();
 Stream myStream 
   
   =
   
    myWebClient.OpenRead(url);
 StreamReader sr 
   
   =
   
    
   
   new
   
    StreamReader(myStream, System.Text.Encoding.GetEncoding(
   
   "
   
   utf-8
   
   "
   
   ));
 strHTML 
   
   =
   
    sr.ReadToEnd();
 myStream.Close();
 
   
   return
   
    strHTML;
 }



 } 


}
  
  

 
--创建程序集 
USE qanholas; 
CREATE ASSEMBLY qanholas  
FROM 'D:\WindowsApplication\qanholas\qanholas\bin\Debug\qanholas.dll' 
 
 
--创建函数 
CREATE  FUNCTION dbo.gethtml 
( 
    @html  AS NVARCHAR( 20) 
) 
RETURNS NVARCHAR( MAX) 
AS 
    EXTERNAL NAME qanholas.[qanholas.net].[ping]; 
GO 
 
 
--无限制访问 
USE [qanholas] 
GO 
 
ALTER ASSEMBLY [qanholas] 
WITH PERMISSION_SET = UNSAFE 
 
GO 
 
 
 
SELECT dbo.gethtml('http:\\www.baidu.com')