<%@ LANGUAGE="VBScript" %>
<% '***************************************************************************
'* ASP Directory Listing *
'* *
'* Do not remove this notice. *
'* *
'* Copyright 1999, 2000 by Mike Hall. *
'* Please see http://www.brainjar.com for documentation and terms of use. *
'***************************************************************************
preProjectName = Request.ServerVariables("URL")
preProjectName = Replace(preProjectName, "/index.asp", "")
ProjectName = Right(preProjectName, Len(preProjectName)-1)
%>
<% Response.Write(ProjectName)%>
<% Response.Write(ProjectName)%> Files
<% ListFolderContents(Server.MapPath("/" & ProjectName)) %>
<% sub ListFolderContents(path)
dim fs, folder, file, item, url
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)
'Display the target folder and info.
Response.Write("" & folder.Name & " - " _
& folder.Files.Count-1 & " files, ")
if folder.SubFolders.Count > 0 then
Response.Write(folder.SubFolders.Count & " directories, ")
end if
Response.Write(Round(folder.Size/1048576,2) & " MB total." _
& vbCrLf)
Response.Write("" & vbCrLf)
'Display a list of sub folders.
for each item in folder.SubFolders
ListFolderContents(item.Path)
next
'Display a list of files.
for each item in folder.Files
url = MapURL(item.path)
excludeFile = "/" & ProjectName & "/index.asp"
If url <> excludeFile Then
Response.Write("- " & item.Name & " - " _
& Round(item.Size/1048576,2) & " MB, " _
& "last modified on " & item.DateLastModified & "." _
& "
" & vbCrLf)
End If
next
Response.Write("
" & vbCrLf)
Response.Write("" & vbCrLf)
end sub
function MapURL(path)
dim rootPath, url
'Convert a physical file path to a URL for hypertext links.
rootPath = Server.MapPath("/")
url = Right(path, Len(path) - Len(rootPath))
MapURL = Replace(url, "\", "/")
end function
%>