<%@ LANGUAGE = VBScript %>
<%Server.ScriptTimeout=5000%>
/* Outline Style Sheet */
UL UL {display: none;
margin-left: 20pt}
function checkParent(src, dest) {
// Search for a specific parent of the current element
while (src!=null) {
if (src.tagName == dest) return src;
src = src.parentElement;
}
return null;
}
function outline() {
// Expand or collapse if a list item is clicked.
var open = event.srcElement;
// Make sure clicked inside an LI. This test allows rich HTML inside lists.
var el = checkParent(open, "LI");
if (null!=el) {
var pos = 0;
// Search for a nested list
for (var pos=0; pos if ("UL"==el.children[pos].tagName) break; } if (pos==el.children.length) return; } else return; el = el.children[pos]; if ("UL"==el.tagName) { // Expand or Collapse nested list if (""==el.style.display) { el.style.display = "block"; el.style.listStyleImage = "url(images/folder.gif)"; el.parentElement.style.listStyleImage = "url(images/ofolder.gif)"; } else { el.style.display = ""; el.parentElement.style.listStyleImage = "url(images/folder.gif)"; } } event.cancelBubble = true; } document.onclick = outline;
Dim fs, folderpara, folderArray
Set fs = CreateObject("Scripting.FileSystemObject")
if not isempty(request("txtRelative")) then
folderpara=server.mappath(request("txtRelative"))
else
folderpara=request("txtAbsolute")
end if
Response.write "
- "
- " & folderpara & " "
Response.write "
Call ShowFolderList(folderpara)
Response.write "
set fs = Nothing
Sub ShowFolderList(folderspec)
Dim f, f1, fc, s,fs
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.SubFolders
Set fs=f.Files
'if (not (fc.count = 0)) then
Response.write "
- "
- "
Response.write ""
Response.write s & "
"
- "
Response.write ""
if instr(s,"product")>0 then
Response.write replace(s,"product","product")
else
if instr(s,"prod")>0 then
Response.write replace(s,"prod","prod")
else
Response.write s
end if
end if
Response.write "
"
For Each f1 in fc
s = f1.name
If (not ((left (s, 1)) = "_")) then
Response.write "
Response.write ""
Call ShowFolderList((folderspec & "/" & s))
end if
Next
For Each f1 in fs
s = f1.name
If (not ((left (s, 1)) = "_")) then
Response.write "
Response.write ""
end if
Next
Response.write "
'end if
end sub

