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

Question

我知道有一些解决方案可以显示文件夹和文件的 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

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

非常感谢任何帮助。

谢谢

Answer 1

你为什么不直接使用这样的东西呢？它支持经典 ASP。

http://ckfinder.com/