Я знаю, что есть решения для отображения каталога папок и файлов в 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
Эта вторая часть кода отображает основную папку каталога.
Любая помощь будет принята с благодарностью.
Спасибо