<%
dim Path, EditorSource, EditorSourceObject
Path = trim(request("Path"))
EditorSource = trim(request("EditorSource"))
EditorSourceObject = trim(request("EditorSourceObject"))
%>
<%
dim CreateThumb, MaxWidth, MaxHeight, ResizeOption, ThumbName
MaxWidth = trim(request("MaxWidth"))
MaxHeight = trim(request("MaxHeight"))
ResizeOption = trim(request("ResizeOption"))
ThumbName = trim(request("ThumbName"))
if MaxWidth = "" or isNumeric(MaxWidth) = false then MaxWidth = UploadThumbWidth
if MaxHeight = "" or isNumeric(MaxHeight) = false then MaxHeight = UploadThumbHeight
if ResizeOption = "" then ResizeOption = UploadThumbResizeOption
if ThumbName = "" then ThumbName = UploadThumbName
CreateThumb = trim(request("CreateThumb"))
if CreateThumb <> "" then
CreateThumb = true
else
CreateThumb = false
end if
' Upload files
if request("Upload") = "true" then
dim FileUpload, FileUploadCount
Select case lcase(FileManagerUploadComponent)
Case "persists", "aspupload"
Set FileUpload = Server.CreateObject("Persits.Upload")
FileUpload.OverwriteFiles = True
FileUploadCount = FileUpload.Save(EditorRootFolderPath & Path)
For Each File in FileUpload.Files
'Response.Write File.Name & "= " & File.Path & " (" & File.Size &" bytes)
"
' Create thumb
if CreateThumb then Call CreateThumbnail(File.Name)
Next
Case "pureasp"
Set FileUpload = New FileUploader
FileUpload.Upload()
For Each File In FileUpload.Files.Items
' Save the file
File.SaveToDisk EditorRootFolderPath & Path
FileUploadCount = FileUploadCount + 1
'Response.Write "File Name:" & File.FileName & "
"
'Response.Write "File Size:" & File.FileSize & "
"
'Response.Write "File Type:" & File.ContentType & "
"
' Create thumb
if CreateThumb then Call CreateThumbnail(File.FileName)
Next
End Select
Set FileUpload = nothing
' Error Checking
if err.number <> 0 then
response.write "Could not upload files. Please try again
"
err.clear
else
response.write ""
end if
end if
Sub CreateThumbnail(ImageFile)
' Validate it is a jpg image and constrain proportions
if right(lcase(ImageFile),4) = ".jpg" then
dim FileName, Jpeg
' Duplicate image to make thumb
FileName = EditorRootFolderPath & Path & "\" & ImageFile
' Copy file
dim ActionFS
set ActionFS = CreateObject("Scripting.FileSystemObject")
if ActionFS.FileExists(FileName) then ActionFS.CopyFile(FileName), (replace(FileName,".jpg",ThumbName & ".jpg"))
set ActionFS = nothing
FileName = replace(FileName,".jpg",ThumbName & ".jpg")
' Resize jpg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open FileName
' Width > Height
if Jpeg.Width > Jpeg.Height then
if lcase(ResizeOption) = "px" then
Jpeg.Height = CInt(Jpeg.Height/CInt(Jpeg.Width/MaxWidth))
Jpeg.Width = MaxWidth
elseif (ResizeOption) = "percent" then
Jpeg.Height = CInt(Jpeg.Height*(1/(100/MaxWidth)))
Jpeg.Width = CInt(Jpeg.Width*(1/(100/MaxWidth)))
end if
else
' Height > Width
if lcase(ResizeOption) = "px" then
Jpeg.Width = CInt(Jpeg.Width/CInt(Jpeg.Height/MaxHeight))
Jpeg.Height = MaxHeight
elseif (ResizeOption) = "percent" then
Jpeg.Height = CInt(Jpeg.Height*(1/(100/MaxHeight)))
Jpeg.Width = CInt(Jpeg.Width*(1/(100/MaxHeight)))
end if
end if
Jpeg.Save FileName
Set Jpeg = nothing
end if
End Sub
%>