[ASP.NET]上传图片并生成缩略图

fan0217

图片文件的扩展名通过IO来获取应该更好些，有些图片文件的扩展名可能是4个字母，比如：jpeg

fan0217

1. 
   
2. 
   
3. <%@ WebHandler Language="VB" Class="DisplaySmallPicture" %>
   
4. Option Strict On
   
5. Imports System
   
6. Imports System.IO
   
7. Imports System.Drawing
   
8. Imports System.Drawing.Imaging
   
9. Imports System.Web
   
10. Imports System.Data
    
11. Imports System.Data.SqlClient
    
12. Imports System.Web.Configuration
    
13. Public Class DisplaySmallPicture
    
14.     Implements IHttpHandler
    
15.    
    
16.     Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
    
17.         ' 取得传递进来的文件路径。
    
18.         Dim PictureFilePath As String = Trim(context.Request.QueryString("PictureFilePath"))
    
19.         
    
20.         With context.Response
    
21.             ' 改变 HTTP 头的输出格式，以便让浏览器知道所输出的文档格式是 JPEG 格式。
    
22.             .ContentType = "Image/JPEG"
    
23.             .Clear()
    
24.             .BufferOutput = True
    
25.                         
    
26.             Using ms As New MemoryStream(My.Computer.FileSystem.ReadAllBytes(PictureFilePath))
    
27.                 Using bmp As New Bitmap(ms)
    
28.                     Dim intWidh As Integer = 100
    
29.                     Dim intHeight As Integer = CInt(bmp.Height / bmp.Width * 100)
    
30.                     
    
31.                     ' 将照片缩小。
    
32.                     Using SmallerBmp As New Bitmap(bmp, CInt(intWidh), CInt(intHeight))
    
33.                         'Using SmallerBmp As New Bitmap(bmp, CInt(bmp.Width * 0.15), CInt(bmp.Height * 0.15))
    
34.                         SmallerBmp.Save(.OutputStream, ImageFormat.Jpeg)
    
35.                     End Using
    
36.                 End Using
    
37.             End Using
    
38.         End With
    
39.     End Sub
    
40. 
    
41.     Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
    
42.         Get
    
43.             Return False
    
44.         End Get
    
45.     End Property
    
46. End Class
    
47. 
    

复制代码

fan0217

使用方法：

ImageUrl='<%# Eval("FullPath", "~/DisplaySmallPicture.ashx?PictureFilePath={0}") %>'