File Manager

<%@ Language=VBScript %>
<%Option Explicit%>

'###############################################
'This shows how to access all files in the html element :
'Set Uploader = New FileUploader
'Uploader.Upload()
'For Each File In FileUploader.Files.Items
'    Response.Write "File Name:" & File.FileName
'    Response.Write "File Size:" & File.FileSize
'    Response.Write "File Type:" & File.ContentType
'Next

'This shows how to access file information about a specific file in the html element :
'Response.Write "File Name:" & FileUploader.Files("file1").FileName
'Response.Write "File Size:" & FileUploader.Files("file1").FileSize
'Response.Write "File Type:" & FileUploader.Files("file1").ContentType
'###############################################

'------------------------------------------------
dim id
Dim strFolder, bolUpload, strMessage
Dim httpref, lngFileSize
Dim strIncludes, strExcludes
'id=request.form("id")
%>
	
<%

' Create the FileUploader
Dim Uploader, File
Set Uploader = New FileUploader

' This starts the upload process
Uploader.Upload()

'******************************************
' Use [FileUploader object].Form to access 
' additional form variables submitted with
' the file upload(s). (used below)
'******************************************

' Check if any files were uploaded
If Uploader.Files.Count = 0 Then
	strMessage = "No file entered."
Else
	' Loop through the uploaded files
	For Each File In Uploader.Files.Items

bolUpload = false

'Response.Write lngMaxSize
		'Response.End

if lngFileSize = 0 then
			bolUpload = true
		else		
			if File.FileSize > lngFileSize then
				bolUpload = false
				strMessage = "File too large"
			else
				bolUpload = true
			end if
		end if

if bolUpload = true then				
		 'Check to see if file extensions are excluded
		 If strExcludes <> "" Then
				If ValidFileExtension(File.FileName, strExcludes) Then
		 strMessage = "It is not allowed to upload a file containing a [." & GetFileExtension(File.FileName) & "] extension"
					bolUpload = false
				End If
			End If
			'Check to see if file extensions are included
			If strIncludes <> "" Then
				If InValidFileExtension(File.FileName, strIncludes) Then
					strMessage = "It is not allowed to upload a file containing a [." & GetFileExtension(File.FileName) & "] extension"
					bolUpload = false
				End If
			End If			
		end if

if bolUpload = true then
			File.SaveToDisk strFolder ' Save the file			
			'strMessage = "File Uploaded: " & File.FileName
			strMessage=File.FileName
			'strMessage = strMessage & "Size: " & File.FileSize & " bytes "
			'strMessage = strMessage & "Type: " & File.ContentType & " "

end if
	
	Next
	
End If

'--------------------------------------------
' ValidFileExtension()
' You give a list of file extensions that are allowed to be uploaded.
' Purpose:  Checks if the file extension is allowed
' Inputs:   strFileName -- the filename
'           strFileExtension -- the fileextensions not allowed
' Returns:  boolean
' Gives False if the file extension is NOT allowed
'--------------------------------------------
Function ValidFileExtension(strFileName, strFileExtensions)

Dim arrExtension
    Dim strFileExtension
    Dim i
    
    strFileExtension = UCase(GetFileExtension(strFileName))
    
    arrExtension = Split(UCase(strFileExtensions), ";")
    
    For i = 0 To UBound(arrExtension)
        
        'Check to see if a "dot" exists
        If Left(arrExtension(i), 1) = "." Then
            arrExtension(i) = Replace(arrExtension(i), ".", vbNullString)
        End If
        
        'Check to see if FileExtension is allowed
        If arrExtension(i) = strFileExtension Then
            ValidFileExtension = True
            Exit Function
        End If
        
    Next
    
    ValidFileExtension = False

End Function

'--------------------------------------------
' InValidFileExtension()
' You give a list of file extensions that are not allowed.
' Purpose:  Checks if the file extension is not allowed
' Inputs:   strFileName -- the filename
'           strFileExtension -- the fileextensions that are allowed
' Returns:  boolean
' Gives False if the file extension is NOT allowed
'--------------------------------------------
Function InValidFileExtension(strFileName, strFileExtensions)

Dim arrExtension
 Dim strFileExtension
 Dim i
 
 strFileExtension = UCase(GetFileExtension(strFileName))
 
 'Response.Write "filename : " & strFileName & " "
 'Response.Write "file extension : " & strFileExtension & " " 
 'Response.Write strFileExtensions & " "
 'Response.End 
 
 arrExtension = Split(UCase(strFileExtensions), ";")
 
 For i = 0 To UBound(arrExtension)
 
 'Check to see if a "dot" exists
 If Left(arrExtension(i), 1) = "." Then
 arrExtension(i) = Replace(arrExtension(i), ".", vbNullString)
 End If
 
 'Check to see if FileExtension is not allowed
 If arrExtension(i) = strFileExtension Then
 InValidFileExtension = False
 Exit Function
 End If
 
 Next
 
 InValidFileExtension = True

End Function

'--------------------------------------------
' GetFileExtension()
' Purpose:  Returns the extension of a filename
' Inputs:   strFileName     -- string containing the filename
'           varContent      -- variant containing the filedata
' Outputs:  a string containing the fileextension
'--------------------------------------------
Function GetFileExtension(strFileName)

GetFileExtension = Mid(strFileName, InStrRev(strFileName, ".") + 1)
 
End Function
'Response.Redirect ("add_filename.asp?msg="&strMessage)
response.write "<meta http-equiv='refresh' content ='0;url=add_file.asp?msg="&strMessage&"'>"
'response.write "window.location.href='add_filename.asp?msg="&strMessage';"
'response.write "aaa"

File Manager

Editing: sar/pdf54/up_file.asp