asp.net生成缩略图

当我们要上传图片的时候，往往需要生成缩略图，以往我们要使用第三方控件才能完成。在ASP.net中用下面方法轻松搞定 
   < script language = " VB "  runat = " server " >  
  Sub Page_Load(sender As Object, e As EventArgs) 
   
   
  Dim image,aNewImage As System.Drawing.Image 
  dim width,height,newwidth,newheight  as  integer 
  Dim callb As System.Drawing.Image.GetThumbnailImageAbort 
   
   
   '' 生成缩略图 
  image = System.Drawing.Image.FromFile(Server.MapPath( " classpic/ " + " rs1.jpg " )) 
  width = image.Width 
  height = image.height 
   if  width > height then 
  newwidth = 110  
  newheight = image.height / image.Width * newwidth 
   else  
  newheight = 110  
  newwidth = image.Width / image.height * newheight 
  end  if  
   
   
  aNewImage = image.GetThumbnailImage(newwidth,newheight,callb, new  System.IntPtr()) 
  aNewImage.Save(Server.MapPath( " smallpic/ " + " rs1.gif " )) 
  image.Dispose() 
   
   
  End Sub 
   </ script >  

 
<script type="text/javascript"> google_ad_client = "pub-8527320164371593"; google_ad_width = 728; google_ad_height = 90; google_ad_format = "728x90_as"; google_ad_type = "text_image"; //2006-11-09: asp.net google_ad_channel = "8786117784"; google_language = 'en'; </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>