<%
set fs = CreateObject("Scripting.FileSystemObject")
basedir = "documents"
path = Server.MapPath(basedir)
set folder = fs.GetFolder(path)
if folder.SubFolders.Count > 0 then
for each item in folder.SubFolders
ListFolderContents item.Path, item.Name
response.Write("
")
next
end if
'--------------------------------------------------------------------------------------------------------------------------------------------------
sub ListFolderContents(itemPath, itemName)
docPath = itemPath
thisFolder = itemName
set folder = fs.GetFolder(docPath)
if (folder.Files.Count > 0) then
response.Write("" + itemName + "
")
response.Write("Click on a document to view, or right-click and select 'Save Target As...' to save a copy onto your computer")
response.write("")
%>
Document |
Abstract |
<%
for each item in folder.Files
ext = right(item.name,4)
if ShowExtension(ext) then
xItem= Server.MapPath(folderdir + "/downloads/" & basedir & "/" + thisFolder + "/" + item.name)
url = basedir + "/" + thisFolder + "/" + item.name
' i = i + 1
if rowColour = "#FFFFFF" then
rowColour = "#EEEEEE"
else
rowColour = "#FFFFFF"
end if
%>
|
<% = item.name %>
|
<%
on error resume next
s=" "
' response.Write(xItem + ".txt" + "
")
set ts = fs.OpenTextFile(xItem + ".txt", 1) ' for reading'
s = ts.ReadLine
Response.Write(s)
ts.Close
%>
|
<%
end if
next
response.write("
")
else
'response.write("
There are currently no documents available online.
")
end if
end sub
'--------------------------------------------------------------------------------------------------------------------------------------------------
function ShowExtension(ext)
dim ex(16)
ex(0) = ".pdf"
ex(1) = ".doc"
ex(2) = ".xls"
ex(3) = ".wmv"
ex(4) = ".mov"
ex(5) = ".mpg"
ex(6) = "docx"
ex(7) = "xlsx"
ex(8) = ".dll"
ex(9) = ".exe"
ex(10) = ".zip"
ex(11) = ".rar"
ex(12) = ".ppt"
ex(13) = "pptm"
ex(14) = ".msi"
ex(15) = ".xml"
ShowExtension = 0
for i = 0 to UBound(ex)
if ext = ex(i) then ShowExtension = 1
next
end function
%>