Upload billede og lave en kopi som thumbnail
Nogle der kan hjælpe med at tilføje en funktion så mit uploadscript laver en kopi af billedet jeg uploader som thumbnail?Jeg har følgende kode:
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
On Error Resume Next
Upload.SetMaxSize 10048576 ' Limit files to 1MB
Count = Upload.Save(Server.MapPath("/myimages"))
%>
<% If Err <> 0 Then %>
<H3>The following error occured while uploading:</h3>
</FONT>
<h2>"<% = Err.Description %>"</h2>
</FONT>
<FONT SIZE=2 FACE="Arial" COLOR="#0020A0">
Please <A HREF="aspupload.asp">try again</A>.
</FONT>
<% Else %>
<h2>Success! <% = Count %> file(s) have been uploaded.</h2>
</FONT>
<% For Each File in Upload.Filesfilename = File.FileName %>
<% = File.OriginalPath %></B></TD>
<% =File.Size %> bytes</TD>
<% =File.OriginalSize %> bytes</TD><TR>
%>
