Needs Help With Restricting Image Sizes

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

I am using ASPUpload (http://www.aspjpeg.com/manual_03.html)

My code below works fine. But I would like to add two restrictions: 1.) Not allowing users to upload an image that is larger than 50 KB in size. 2.) Not allowing users to upload image file names that have spaces between file names (ex: house 001.jpg). The file names need to be house001.jpg. Can someone please help me to add those conditions to the code below? 

<%
' Create an instance of AspUpload object
Set Upload = Server.CreateObject("Persits.Upload")
' Compute path to save uploaded files to
Path = "d:\inetpub\wwwroot\"

' Capture uploaded file. Return the number of files uploaded
Count = Upload.Save(Path)

If Count = 0 Then
  Response.Write "No images selected."
  Response.End
Else
  ' Obtain File object representing uploaded file
  Set File = Upload.Files(1)

  ' Is this a valid image file?
  If File.ImageType <> "UNKNOWN" Then

    ' Create instance of AspJpeg object
    Set jpeg = Server.CreateObject("Persits.Jpeg")

    ' Open uploaded file
    jpeg.Open( File.Path )

    ' Resize image according to "scale" option.
    ' We cannot use Request.Form, so we use Upload.Form instead.

jpeg.Width = 160
jpeg.Height = 120

    SavePath = Path & "\small_" & File.ExtractFileName

    ' AspJpeg always generates thumbnails in JPEG format.
    ' If the original file was not a JPEG, append .JPG ext.
    If UCase(Right(SavePath, 3)) <> "JPG" Then
      SavePath = SavePath & ".jpg"
    End If