★→ASP程序学习群:62655404 微信公众号开发
订阅本栏目 RSS您所在的位置: 深山工作室 > ASP学习 > 正文

asp遍历站点所有文件夹的代码

网络 2009/4/25 11:44:17 深山行者 字体:  浏览 9416 我要评论
当前标签
FSO遍历文件夹

<!-- 遍历站点所有文件夹 -->
<style>
<!--
body{font-size:12px;}
-->
</style>
<script language="vbscript">
<!--
sub fsubmit()
form1.submit
End sub
-->
</script>
<form name="form1" method="post" action="">
<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>"
exitname=fso.GetExtensionName(objfile.name)
response.Write exitname & "<br>"
next
set objfolder=nothing
End if
%>

相关阅读
( 2019/5/2 21:47:46 )ASP利用fso读取文件夹里所有文件的名字
( 2019/4/16 14:29:04 )asp导出内容到excel表并自定义命名后下载(非打开)
( 2018/3/16 17:00:02 )利用aspJpeg组件生成多图片水印组合时给加上透明水印图片
( 2015/10/16 19:52:57 )httpd.ini中的RewriteRule、RewriteCond规则了解以有二级域名解析实例
( 2014/9/6 15:48:21 )Dreamweaver在onLoad运行_onOpen.htm时,发生了以下javascript错误
( 2014/9/3 20:34:49 )asp利用fso中的二进制数据流方式读取任意文件,并且在网页上下载保存文件
( 2014/8/25 7:48:01 )asp模拟动态加载include file
( 2014/8/22 21:33:18 )asp防止access数据库被下载破解
共有0条关于《asp遍历站点所有文件夹的代码》的评论
发表评论
正在加载评论……
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
深山工作室网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
rss学习
个人空间
网站设计
网站公告
下载
photoshop学习
ASP学习
DIV+CSS学习
SEO搜索引擎忧化
java学习
HTML学习
网站信息
网站类信息
更多>>同类信息
ASP利用fso读取文件夹里所有文件的名字
asp实现获得当前文章的上一篇信息与下一篇信息功能及代码
asp导出内容到excel表并自定义命名后下载(非打开)
'禁止站外提交页面和数据
asp将中文汉字字符转为unicode编码(\u编码)与把unicode编码转为汉字
asp中qequest读取优先级顺序(通过优化之后提高速度)
asp计算页面执行时间显示到毫秒
批量删除access字段里面fld.Properties.Delete
更多>>最新添加文章
sql server中前缀为PK、UK、DF、CK、FK表的意思
网站从http改成https(ssl证书)后设置301跳转将http跳转到https的方法
ASP利用fso读取文件夹里所有文件的名字
jquery动态生成的html代码中无法使用jquery事件的解决方法
asp实现获得当前文章的上一篇信息与下一篇信息功能及代码
asp导出内容到excel表并自定义命名后下载(非打开)
'禁止站外提交页面和数据
asp将中文汉字字符转为unicode编码(\u编码)与把unicode编码转为汉字
更多>>随机抽取信息
非常酷的时钟,图片制作精美,还有日期显示
提交按钮在自定时间内灰色不可用
UL与LI 标签详解
用户注册时的密码强度提示
div默认高度根据内容自动适应高度
javascript实现图片预览功能
在DIV+CSS里面IE5.5的专用标签
购物网上图片放大效果