婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > asp遍歷站點所有文件夾的代碼

asp遍歷站點所有文件夾的代碼
熱門標簽：常用地圖標注范圍點 離線電子地圖標注軟件注冊 辦理400電話一年多少錢 為什么外呼系統需要預存話費呢 蘭州智能語音電銷機器人功能 咸陽銷售外呼系統 企數外呼系統能用多久 外呼回撥系統圖片 寧夏怎么申請400電話
!-- 遍歷站點所有文件夾 -->  
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,遍歷,站點,所有,文件夾,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《asp遍歷站點所有文件夾的代碼》相關的同類信息！
  • 本頁收集關于asp遍歷站點所有文件夾的代碼的相關信息資訊供網民參考！
    • 推薦文章
    主站蜘蛛池模板： 舟山市| 达孜县| 龙南县| 文登市| 朝阳市| 宜章县| 沙田区| 张掖市| 桂阳县| 平安县| 漳平市| 泸西县| 绥化市| 福安市| 台湾省| 区。| 武隆县| 石林| 庄浪县| 色达县| 台前县| 江安县| 无为县| 富蕴县| 荥阳市| 响水县| 福贡县| 汉川市| 康保县| 新蔡县| 永泰县| 玛沁县| 建湖县| 墨脱县| 弥勒县| 秭归县| 新巴尔虎右旗| 屯门区| 泽普县| 若尔盖县| 福清市|