Asp classic 按顺序列出数据库中的目录，并显示子文件夹和文件。经典ASP

我知道有一些解决方案可以显示文件夹和文件的windows目录，但我的解决方案来自数据库中的虚拟目录

到目前为止，当您单击“显示我”按钮时，它会显示您所在的目录路径，例如
文件夹1.1.1
文件夹1.1
文件夹1

它按此顺序显示，但我希望它在顶部显示主目录。 我还希望能够使文件列表可单击，这样，当您单击“显示我”按钮时，您可以直接转到特定的文件或文件夹，以便用户更容易找到他们想要的文件。是否可以显示子目录而不在其中

显示您所在目录路径的代码为：

dim previousPos 
previousPos = 0
dim html
html = ""


    if not test.BOF then

do while not objRsU.EOF

'if previousPos = (test.Fields(2)) then
response.Write html & "<br />"
html = ""

'else

html = test.Fields(0) & "\" & html

'end if

previousPos = test.Fields(2)

test.MoveNext
loop
end if


set test =nothing
set try =nothing



ListFolderContents Server.MapPath("/"), 0 

sub ListFolderContents(path, level)     

    dim fs, folder, file, item, subFolders     
    set fs = CreateObject("Scripting.FileSystemObject")     
    set folder = fs.GetFolder(path)      
    if folder.SubFolders.Count > 0 or folder.Files.Count > 0 then         

    'Display the target folder and info.         
    if level > 3     then             
    Response.Write("<h2>"& folder.Name &"</h2>" & html)         
    end if  

    'Display a list of sub folders.         
    for each item in folder.SubFolders             
    ListFolderContents item.Path, level  + 1
    next          

    'Display a list of files.

     Response.Write("<a<ul></a>" & html)      
     for each item in folder.Files
     Response.Write("<li><a href=""" & test.Name & """>" & try.Name & "</a></li>")
    next         
    Response.Write("</ul>" & html)


    end if 
end sub

dim previousPos
前一个位置=0
暗淡的html
html=“”
如果不是test.BOF，则
不要在objRsU.EOF时执行
'如果previousPos=（测试字段（2）），则
响应。编写html&“
”
html=“”
”“否则呢
html=test.Fields（0）&“\”html
"完"
previousPos=测试字段（2）
test.MoveNext
环
如果结束
设置测试=无
设置try=nothing
ListFolderContents服务器。映射路径（“/”），0
子列表文件夹内容（路径、级别）
dim fs、文件夹、文件、项目、子文件夹
设置fs=CreateObject（“Scripting.FileSystemObject”）
set folder=fs.GetFolder（路径）
如果folder.SubFolders.Count>0或folder.Files.Count>0，则
'显示目标文件夹和信息。
如果级别>3，则
Response.Write（“&folder.Name&”“&html）
如果结束
'显示子文件夹列表。
对于folder.SubFolders中的每个项目
ListFolderContents项路径，级别+1
下一个
'显示文件列表。
回答。写（“”）
下一个
响应。写入（“”&html）
如果结束
端接头

代码的第二部分显示目录的主文件夹

任何帮助都将不胜感激

---

谢谢

你为什么不用这样的东西来代替呢？它支持经典的ASP