关于图片处理的问题，各位帮帮忙,愿以百分相送,在线等待

“暂放在客户端的某个目录下”这一步骤好像是多余的吧？ If (File1.PostedFile.FileName.Trim() <> "") Then
            Dim fileName1 As String = File1.PostedFile.FileName
            Dim fileType As String = File1.PostedFile.ContentType
            Dim fileName As String = fileName1.Substring(fileName1.LastIndexOf("\") + 1)            If InStr(fileType.ToUpper, "JPEG") = 0 And InStr(fileType.ToUpper, "GIF") = 0 Then
                Response.Write("<script language='JavaScript'>alert('只能上传 JPEG 和 GIF格式的图像！');</script>")
                Exit Sub
            End If
            Dim image As System.Drawing.Image
            '改变图片的大小
            image = System.Drawing.Image.FromStream(Me.File1.PostedFile.InputStream)            Dim Multiple As Double
            If image.Width > image.Height Then
                Multiple = 300 / image.Width
                image = image.GetThumbnailImage(300, image.Height * Multiple, Nothing, New System.IntPtr(0))
            Else
                Multiple = 300 / image.Height
                image = image.GetThumbnailImage(image.Width * Multiple, 300, Nothing, New System.IntPtr(0))
            End If
            Dim temppath As String = HttpContext.Current.Server.MapPath("../") + "Images\ProductCommend\" + fileName
            '将文件名放入文本框，以便用javascript进行读取
            Name1.Value = fileName
            If InStr(fileType.ToUpper, "JPEG") <> 0 Then
                image.Save(temppath, System.Drawing.Imaging.ImageFormat.Jpeg)
            End If            If InStr(fileType.ToUpper, "GIF") <> 0 Then
                image.Save(temppath, System.Drawing.Imaging.ImageFormat.Gif)
            End If
            image.Dispose()
        End If

解决方案 »

  1.   

    代码如下：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.vbImports System
    Imports System.Web
    Imports System.Drawing
    Imports System.IO
    Imports System.Drawing.ImagingPublic 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 SubEnd Class
      

  2.   

    Web安全机制是不允许你在客户端这么做的
    只能是在服务器端处理