ASP實現結構化列舉並查看某路徑下所有檔案

來源:互聯網
上載者:User
 

<!網頁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"
   else
      itm.innerText="0"
   end if
   set itm=document.all("itmjj" & index)
   if not itm is nothing then
        if itm.innerText="+" then
         itm.innerText="-"
      else
         itm.innerText="+"
      end if
   end if
end sub

-->
</Script>


<%
'------ASP程式段--------------------------------------
set Fso=Server.CreateObject("Scripting.FileSystemObject")   '伺服器須支援FSO

   dim path,mappath
   if request("path")="" then
      path="" '須先設定好想要查看的檔案夾的名稱,即path=路徑名稱,例如要查看 http://websamba.com/hzhzhz/ 時,設定path="hzhzhz"
   else
      path=request("path")    '可以如此設定:<a href="dirpath.asp?path=hzhzhz">..
   end if
   mappath=Server.MapPath("/" & path)

if Fso.folderexists(mappath)=false then
   response.write "路徑:http://" & Request.ServerVariables("HTTP_HOST") & "/" & path & "不存在!"
   response.end
end if

dim Tf
tf=0
Sub DirThisFolder(Fo,strHead)    '遞迴過程,程式作者: 同濟黃正 http://websamba.com/hzhzhz/
   if not fso.FolderExists(Fo) then exit sub
   dim foN,fiN,Tt
   Set Folde = Fso.GetFolder(Fo)
   foN=Folde.SubFolders.count
   fiN=Folde.files.count
  
   Tt="<u lab=""包含" & foN & "個子檔案夾," & fiN & "個子檔案"" onclick=Dofold(" & tf & ")>"
   if foN then Tt=tt & "<q id=itmjj" & tf & ">+</q>"
   tt=tt & "<font face=Wingdings>0</font>"    '類似表徵圖的字元
   if len(strHead) then
      if fiN>0 then
         Response.Write left(strHead,len(strHead)-1) & "├" & Tt & Folde.name & "</u><br>"
      else
         Response.Write left(strHead,len(strHead)-1) & "├" & Tt & Folde.name & "</u><br>"
      end if
   else
      Response.Write "" & Tt & Folde.path & "</u><br>"
   end if
  
  
   Response.Write "<span id=divfold" & tf & " style=""display:none"">"
   tf=tf +1
   If foN  Then
      i=0
         For Each Fol In Folde.SubFolders
            isLastFol=(i=foN-1)
            if fiN > 0 then
  



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。