<%@ 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 = 193 ' max width for thumbnails
const Ly = 138 ' max height for thumbnails
const Px = 100 ' max width for tinythumbnails
const Py = 75 ' max height for tinythumbnails
const upload_dir = "article_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_tinythumb = "tiny" ' filename to save tiny thumbnail as (suffix added by script)
const dirname = "c:/Inetpub/wwwroot/site/"
const upload_max_size = 300 ' 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 fileNm ' used to store filename
dim newWidth, newHeight as integer ' new width/height for the thumbnail
dim tnewWidth, tnewHeight as integer ' new width/height for the tiny 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 ?
Dim i As Integer
</script>
<%

randomize() ' used to help the cache-busting on the preview images
upload_ok = false

if lcase(Request.ServerVariables("REQUEST_METHOD"))="post" then
For i = 0 To Request.Files.Count - 1
fileFld = request.files(i)
' fileFld = request.files(0) ' get the first file uploaded from the form (note:- you can use this to itterate through more than one image)

'Start iteration
'Do Until iCount = fileFld.Count
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
tnewHeight = Py
newWidth = originalImg.Width * (Ly / L2)
tnewWidth = originalImg.Width * (Py / L2)
if newWidth > Lx then
newHeight = newHeight * (Lx / newWidth)
newWidth = Lx
end if
if tnewWidth > Px then
tnewHeight = tnewHeight * (Px / tnewWidth)
tnewWidth = Px
end if
End If

Dim thumb As New Bitmap(newWidth, newHeight)
Dim tinythumb As New Bitmap(tnewWidth, tnewHeight)
'Create a graphics object
Dim gr_dest As Graphics = Graphics.FromImage(thumb)
Dim gr_Tdest As Graphics = Graphics.FromImage(tinythumb)

' 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)
gr_Tdest.FillRectangle(sb, 0, 0, tinythumb.Width, tinythumb.Height)

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

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

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

'iCount += 1 'End iteration
'Loop 'End iteration
Next
end if
%>