Ciao,
qualcuno può aiutarmi nell'impresa in oggetto????
Posto il codice:
Lo script funziona molto bene...Codice PHP:
<%@ 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>
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!!!
Rispondi quotando
codice di tal fatta è un pezzo che non ne vedo 
Non è che il codice sia brutto, è che codice asp.net stile asp non credevo neanche funzionasse 