Filesystemobject| servers can actually do this
Left frame:
Use FileSystemObject function List all folder on server;
Use DHTML or TreeView display them
OnClick Call Display.asp?foldername
The code is as this:
================================
<%@ LANGUAGE = VBScript%>
<style type= "Text/css" >
/* Outline Style Sheet * *
Ul{cursor:hand;
Color:navy;
Font-family:arial}
UL ul {display:none;
MARGIN-LEFT:20PT}
</style>
<link rel= "stylesheet" type= "Text/css" href= "Css/mycss.css" >
<script language= "JavaScript" >
<!--
function MouseMove ()
{
var srcelement;
Srcelement=window.event.srcelement;
if ("A" = = Srcelement.tagname)
{
Srcelement.classname = "Coolstyle";
}
}
function Mouseout ()
{
var srcelement;
Srcelement=window.event.srcelement;
if ("A" = = Srcelement.tagname)
{
Srcelement.classname = "Normalstyle";
}
}
-->
</script>
<script language= "JavaScript" >
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 a 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<el.children.length; 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";