Статья: Представление в Internet содержимого каталога средствами ASP
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
Далее следует текст функций и процедур, используемых в сценарии.
Функции: ShowFilesList - возвращает массив, содержащий имена файлов текущей папки.
ShowDirList - возвращает массив, содержащий названия каталогов текущей папки.
SortStr - сортирует массив строк.
Процедура: Main_Print - осуществляет вывод в HTML-формате содержимое текущего каталога.
Продолжение листинга файла list_files.asp:
|
Function ShowFilesList(folder) Dim fs, f, f1, fc, i 'Определяем динамический массив для хранения имен файлов ReDim farr(0) 'СоздаемобъектFileSystemObject Set fs = CreateObject("Scripting.FileSystemObject") К-во Просмотров: 311
Бесплатно скачать Статья: Представление в Internet содержимого каталога средствами ASP
|