Dynamic File Archive System

Click here to test this system.

Code:

Save as Default.asp

<%option explicit%>

</head>
<body bgcolor=#ffffff>

<%
dim fso, fsofiles, fsofolder, i, folder, file, FolderArray
set fso = server.createobject("Scripting.FileSystemObject")

set fsofolder = fso.getfolder(Server.MapPath("."))

redim folderArray (fsofolder.subfolders.count - 1)
i = 0
for each folder in fsofolder.subfolders
	folderArray(i) = folder.name
	i = i + 1
next

set fsofolder = nothing
%>

<%if request.querystring("NoSelect") = "True" then%>
	<font color=#ff0000><b>Please select a file.</b></font><p>
<%end if%>

<table cellpadding=3 cellspacing=3 border=0>
<tr>
<td></td>
<td class=font valign=middle><b>Directory:</b></td>
<td colspan=3 class=font valign=middle><b>Files:</b></td>
</tr>

<%
for i = 0 to ubound(folderArray)
%>

<%
	set fsofolder = fso.getfolder(server.MapPath(".") & "/" & (FolderArray(i)))
	set fsofiles = fsofolder.files
	%>

<tr>
		<td><form method=post action="ShowFile.asp"><input type=hidden value="<%=FolderArray(i)%>" name=folder></td>
		<td valign=top class=font><b><%=FolderArray(i)%>: </b></td>
		<td valign=top><select id=select1 name=FileName>
		<option value="">--Select a File--></option>
		<%for each file in fsofiles%>
				<option value="<%=file.name%>"><%=file.name%></option>
		<%next%>
		</select><br>
		<font size=1 face="arial,helvetica">
		<a href="ShowFile.asp?ListFiles=True&Folder=<%=server.URLencode(FolderArray(i))%>">List all in <b><%=FolderArray(i)%></b> Folder</a>
		</font></td>
		<td valign=top><INPUT type="submit" value="View File"></td>
		<td></form></td>
		</tr>

<%
	set fsofolder = nothing
	set fsofiles = nothing
	%>

<%
next
set fso = nothing
%>

</table>

</body>
</html>

Save as ShowFile.asp

Highlight

<%option explicit%>

</head>
<body bgcolor=#ffffff>

<%if request.querystring("ListFiles") = "True" then%>

<table cellspacing=0 cellpadding=3 border=0>
	<tr>
	<td class=font><b>File Name:</b></td>
	<td class=font><b>Size:</b></td>
	<td class=font><b>Date Created:</b></td>
	<td class=font><b>Last Modified:</b></td>
	</tr>

<%
	dim objFileSystem, objDirectory, file, url, bgcolor

bgcolor = "#E5E5E5"

set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
	set objDirectory = objFileSystem.GetFolder(Server.MapPath(request.querystring("Folder")))
	For each File in objDirectory.Files
		if bgColor="#CCCCCC" then
		   bgcolor="#E5E5E5"
		else
			bgColor="#CCCCCC"
		end if
		url	= MapURL(Server.mapPath(request.querystring("Folder"))) & "/" & Replace(File,objDirectory & "\","")
		response.write "<tr bgcolor=" & bgcolor & ">"
		response.write "<td class=font valign=top bgcolor=" & bgcolor & "><a href=""" & url & """>" & Replace(File, objDirectory & "\","") & "</a>    </td>"
		response.write "<td class=font valign=top bgcolor=" & bgcolor & ">" & File.size & " bytes    </td>"
		response.write "<td class=font valign=top bgcolor=" & bgcolor & ">" & File.DateCreated & " bytes    </td>"
		response.write "<td class=font valign=top bgcolor=" & bgcolor & ">" & File.DateLastModified & " bytes</td>"
		response.write "</tr>"
	Next
	%>

</table>

<%
	function MapURL(path)
	dim rootPath
	dim url

rootPath = Server.MapPath("/")
	url		 = Right(path, Len(path) - Len(rootPath))
	MapURL	 = Replace(url, "\", "/")
	end function
	%>

<%
	set objFileSystem = nothing
	set objDirectory = nothing
	%>
<%else%>
	<%if request.form("FileName") = "" then
		response.redirect "default.asp?NoSelect=True"
	end if%>

<table width=600>
	<tr>
	<td width=50% class=font valign=middle nowrap><b>File Name:</b><br><%=request.form("FileName")%></td>
	<td width=50% valign=top align=right class=font nowrap><a href="ShowFile.asp?ListFiles=True&Folder=<%=server.URLencode(request.form("Folder"))%>">List all in <b><%=request.form("Folder")%></b> Folder</a> | <a href="javascript:history.back()">Go Back</a></td>
	</tr>
	</table>

<p>
	<%if instr(1,request.form("FileName"),".gif") or instr(1,request.form("FileName"),".jpg") or instr(1,request.form("FileName"),".jpeg") then%>
		<img src=<%=request.form("Folder") & "/" & request.form("FileName")%>>
	<%else%>
		<script language="JavaScript">
		function openWin(url,windowName,options){
			var WindowHandle=window.open(url,windowName,options);
			WindowHandle.focus();
		}
		openWin('<%=request.form("Folder") & "/" & request.form("FileName")%>','','toolbar=no,location=no,directories=no,status=no,menubar=yes,scrollbars=yes,resizable=yes,width=640,height=480');
		</script>
	<%end if%>
<%end if%>

</body>
</html>