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

情比金坚 · 发表于 2006-12-30 00:30:00

在《从access到asp.net》我给出了一个上传图片的函数，但是在网站运行的时候，会发现，有时我们使用列表，需要的是小图片，有时察看明细，需要的是大图片，而大图片在小图片框中会变形，不好看，而有时自动图片框又因为图片太大被涨得太大，所以最好有两种图片，分别用在不同的地方。好在asp.net2.0中为我们提供了一个image的类，可以有很多功能，包括生成缩略图，制作水印等功能。（水印的制作等有空我再贴出来）

首先我们建立一个图片上传的类：命名为：uploadimg

Public Class uploadimg
Public file As Object    '输入图片的文件框
Public Maximg As String    '大图片的存放地址
Public Minimg As String    '小图片的存放地址
Public Msglab As Label    '错误报告的标签框
Public x As Integer       '缩略图的宽
Public y As Integer       '缩略图的高
Dim s1 As String    '图片的格式
Dim s2() As String '原图片的地址,用"\"分割为数组

Sub upimg()
      If file.PostedFile.ContentLength > 0 Then
         Dim fileSize As Integer = file.PostedFile.ContentLength
         If fileSize < 200000 Then
            s2 = file.PostedFile.FileName.Split("\")
            s1 = Right(s2(s2.Length - 1), 4)
            If s1 = ".jpg" Or s1 = ".JPG" Or s1 = ".GIF" Or s1 = ".gif" Or s1 = ".bmp" Or s1 = ".BMP" Then
                  Dim s3 As String '上传后图片的名称，时间+毫秒为名字
                  s3 = Format(Now(), "yyyyMMddHHmmss") & Trim(Str(DateTime.Now.Millisecond)) & s1
                  file.PostedFile.SaveAs(HttpContext.Current.Server.MapPath(".") & "\images\" & s3)    '保存
                  Maximg = "~\images\" & s3
                  minup()
            Else
                  Msglab.Text = "图片的格式不符合要求"
            End If
         Else
            Msglab.Text = "图片大小超过了200K"
         End If
      Else
         Msglab.Text = "请选择图片"
      End If
End Sub

'缩略图上传
Sub minup()
      Dim simg As System.Drawing.Image       '声明一个image对象
      Dim H As Integer             '图像高度
      Dim W As Integer                '图像宽度
      simg = System.Drawing.Image.FromFile(file.PostedFile.FileName)    '实例化一个image对象
      H = simg.Height
      W = simg.Width
      If H > W Then
         y = y
         x = x * (W / H)
      Else
         x = x
         y = y * (H / W)
      End If
      Dim callback As GetThumbnailImageAbort
      simg = simg.GetThumbnailImage(x, y, callback, IntPtr.Zero)          '生成缩略图
      Dim s4 As String
      s4 = Format(Now(), "yyyyMMddHHmmss") & Trim(Str(DateTime.Now.Millisecond)) & "s" & s1
      simg.Save(HttpContext.Current.Server.MapPath(".") & "\images\" & s4)    '保存在指定文件夹
      Minimg = "~\images\" & s4
End Sub
End Class

好了，让我们来测试一下：建立一个web窗体；添加一个浏览文本框,一个标签框，一个命令按钮，两个图片框

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>imgupload测试页</title>
</head>
<body>
<form id="form1" runat="server">
      <input id="File1" type="file" runat="server" />
      <asp:Button ID="Button1" runat="server" Text="Button"  />
      <asp

abel ID="Label1" runat="server"></asp

abel><br />
      <asp:Image ID="Image1" runat="server" /><br />
      <asp:Image ID="Image2" runat="server" />
</form>
</body>
</html>

然后再后台代码写上调用的代码：

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
      Dim meimg As New uploadimg
      meimg.file = File1
      meimg.Msglab = Me.Label1
      meimg.x = 100
      meimg.y = 100

fan0217 · 发表于 2007-1-29 22:54:00

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

fan0217 · 发表于 2008-3-9 13:58:22

<%@ WebHandler Language="VB" Class="DisplaySmallPicture" %>
Option Strict On
Imports System
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Web
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Configuration
Public Class DisplaySmallPicture
Implements IHttpHandler
Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
' 取得传递进来的文件路径。
Dim PictureFilePath As String = Trim(context.Request.QueryString("PictureFilePath"))
With context.Response
' 改变 HTTP 头的输出格式，以便让浏览器知道所输出的文档格式是 JPEG 格式。
.ContentType = "Image/JPEG"
.Clear()
.BufferOutput = True
Using ms As New MemoryStream(My.Computer.FileSystem.ReadAllBytes(PictureFilePath))
Using bmp As New Bitmap(ms)
Dim intWidh As Integer = 100
Dim intHeight As Integer = CInt(bmp.Height / bmp.Width * 100)
' 将照片缩小。
Using SmallerBmp As New Bitmap(bmp, CInt(intWidh), CInt(intHeight))
'Using SmallerBmp As New Bitmap(bmp, CInt(bmp.Width * 0.15), CInt(bmp.Height * 0.15))
SmallerBmp.Save(.OutputStream, ImageFormat.Jpeg)
End Using
End Using
End Using
End With
End Sub
Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
Get
Return False
End Get
End Property
End Class

复制代码

fan0217 · 发表于 2008-3-11 10:08:38

使用方法：

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

帐号		自动登录	找回密码
密码			注册

主题相关群

地区相关群[您还没设置居住地]

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

本帖被以下淘专辑推荐:

浏览过的版块

群介绍
主题无相 (随机显示版	同地区群块其他地区)

群介绍
VB交流群 (329480466)