데이터베이스의 디렉토리를 나열하고 하위 폴더 및 파일을 표시합니다. Classic 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/