modificare upload trovato in rete

[Kai Hansen]

Ciao,

qualcuno può aiutarmi nell'impresa in oggetto????

Posto il codice:

<%@ Page Trace="False" Language="vb" aspcompat="false" debug="true" validateRequest="false"%> 
<%@ Import Namespace=System.Drawing %>
<%@ Import Namespace=System.Drawing.Imaging %>
<%@ Import Namespace=System %>
<%@ Import Namespace=System.Web %>
<SCRIPT LANGUAGE="VBScript" runat="server">
const Lx = 200    ' max width for thumbnails
const Ly = 200    ' max height for thumbnails
const upload_dir = "/images/"    ' directory to upload file
const upload_original = "sample" ' filename to save original as (suffix added by script)
const upload_thumb = "thumb" ' filename to save thumbnail as (suffix added by script)
const upload_max_size = 1024 ' max size of the upload (KB) note: this doesn't override any server upload limits
dim fileExt    ' used to store the file extension (saves finding it mulitple times)
dim newWidth, newHeight as integer ' new width/height for the thumbnail
dim l2    ' temp variable used when calculating new size
dim fileFld as HTTPPostedFile    ' used to grab the file upload from the form
Dim originalimg As System.Drawing.Image    ' used to hold the original image
dim msg    ' display results
dim upload_ok as boolean    ' did the upload work ?
</script>
<%
randomize() ' used to help the cache-busting on the preview images
upload_ok = false
if lcase(Request.ServerVariables("REQUEST_METHOD"))="post" then


    fileFld = request.files(0)    ' get the first file uploaded from the form (note:- you can use this to itterate through more than one image)
    if fileFld.ContentLength > upload_max_size * 1024 then
        msg = "Sorry, the image must be less than " & upload_max_size & "Kb"
    else
        try
            originalImg = System.Drawing.Image.FromStream(fileFld.InputStream)
            ' work out the width/height for the thumbnail. Preserve aspect ratio and honour max width/height
            ' Note: if the original is smaller than the thumbnail size it will be scaled up
            If (originalImg.Width/Lx) > (originalImg.Width/Ly) Then
                L2 = originalImg.Width
                newWidth = Lx
                newHeight = originalImg.Height * (Lx / L2)
                if newHeight > Ly then
                    newWidth = newWidth * (Ly / newHeight)
                    newHeight = Ly
                end if
            Else
                L2 = originalImg.Height
                newHeight = Ly
                newWidth = originalImg.Width * (Ly / L2)
                if newWidth > Lx then
                    newHeight = newHeight * (Lx / newWidth)
                    newWidth = Lx
                end if
            End If

            Dim thumb As New Bitmap(newWidth, newHeight)

            'Create a graphics object           
            Dim gr_dest As Graphics = Graphics.FromImage(thumb)

            ' just in case it's a transparent GIF force the bg to white 
            dim sb = new SolidBrush(System.Drawing.Color.White)
            gr_dest.FillRectangle(sb, 0, 0, thumb.Width, thumb.Height)

            'Re-draw the image to the specified height and width
            gr_dest.DrawImage(originalImg, 0, 0, thumb.Width, thumb.Height)

            try
                fileExt = System.IO.Path.GetExtension(fileFld.FileName).ToLower()
                 originalImg.save(Server.MapPath(upload_dir & upload_original & fileExt), originalImg.rawformat)
                thumb.save(Server.MapPath(upload_dir & upload_thumb & fileExt), originalImg.rawformat)
                msg = "Uploaded " & fileFld.FileName & " to " & Server.MapPath(upload_dir & upload_original & fileExt)
                upload_ok = true
            catch
                msg = "Sorry, there was a problem saving the image."
            end try
            ' Housekeeping for the generated thumbnail
            if not thumb is nothing then
                thumb.Dispose()
                thumb = nothing
            end if
        catch
            msg = "Sorry, that was not an image we could process."
        end try
    end if

    ' House Keeping !
    if not originalImg is nothing then
        originalImg.Dispose()
        originalImg = nothing
    end if
    

end if
%>
<html>
<head>
<title></title>
</head>
<body>
<form enctype="multipart/form-data" method="post" runat="server">
  <table align="center"class="table">
  <tr>
    <td class="table_header" colspan="2">[b]ASP.NET File Upload and Resize[/b]</td>
  </tr>
  <tr>
    <td colspan="2" class="upload_info">[b]Allowed Types:[/b] GIF, JPG, PNG

        [b]Max size per file:[/b]
        <%=upload_max_size%>      kb.

    </td>
  </tr>

  <tr>
    <td class="table_body" width="20%">[b]Select File:[/b] </td>
    <td class="table_body" width="80%"><input name="upload_file" type="file" id="upload_file" size="30" /></td>
  </tr>
  <tr>
    <td colspan="2" align="center" class="table_footer"><input type="submit" value=" Upload File" />
      
      <input type="reset" name="reset" value=" Reset Form " /> 
      </td>
  </tr>
</table>
</form>
<table class="table" style="border:0px;" align="center">
  <tr>
    <td><div class="copyright"></div></td>
  </tr>
</table>
<%
if upload_ok then
%>
<table>
<tr>
<td valign=top>[img]<%=upload_dir & upload_original & fileExt & [/img]"></td>
<td valign=top>[img]<%=upload_dir & upload_thumb & fileExt & [/img]"></td>
</tr>
</table>
<%
else
    response.write(msg)
end if
%>


</p>
</body>
</html> 

Lo script funziona molto bene...

Cosa vorrei?
Per prima cosa poter uploadare più immagini alla volta, quindi come si legge in una nota:

fileFld = request.files(0) ' get the first file uploaded from the form (note:- you can use this to itterate through more than one image)

Ovviamente creare i thumb per tutte le immagini uppate... si può fare? Come? Purtroppo conosco un po' di ASP ma non ASP.Net, appena provo a modificare qualcosa ottengo errore!!!