以下是遍利D盘目录
<%@ LANGUAGE = VBScript %>
<%Server.ScriptTimeout=5000%>
<%
txtRelative="d:\"
afpath="d:\"%>
<html>
<head>
<style TYPE="text/css">
/* Outline Style Sheet */
UL UL {display: none;
margin-left: 20pt}
a:visited { color: #ffffff; text-decoration: none}
a:link { color: #ffffff; text-decoration: none}
a:hover { color: #FFFF00; text-decoration: none}</style>
<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 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<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";
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;
</script>
set fs = Nothing
Sub ShowFolderList(folderspec)
Dim f, f1, fc, s
Set f = fs.GetFolder(folderspec)
Set fc = f.SubFolders
if (not (fc.count = 0)) then
Response.write "<UL>"
For Each f1 in fc
s = f1.name
If (not ((left (s, 1)) = "_")) then
af1=replace(f1,afpath,"")
'as=replace(s,afpath,"")
Response.write "<li>"
Response.write "<a href='files.asp?sPath=" & af1 & "'>"
Response.write s & "</LI>"
Response.write "</a>"
Call ShowFolderList((folderspec & "/" & s))
end if
Next
Response.write "</UL>"
end if
end sub
</script>
</td>
</tr>
</table>
</div>