400-1100-266

9:00-24:00（工作日）
主页 > 知识库 > asp遍历站点所有文件夹的代码

asp遍历站点所有文件夹的代码
热门标签：科大讯飞语音识别系统 团购网站 服务器配置 银行业务 阿里云 电子围栏 Mysql连接数设置 Linux服务器
!-- 遍历站点所有文件夹 -->  
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  
%> 
您可能感兴趣的文章:
  • js+FSO遍历文件夹下文件并显示
  • asp.net遍历目录文件夹和子目录所有文件
  • php 遍历显示文件夹下所有目录、所有文件的函数，没有分页的代码
  • php实现的遍历文件夹下所有文件,编辑删除
  • 使用PHP遍历文件夹与子目录的函数代码
  • 深入探讨:linux中遍历文件夹下的所有文件
  • PHP遍历某个目录下的所有文件和子文件夹的实现代码
  • php遍历目录与文件夹的多种方法详解
  • c#递归遍历文件夹示例
  • C++遍历文件夹获取文件列表

标签：衡水 衢州 广元 枣庄 大理 萍乡 江苏 蚌埠

巨人网络通讯声明：本文标题《asp遍历站点所有文件夹的代码》，本文关键词  ；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。
  • 相关文章
  • 推荐文章

    上一篇：ASP对网页进行保护的简单代码 ip

    下一篇：用js实现QQ在线查询功能

     
    微信咨询办理
    在线QQ客服
    ( 客服小王 )
    ( 客服小李 )
    ( 客服小刘 )
    ( 客服小张 )
    关于我们 | 荣誉资质 | 呼叫中心 | 代理加盟 | 客户案例 | 服务支持 | 产品介绍 | 行业资讯

    Copyright © 1999-2012 诚信 合法 规范的巨人网络 www.1330.cn 始建于2005年

    全国网站建设网站开发咨询热线：400-1100-266   0514-86177077

    江苏扬州巨人网络科技有限公司   总部地址：江苏省扬州信息产业基地11号楼4层

    《增值电信业务经营许可证》苏B2-20120278    苏ICP备15040257号 网站地图
    全国咨询热线
    400-1100-266
    在线客服( QQ：340506921 )
    版权所有：巨人网络(扬州)科技有限公司——拥有网站建设十年经验，具备独立网站开发能力，能够提供完善的网站设计及相关的网站制作服务！     全国统一服务热线：400-1100-266
    收缩
    • 微信客服
    • 微信二维码

    • 电话咨询

    • 400-1100-266