- <!-- 遍历站点所有文件夹 -->
- <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遍历站点所有文件夹的代码
2019-10-14 11:24asp代码网 ASP教程
asp遍历站点所有文件夹的代码
延伸 · 阅读
- 2022-04-12下班前几分钟,搞懂这六种 For 循环
- 2022-03-13Python字典遍历的陷阱
- 2022-03-09SQL利用游标遍历日期查询的过程详解
- 2022-03-09Linux删除目录下的文件的10种方法小结
- 2022-03-09PyQt5 QTreeWidget 树形结构递归遍历当前所有节点的
- 2022-03-08易语言非递归算法遍历目录的代码示例
精彩推荐
- ASP教程
ASP GetRef 函数指针试探
近日在学习C++,看到函数指针,由于之前一直搞ASP,所以想ASP里面是否也有这个函数指针的东西,百度了一下,没有太多关于此方面的介绍,于是翻了翻...
- ASP教程
ASP 判断是否有中文的代码
其实我上一篇写的js判断中文才是最好的方法,这个是asp的一种,只要是双字节都是当作中文判断...
- ASP教程
ASP实现文件上传的方法
在基于浏览器/服务器的应用环境中,在浏览器中上传各种类型的文件一直是困扰用户文件管理应用的难题之一。常用的实现方法是利用在RFC1867中引入的一...
- ASP教程
字符批量替换程序asp服务器版
字符批量替换程序asp服务器版,安装方法:直接把replace.asp文件放在任意的支持asp+FSO的环境中 ...
- ASP教程
ASP常用函数:HTMLDecode
ASP常用函数:HTMLDecode ...
- ASP教程
asp读取远程文件并保存到本地代码
asp读取远程文件并保存到本地代码 ...
- ASP教程
asp中一段防SQL注入的通用脚本
asp中一段防SQL注入的通用脚本...
- ASP教程
asp删除mssql数据库中没有记录的图片代码
asp删除没有记录的图片需要文件夹(存放图片的文件夹)中的每个图片和数据库中的所有记录进行比较...