在ASP.NET里轻松实现缩略图

原创 2003年05月26日 11:26:00

在ASP.NET里轻松实现缩略图

以前,在页面上实现缩略图必须借助第三方组件。现在,有了.NET,就可以很轻松地实现缩略图。下面就是实现缩略图的例子。

查看例子

代码如下:Thumbnail.aspx

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="Thumbnail.aspx.vb"
 Inherits
="aspxWeb.Thumbnail" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
  
<HEAD>
    
<title>在ASP.NET里轻松实现缩略图</title>
    
<meta content="Microsoft Visual Studio.NET 7.0" name="GENERATOR">
    
<meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
    
<meta content="JavaScript" name="vs_defaultClientScript">
    
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
  
</HEAD>
  
<body MS_POSITIONING="GridLayout">
    
<asp:Label id="Label1" runat="server"></asp:Label>
    
<form id="Form1" method="post" runat="server" enctype="multipart/form-data">
      
<INPUT type="file" name="file" width="600"><br><br>
      
<asp:Button id="Button1" runat="server"></asp:Button>
    
</form>
  
</body>
</HTML>
后代码:Thumbnail.aspx.vb

Imports System
Imports System.Web
Imports System.Drawing
Imports System.IO
Imports System.Drawing.Imaging
Public Class Thumbnail
  Inherits System.Web.UI.Page
  Protected WithEvents Label1 As System.Web.UI.WebControls.Label
  Protected WithEvents Button1 As System.Web.UI.WebControls.Button
#Region " Web Form Designer Generated Code "
  'This call is required by the Web Form Designer.
  
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  End Sub
  Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
    'CODEGEN: This method call is required by the Web Form Designer
    'Do not modify it using the code editor.
    InitializeComponent()
  End Sub
#End Region
  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Label1.Text = "
<h3>在ASP.NET里轻松实现缩略图</h3>"
    Button1.Text = "上载并显示缩略图"
  End Sub
  Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim MyFileColl As HttpFileCollection = HttpContext.Current.Request.Files
    Dim MyPostedFile As HttpPostedFile = MyFileColl.Item(0)
    If LCase(MyPostedFile.ContentType.ToString()).IndexOf("image") 
< 0 Then
      Response.Write("无效的图形格式。")
      Exit Sub
    End If
    GetThumbNail(MyPostedFile.FileName, 100, 100, MyPostedFile.ContentType.ToString(),_
     False, MyPostedFile.InputStream)
  End Sub
  Private Function GetImageType(ByVal strContentType) As System.Drawing.Imaging.ImageFormat
    Select Case (strContentType.ToString().ToLower())
      Case "image/pjpeg"
        GetImageType 
= System.Drawing.Imaging.ImageFormat.Jpeg
      
Case "image/gif"
        GetImageType 
= System.Drawing.Imaging.ImageFormat.Gif
      
Case "image/bmp"
        GetImageType 
= System.Drawing.Imaging.ImageFormat.Bmp
      
Case "image/tiff"
        GetImageType 
= System.Drawing.Imaging.ImageFormat.Tiff
      
Case "image/x-icon"
        GetImageType 
= System.Drawing.Imaging.ImageFormat.Icon
      
Case "image/x-png"
        GetImageType 
= System.Drawing.Imaging.ImageFormat.Png
      
Case "image/x-emf"
        GetImageType 
= System.Drawing.Imaging.ImageFormat.Emf
      
Case "image/x-exif"
        GetImageType 
= System.Drawing.Imaging.ImageFormat.Exif
      
Case "image/x-wmf"
        GetImageType 
= System.Drawing.Imaging.ImageFormat.Wmf
      
Case Else
        GetImageType 
= System.Drawing.Imaging.ImageFormat.MemoryBmp
    
End Select
  End Function
  Private Sub GetThumbNail(ByVal strFileName, ByVal iWidth, ByVal iheight, ByVal strContentType, _
  ByVal blnGetFromFile, ByVal ImgStream)
    Dim oImg As Image
    If blnGetFromFile Then
      oImg 
= oImg.FromFile(strFileName)
    
Else
      oImg 
= oImg.FromStream(ImgStream)
    
End If
    oImg 
= oImg.GetThumbnailImage(iWidth, iheight, Nothing, (New IntPtr()).Zero)
    Dim strGuid As String 
= (New Guid()).NewGuid().ToString().ToUpper()
    Dim strFileExt As String 
= strFileName.Substring(strFileName.LastIndexOf("."))
    
'保存到本地
    'oImg.Save(Server.MapPath("images") + "" + strGuid + strFileExt, GetImageType(strContentType))
    '直接输出url文件
    'Response.Redirect("images/" + strGuid + strFileExt)
    '以下显示在屏幕上
    Response.ContentType 
= strContentType
    
Dim MemStream As New MemoryStream()
    ' 注意:这里如果直接用 oImg.Save(Response.OutputStream, GetImageType(strContentType))
    ' 对不同的格式可能会出错,比如Png格式。
    oImg.Save(MemStream, GetImageType(strContentType))
    MemStream.WriteTo(Response.OutputStream)
  End Sub
End Class

在ASP.NET里轻松实现缩略图

以前,在页面上实现缩略图必须借助第三方组件。现在,有了.NET,就可以很轻松地实现缩略图。下面就是实现缩略图的例子。查看例子代码如下:Thumbnail.aspx...
  • lijian910wolf
  • lijian910wolf
  • 2007年03月20日 16:38
  • 641

在ASP.NET里轻松实现缩略图

在ASP.NET里轻松实现缩略图http://lucky_elove.www1.dotnetplayground.com/以前,在页面上实现缩略图必须借助第三方组件。现在,有了.NET,就可以很轻...
  • hejishan
  • hejishan
  • 2008年03月11日 12:17
  • 214

asp.net显示高清缩略图

来源于http://blog.csdn.net/yanghua_kobe/article/details/4733223 如题:   添加命名空间如下: using...
  • F7ANTY
  • F7ANTY
  • 2015年01月22日 21:21
  • 422

asp.net 保存图片 生成缩略图

利用C#.Net的FileUpload或者HtmlInputFile控件上传文件,首先保存上传文件,然后生产缩略图文件并保存 1、验证并生成文件名 string strSi...
  • yzy85
  • yzy85
  • 2017年03月30日 17:10
  • 390

[转]Asp.net真正生成高质量不变形缩略图片

[转]Asp.net真正生成高质量不变形缩略图片 http://www.cnblogs.com/leeolevis/archive/2009/02/03/1383132.html   上传缩略图...
  • keenweiwei
  • keenweiwei
  • 2012年03月27日 09:17
  • 1132

【C#】获取任意文件的缩略图

1.添加类WindowsThumbnailProvider[Flags] public enum ThumbnailOptions { None = 0x00, ...
  • catshitone
  • catshitone
  • 2017年09月20日 16:47
  • 615

.Net 下获得清晰的缩略图

 最近碰到这样一个需求:把图片保存到数据库中,然后作为上传人的头像之类的。本着程序员的优良“惰性”Google了一把,找到了一大把一大把代码,试了很多号称能得到清晰缩略图的,结果就不用说了。最终在一开...
  • hejianhuacn
  • hejianhuacn
  • 2007年05月30日 15:47
  • 1066

.net mvc中上传图片生成缩略图

#region CreateThumbnail //HttpPostedFileBase在webform里改成HttpPostedFile           private string Crea...
  • pukuimin1226
  • pukuimin1226
  • 2013年08月22日 09:28
  • 4135

利用微软自带aspnet_regiis.exe工具加密web.config文件

1.首先找到aspnet_regiis.exe工具的目录(一般在C:\Windows\Microsoft.NET\Framework\v2.0.50727),也可以搜索一下 这是加密前的配置文件co...
  • hi_dzj
  • hi_dzj
  • 2011年12月07日 19:30
  • 1202

asp.net中使用Uploadify插件实现多张图片上传,上传后可显示缩略图、删除图片

一、准备工具: 1.jquery,我使用的是jquery-1.11.3.min.js 2.uploadify插件,到Uploadify官网下载即可,解压后发现有几个php文件,这是官方使用php语...
  • c_yang13
  • c_yang13
  • 2015年06月30日 21:21
  • 2561
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在ASP.NET里轻松实现缩略图
举报原因:
原因补充:

(最多只允许输入30个字)