asp遍歷目錄及子目錄的函數(shù)
更新時(shí)間：2008年07月22日 08:54:21 作者：
asp遍歷目錄以及目錄下文件的函數(shù)- 從網(wǎng)上找的不過(guò)都用不了,自己用Emeditor修正了一下
<%@ Language=vbscript %>
<%
'遍歷目錄以及目錄下文件的函數(shù)
%>
<%
Function Bianli(path)
Set Fso=server.createobject("scripting.filesystemobject")
On Error Resume Next
Set Objfolder=fso.getfolder(path)
Set Objsubfolders=objfolder.subfolders
For Each Objsubfolder In Objsubfolders
Nowpath=path + "\" + Objsubfolder.name
Response.write Nowpath
Set Objfiles=objsubfolder.files
For Each Objfile In Objfiles
Response.write "<br>---"
Response.write Objfile.name
Next
Response.write "<p>"
Bianli(nowpath)'遞歸
Next
Set Objfolder=nothing
Set Objsubfolders=nothing
Set Fso=nothing
End Function
%>
<%
Bianli("D:") '遍歷d:盤(pán)
%>
<%
'遍歷目錄以及目錄下文件的函數(shù)
%>
<%
Function Bianli(path)
Set Fso=server.createobject("scripting.filesystemobject")
On Error Resume Next
Set Objfolder=fso.getfolder(path)
Set Objsubfolders=objfolder.subfolders
For Each Objsubfolder In Objsubfolders
Nowpath=path + "\" + Objsubfolder.name
Response.write Nowpath
Set Objfiles=objsubfolder.files
For Each Objfile In Objfiles
Response.write "<br>---"
Response.write Objfile.name
Next
Response.write "<p>"
Bianli(nowpath)'遞歸
Next
Set Objfolder=nothing
Set Objsubfolders=nothing
Set Fso=nothing
End Function
%>
<%
Bianli("D:") '遍歷d:盤(pán)
%>
相關(guān)文章
多域名綁定到一個(gè)空間訪問(wèn)不同首頁(yè)的技巧
多域名綁定到一個(gè)空間訪問(wèn)不同首頁(yè)的技巧...2006-09-09
一個(gè)不錯(cuò)的asp上傳類(lèi)代碼，可以顯示上傳進(jìn)度2008-04-04
關(guān)于無(wú)限分級(jí)(ASP+數(shù)據(jù)庫(kù)+JS)的實(shí)現(xiàn)代碼
關(guān)于無(wú)限分級(jí)(ASP+數(shù)據(jù)庫(kù)+JS)的實(shí)現(xiàn)代碼...2007-05-05
ASP實(shí)現(xiàn)GB2312字符與區(qū)位碼的相互轉(zhuǎn)換的代碼
ASP實(shí)現(xiàn)GB2312字符與區(qū)位碼的相互轉(zhuǎn)換的代碼...2007-05-05
ASP中用ajax方式獲得session的實(shí)現(xiàn)代碼
前期做的時(shí)候，登錄方式順手用了ajax來(lái)做，登錄前先判斷在session中是否存在值，如果存在，那么無(wú)需登錄；如果不存在，那就彈出登錄頁(yè)面登錄。2011-05-05
asp 獲取參數(shù)值與sql安全過(guò)濾參數(shù)函數(shù)代碼
下面的代碼是從aspcms系統(tǒng)中扒下的代碼，在獲取參數(shù)值與sql安全過(guò)濾參數(shù)方面做了限制2012-01-01
可以應(yīng)用到馬克斯電影站生成Rss Feed的代碼
前段時(shí)間為了給本人的電影站增加Rss訂閱功能，動(dòng)手寫(xiě)了個(gè)動(dòng)態(tài)生成Rss Feed的ASP代碼，沒(méi)法上傳附件，就直接貼代碼吧，反正也不長(zhǎng)，用馬克斯做電影站的朋友直接拿去用吧，其它類(lèi)型的站點(diǎn)修改一下也能用。生成的Rss Feed采用UTF-8編碼，經(jīng)過(guò)feedvalidator.org校驗(yàn)，兼容Rss 2.0和Atom。2008-03-03
這篇文章主要介紹了asp中獲取日期為星期幾的方法,主要就用是weekday函數(shù)和weekdayname函數(shù)的應(yīng)用,需要的朋友可以參考下2014-08-08
ASP強(qiáng)制刷新網(wǎng)頁(yè)和判斷文件地址實(shí)例代碼
這篇文章主要介紹了ASP強(qiáng)制刷新網(wǎng)頁(yè)和判斷文件地址實(shí)例代碼，需要的朋友可以參考下2015-09-09
Coolite 中前臺(tái)獲取 GridPanel 當(dāng)前選擇行值的代碼
掌握獲取 GridPanel 當(dāng)前行的各個(gè)字段值的方法，需要的朋友可以參考下。2010-06-06