Limiting the Upload Size

Limiting the Upload Size

--------------------------------------------------------------------------------

Description : SA-FileUp's MaxBytes property allows you to limit the size of files uploaded to your server. If MaxBytes is set, SA-FileUp will stop writing to the hard disk when the value of MaxBytes is reached. For example, if MaxBytes = 1000, only 1000KB of a 100,000KB file will be written to the server hard disk. Set MaxBytes once and it will apply to all files in the current upload, limiting each of them to the value that you specify.

Using MaxBytes, you can prevent malicious users from filling your web server's hard disk.

<html>
<head>
<title>Limit File Size</title>
</head>
<body>
Thank you For uploading your file.

<% Set upl = Server.CreateObject(SoftArtisans.FileUp) %>
<% upl.MaxBytes = 1000 '--- limit the upload size to 1000 bytes %>
The maximum file size that you are permitted To upload Is <%=upl.MaxBytes%> bytes.

<% upl.SaveAs C: empupload.out %>
Total Bytes Written: <%=upl.TotalBytes%>

Server File Name: <%=upl.ServerName%>

Total Bytes Transmitted: <%=Request.TotalBytes%>
</body>
</html>

Restricting File Types
Use SA-FileUp's ContentType property and a Select condition to save only files of a specific type.

<html>
<head>
<title>Limit File Type</title>
</head>
<body>
<% Set upl = Server.CreateObject("SoftArtisans.FileUp")

'--- Parse out the file name
FName = Mid(upl.UserFilename, InStrRev(upl.UserFilename, ) + 1)

'--- Retrieve the file's content type and assign it to a variable
FCONT = upl.ContentType

'--- Restrict the file types saved using a Select condition
Select Case LCase(FCONT)
Case "image/gif"
upl.Save
Response.Write <P> & FName & has been saved.

Case image/pjpeg
upl.Save
Response.Write <P> & FName & has been saved.

Case Else
upl.delete
Response.Write <P> & You may only upload gif And jpeg files.<BR>
Response.End
End Select

%>
</body>
</html>