- <!-- 遍历站点所有文件夹 -->
- <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遍历站点所有文件夹的代码
延伸 · 阅读
- 2019-10-14ASP对网页进行保护的简单代码 ip
- 2019-10-14非常不错的ASP+Access数据库的终极安全大法18则
- 2019-10-14万能Asp防注入代码 拒绝攻击
- 2019-10-14用asp实现把文件打包成Xml文件包,带解包的ASP工
- 2019-10-14asp字符串加密解密函数
- 2019-10-14asp adodb.stream对象的方法/属性
精彩推荐
- ASP教程
asp下利用XMLHTTP 从其他页面获取数据的代码
我们在编写ASP代码的时候,大家都知道可以通过post或者get获得form表单的数据,那么我们如何直接获得其他页面上的数据呢?这就要借助xmlhttp协议了。xml...
- ASP教程
asp中日期时间函数介绍
这篇文章主要介绍了asp中的日期时间函数,本文提供vbscript时间函数的概要介绍,可应对一般应用,具体特殊需求可进一步搜索...
- ASP教程
ASP常用源代码的总结(上)
本文介绍的是一些ASP程序设计中经常用到的源代码。适合初学者阅读。希望对你有帮助,一起来看吧!...
- ASP教程
asp 取得用户真实IP,对代理地址仍然有效的函数
asp 取得用户真实IP,对代理地址仍然有效的函数 ...
- ASP教程
asp下sql和access数据库随机取10条记录的代码newid()
利于搜索从表中随机取几条不重复记录,一般都是10条,我就用了40条,大约的代码就是下面的了 ...
- ASP教程
ASP中Null,Empty,Nothing的区别分析
本文介绍在ASP中,NULL,Empty,Nothing这几种空值的来源和判断方法。希望对大家有所帮助。...
- ASP教程
ASP MSSQL存储过程的实现小例
很多朋友学ASP以后,就只会简单的SELECT、UPDATE、DELETE几个基本命令。这样在读取或者存入数据的时候,大大降低的系统运行的速度。...
- ASP教程
asp、html、js 禁止缓存的代码
本文给大家分享的是在asp、html、js中强制不缓存的方法,十分的简单实用,有需要的小伙伴可以参考下。...