رمز ASP لاجتياز جميع مجلدات الموقع

<!-遍历站点所有文件夹->

<style>

<!-

الجسم {font-size: 12px ؛}

->

</style>

<scriptLanguage = "vbscript">

<!-

subfsubmit ()

Form1.Submit

ينتهي

->

</script>

<PormName = "form1" method = "post" Action = "FindFolder.asp">

<selectize = "1" name = "fpath" onChange = "fsubmit ()">

<PointValue = "0" محدد>-请选择-</option>

<PointValue = "/"> 整个站点 </soph>

<PointValue = "."> 当前目录 </soph>

<٪

Dimfso ، objfolder ، objfile ، strprath

setfso = server.createObject ("scripting.filesystemObject")

strprath = "."

Callbl (Strath)

FunctionBl (Strath)

setobjfolder = fso.getfolder (server.mappath (strprath))

foreachobjsubfolderinobjfolder.subfolders

Response.write "<OptionValue =" "& strprath &"/"& objsubfolder.name &" '> "& replace (strath ،". "،") & "/" & objsubfolder.name & "</soph>"

CallBl (strprath & "/" & objsubfolder.name)

التالي

الوظيفية

٪>

</select>

</form>

<٪

fpath = request.form ("fpath")

IFFPATH <> "0" andfpath <> فارغة

Response.write "<fontcolor =" "#ff0000" "> 当前文件夹 ：" & replace (fpath ، "." ، ") &" </font> <br> <br> "

setObjfolder = fso.getfolder (server.mappath (fpath))

foreachobjsubfolderinobjfolder.subfolders

Response.write "子文件夹名称:" & objsubfolder.name & "<br>"

التالي

الرد. "<br>"

foreachobjfileinobjfolder.files

Response.write "： ：" & objfile.name & "<br>"

التالي

setobjfolder = لا شيء

Endif

٪>

您可能感兴趣的文章: