<%
function bianli(path)
set fso=server.CreateObject("scripting.filesystemobject")
on error resume next
set objFolder=fso.GetFolder(path)
set objSubFolders=objFolder.Subfolders
nowpath=path + "\" + objSubFolder.name
name=objSubFolder.name
dim objSubFolder
for each objSubFolder in objSubFolders
nowpath=path + "\" + objSubFolder.name
name=objSubFolder.name
Response.Write (" <center>文章名称 《"&name&"》center>")
set objFiles=objSubFolder.Files
Dim onlyName,s1
For Each objFile in objFiles
s1 = objFile.name
onlyName=split(s1,".")
response.Write (" <br /> 文章: <a href='Xiaoshuo/"&objSubFolder.name&"\"&objFile.name&"' target='_blank'>" & onlyName(0) & " </a> <br>")
next
Response.Write " <p>"
bianli(nowpath)'递归
dim myfileobject
set myfileobject=createobject("scripting.filesystemobject")
dim myfolder
set myfolder=myfileobject.getfolder("wwwroot\olxs\xiaoshuo")
response.write " <ul style='width:100%;list-style:none;padding:0px;'>"
dim item
for each item in
