分享
 
 
 

ASP实现结构化列举并查看某路径下所有文件

王朝asp·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

<!网页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

DirThisFolder Fol.Path,strHead & "│" '递归子文件夹

else

DirThisFolder Fol.Path,strHead & "└"

end if

i=i+1

Next

End If

If fiN > 0 Then

i=0

For Each Fi In Folde.files

'For i=0 to fiN-1

if i=fiN-1 then

Response.Write strHead & "└"

else

Response.Write strHead & "├"

end if

Response.Write "<a lab=""" & fi.size & "B " & fi.DateLastModified & """ href=""http://" & Request.ServerVariables("HTTP_HOST") & "/" & path & replace(fi.path,mappath,"",1) & """><font face=Wingdings>m</font>" & fso.GetFileName(fi.name) & "</a><br>"

i=i+1

Next

End If

Response.Write "</span>"

End Sub

DirThisFolder mappath,""

%>

<Script language=VBScript>

<!--

DoFold 0

-->

</Script>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有