asp遍历站点所有文件夹的代码
2007-06-14 00:00
351 查看
<!-- 遍历站点所有文件夹 -->
<style>
<!--
body{font-size:12px;}
-->
</style>
<script language="vbscript">
<!--
sub fsubmit()
form1.submit
End sub
-->
</script>
<form name="form1" method="post" action="findfolder.asp">
<select size="1" name="fpath" onchange="fsubmit()">
<option value="0" selected>--请选择--</option>
<option value="/">整个站点</option>
<option value=".">当前目录</option>
<%
Dim fso,objfolder,objfile,strpath
set fso=server.createobject("Scripting.FileSystemObject")
strpath="."
call bl(strpath)
function bl(strpath)
set objfolder=fso.getfolder(server.mappath(strpath))
for each objsubfolder in objfolder.subfolders
Response.write "<option value='" & strpath & "\" & objsubfolder.name & "'>" & replace(strpath,".","") & "\" & objsubfolder.name & "</option>"
call bl(strpath & "\" & objsubfolder.name)
next
End function
%>
</select>
</form>
<%
fpath=Request.form("fpath")
if fpath<>"0" and fpath<>Empty then
Response.write "<font color=""#FF0000"">当前文件夹:" & replace(fpath,".","") & "</font><br><br>"
set objfolder=fso.getfolder(server.mappath(fpath))
for each objsubfolder in objfolder.subfolders
Response.write "子文件夹名称:" & objsubfolder.name & "<br>"
next
Response.write "<br>"
for each objfile in objfolder.files
Response.write "文件名称:" & objfile.name & "<br>"
next
set objfolder=nothing
End if
%>
<style>
<!--
body{font-size:12px;}
-->
</style>
<script language="vbscript">
<!--
sub fsubmit()
form1.submit
End sub
-->
</script>
<form name="form1" method="post" action="findfolder.asp">
<select size="1" name="fpath" onchange="fsubmit()">
<option value="0" selected>--请选择--</option>
<option value="/">整个站点</option>
<option value=".">当前目录</option>
<%
Dim fso,objfolder,objfile,strpath
set fso=server.createobject("Scripting.FileSystemObject")
strpath="."
call bl(strpath)
function bl(strpath)
set objfolder=fso.getfolder(server.mappath(strpath))
for each objsubfolder in objfolder.subfolders
Response.write "<option value='" & strpath & "\" & objsubfolder.name & "'>" & replace(strpath,".","") & "\" & objsubfolder.name & "</option>"
call bl(strpath & "\" & objsubfolder.name)
next
End function
%>
</select>
</form>
<%
fpath=Request.form("fpath")
if fpath<>"0" and fpath<>Empty then
Response.write "<font color=""#FF0000"">当前文件夹:" & replace(fpath,".","") & "</font><br><br>"
set objfolder=fso.getfolder(server.mappath(fpath))
for each objsubfolder in objfolder.subfolders
Response.write "子文件夹名称:" & objsubfolder.name & "<br>"
next
Response.write "<br>"
for each objfile in objfolder.files
Response.write "文件名称:" & objfile.name & "<br>"
next
set objfolder=nothing
End if
%>
相关文章推荐
- asp遍历站点所有文件夹的代码
- asp遍历站点所有文件夹的代码
- asp遍历站点所有文件夹的代码
- Asp.net FileUpload上传文件夹并检测所有子文件的实现代码
- asp.net遍历文件夹下所有子文件夹并绑定到gridview上的方法
- asp.net遍历目录文件夹和子目录所有文件
- asp.net遍历目录文件夹和子目录所有文件
- php遍历某个文件夹以及遍历里面的所有文件夹代码实现
- asp.net 遍历文件夹(含子文件夹)所有文件
- ASP.NET遍历文件夹及子文件夹下所有图片信息,生成图片URL并放到HTML文件中
- php遍历文件夹所有文件子文件夹函数代码
- Python与C++ 遍历文件夹下的所有图片实现代码
- PHP遍历某个目录下的所有文件和子文件夹的实现代码
- asp.net 遍历文件夹(含子文件夹)所有文件
- Android 遍历文件夹中所有文件的实例代码
- ASP.NET遍历文件夹及子文件夹下所有图片信息,生成图片URL并放到HTML文件中
- C#遍历整个文件夹及子目录的文件代码,.Net技术文章,Asp.net系列教程,Asp.n...
- asp.net遍历文件夹下所有子文件夹并绑定到gridview上的方法