<%Response.Expires=0%> 'Отключаем
кэширование страницы
<HTML>
<BODY>
<!-Серверный сценарий
<%
Dim
root_folder, root_vfolder, curr_dir, curr_dir2, temp_arr
'root_folder - переменная для хранения
физического пути к корневой папке USER1
root_folder
= "c:inetpubwwwrootuser1"
'root_vfolder - переменная для хранения
виртуального пути к папке USER1
'localhost - имя Вашего сервера
root_vfolder =
"http://localhost/user1"
'curr_dir2 - имя текущей (активной)
папки
curr_dir2
= Request.QueryString("dir") 'Имя получаем из URL
'curr_dir - полный физический путь к
текущей папке. Получается конкатенацией строк, 'содержащихся в переменных
root_folder и curr_dir2.
curr_dir
= root_folder & curr_dir2
'temp_arr - временный массив
'Получаем массив, содержащий названия
каталогов текущей папки.
temp_arr
= ShowDirList(curr_dir)
'Сортируем массив строк
temp_arr
= SortStr(temp_arr)
%>
<table border=0>
<%
'Вызов процедуры, осуществляющей вывод
названий подкаталогов текущего каталога.
Call
Main_Print(temp_arr,1)
'Получаем массив, содержащий имена
файлов текущей папки.
temp_arr
= ShowFilesList(curr_dir)
'Сортируем массив строк
temp_arr
= SortStr(temp_arr)
'Вызов процедуры, осуществляющей вывод
имен файлов текущего каталога.
Call
Main_Print(temp_arr,0)
%>
</table>
<%
'Очистка содержимого массива
Erase temp_arr
|