<p>能不能用filesystemobject编写一个服务</p>
<p>其实可以这样<br />
left frame:<br />
use filesystemobject function list all folder on server;<br />
use DHTML or treeview display them<br />
onclick call display.asp?foldername<br />
the code is like this:<br />
================================<br />
<%@ LANGUAGE = VBScript %><br />
<html></p>
<p><head><br />
<style TYPE="text/css"><br />
/* Outline Style Sheet */<br />
UL{cursor: hand; <br />
color: navy;<br />
font-family: Arial}<br />
UL UL {display: none; <br />
margin-left: 20pt}<br />
</style><br />
<link REL="stylesheet" TYPE="text/css" HREF="css/myCSS.CSS"><br />
<script LANGUAGE="javascript"><br />
<!--<br />
function mousemove()<br />
{<br />
var srcElement;<br />
srcElement=window.event.srcElement;<br />
if ("A" == srcElement.tagName)<br />
{<br />
srcElement.className = "coolstyle";<br />
}<br />
}</p>
<p> function mouseout()<br />
{<br />
var srcElement;<br />
srcElement=window.event.srcElement;<br />
if ("A" == srcElement.tagName)<br />
{<br />
srcElement.className = "normalstyle";<br />
}<br />
}</p>
<p>//--><br />
</script><br />
<script LANGUAGE="JavaScript"><br />
function checkParent(src, dest) {<br />
// Search for a specific parent of the current element<br />
while (src!=null) {<br />
if (src.tagName == dest) return src;<br />
src = src.parentElement;<br />
}<br />
return null;<br />
}<br />
function outline() { <br />
// Expand or collapse if a list item is clicked.<br />
var open = event.srcElement;<br />
// Make sure clicked inside an LI. This test allows rich HTML inside lists.<br />
var el = checkParent(open, "LI");<br />
if (null!=el) {<br />
var pos = 0;<br />
// Search for a nested list<br />
for (var pos=0; pos<el.children.length; pos++) {<br />
if ("UL"==el.children[pos].tagName) break;<br />
}<br />
if (pos==el.children.length) return;<br />
} else return;<br />
el = el.children[pos];<br />
if ("UL"==el.tagName) {<br />
// Expand or Collapse nested list<br />
if (""==el.style.display) {<br />
el.style.display = "block";</p>