<!網頁ASP代碼，可實現結構化列舉並查看某路徑下所有檔案，可用於動態產生網站地圖，具體案例請看我的首頁地圖: http://freehost08.websamba.com/hzhzhz/sitemap.htm>
<!作者: 同濟黃正 http://websamba.com/hzhzhz/ 應用請註明出處>
<style 此樣式表須保留>
<!--
u.{background-color:FEDC76;cursor:hand;}
a{background-color:97EF53;}
font{padding-bottom:0;padding-top:0;margin-bottom:0;margin-top:0;}
-->
</style>
<title>本站檔案地圖</title>
<body>
<span id=shhi style="text-align:right;width:20%;position:absolute;bottom:0">
<a href=# onclick='jscript:if(rightf.style.display=="")rightf.style.display="none";else rightf.style.display="";return false' style=background-color:red>Hide/Show =></a>
</span>
<div id=rightf style="height:100%;width:80%;position:absolute;right:0;top:0">
<iframe align=right name="right" scrolling=auto style="height:100%;width:100%;" src="about:blank"> </iframe>
</div>
<base target="right">
<Script language=VBScript>
<!--
Sub window_onscroll()
rightf.style.pixelTop=document.body.scrollTop
shhi.style.top=document.body.clientHeight+document.body.scrollTop-30
End Sub
sub DoFold(index) '顯示與隱藏某節點的過程
dim itm
set itm=eval("divfold" & index)
if itm.style.display="none" then
itm.style.display=""
else
itm.style.display="none"
end if
set itm = document.all(itm.sourceIndex-2)
if itm.innerText="0" then
itm.innerText="1"
