Реальная база готовых
студенческих работ

Авторам Вопрос-ответ

Узнайте стоимость индивидуальной работы!

Тип задания

Предмет

Ваше имя

Вы нашли то, что искали?

Да, спасибо!

Нет, пока не нашел

Узнайте стоимость индивидуальной работы

Тип задания

Предмет

Ваше имя

это быстро и бесплатно

Оформите заказ сейчас и получите скидку 100 руб.!

Тип задания

Предмет

Ваше имя

Представление в Internet содержимого каталога средствами ASP

Тип Реферат

Предмет Информатика

Просмотров

516

Размер файла

86 б

Ознакомительный фрагмент работы:

Представление в Internet содержимого каталога средствами ASP

Представление в Internet содержимого каталога средствами ASP

Христофоров Юрий

В этой статье я на примере расскажу, как используя ASP (Active Server Pages) можно построить содержимое каталога Web аналогично тому, как это выглядит на FTP сервере.

Постановка задачи: На Web-сервере есть каталог, например: C:InetPubwwwrootuser1. Пусть данный каталог имеет несколько вложенных каталогов и набор файлов в этих каталогах. Примерная структура папок представлена на Рис. 1.

Рис. 1.

В каждом из представленных на рисунке каталогах может находиться неограниченное количество файлов, либо некоторые из каталогов могут быть пустыми. Необходимо представить содержимое папки user1 на Web-странице в дружественном для пользователя виде.

Интересной особенностью скрипта является то, что применяя страницу с фреймами (кадрами), можно построить меню пользователя.

Результат должен выглядеть примерно следующим образом:

Находимся в папке C:Inetpubwwwrootuser1folder1subfolder2:

На данном скриншоте показан пример меню. Страница menu.htm разделена на два фрейма. В левом фрейме находится файл list_files.asp, а правый фрейм используется для отображения файлов, ссылки на которые находятся в левом фрейме. В левом фрейме можно свободно перемещаться по папкам. Т.о. можно организовать меню пользователя.

Решение: Ключ к решению данной задачи - это использование MicrosoftR Scripting Library. Нас будет интересовать такой объект этой библиотеки, как FileSystemObject. FileSystemObject предоставляет объектную модель доступа к файловой системе. Далее, пользуясь средствами языка написания сценариев VBScript, выполняемого на Web-сервере, можно написать одну ASP-страницу, которая будет выполнять всю работу. Итак, приступим.

Листинг файла list_files.asp:

<%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)

'Вызов процедуры, осуществляющей вывод названий подкаталогов текущего каталога.

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")

Set f = fs.GetFolder(folder)

Set fc = f.Files

i=0

'В цикле заполняем массив именами файлов текущей папки

For Each f1 In fc

farr(i) = LCase(CStr(f1.Name)) 'Преобразуем имя к нижнему регистру символов

i = i + 1

'Увеличениеразмерамассива

ReDim Preserve farr(i)

'Возвращаемрезультат

ShowFilesList = farr

End Function

Function ShowDirList(folder)

Dim fs, f, f1, fc, i

'Определяем динамический массив для хранения названий каталогов

ReDim dirarr(0)

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFolder(folder)

Set fc = f.SubFolders

i=0

'В цикле заполняем массив именами каталогов текущей папки

For Each f1 In fc

dirarr(i) = LCase(CStr(f1.Name))

i = i + 1

ReDim Preserve dirarr(i)

'Возвращаемрезультат

ShowDirList = dirarr

End Function

Function SortStr(arr)

Dim t,i,j

'Сортировка методом "пузырька"

'UBound - возвращает верхний индекс массива

For j = 0 To UBound(arr)-1

For i = j + 1 To UBound(arr)-1

'StrComp - сравнивает две строки

'Возвращает "-1", если строка1 < строка2; "0", если строка1=строка2; "1", если строка1 >

' строка2.

If StrComp(CStr(arr(i)), CStr(arr(j)), vbTextCompare) < 0 Then

t = arr(j)

arr(j) = arr(i)

arr(i) = t

End If

'Возвращаемрезультат

SortStr = arr

End Function

Sub Main_Print(arr,flag)

'flag = 1 - вывод для каталогов

'flag = 0 - вывод для файлов

Dim i,k,tmp

i = 0

Select Case flag

Case 1

'Если находимся в подкаталоге, то надо предусмотреть возможность вернуться

'на уровень выше

If curr_dir2 <> "" Then

'Ищем последнее вхождение символа разделителя каталогов ""

k = InStrRev(curr_dir2,"")

If k <> 0 Then

'Получаем имя каталога верхнего уровня

tmp = Mid(curr_dir2,1,k-1)

Response.Write "<tr>" 'Вывод HTML

'Для украшения используем графический файл open.gif - изображение открытой папки.

Response.Write "<td><img src='open.gif'></td>"

'Формируемссылкунаверхнийкаталог

Response.Write "<td><a href='list_files.asp?dir=" & tmp & "'>" & " .. " & "</a></td></tr>"

End If

'Основной цикл вывода названий каталогов

For i = 0 To UBound(arr)-1

Response.Write "<tr>"

Response.Write "<td><img src='close.gif'></td>"

Response.Write "<td><a href=' list_files.asp?dir=" & curr_dir2 & "" & arr(i) & "'>" & arr(i) & _

"</a></td></tr>"

'Выводименфайлов

Case 0

'Основной цикл вывода имен файлов

For i = 0 To UBound(arr)-1

Response.Write "<tr>"

Response.Write "<td><img src='doc.gif'></td>"

'Заменяем "" на "/" для использования в URL

'Атрибут target нужен для указания ссылки на фрейм

Response.Write "<td><a href='" & root_vfolder & Replace(curr_dir2,"","/") & "/" & arr(i) & _

"' target='main'>" & arr(i) & "</a></td></tr>"

End Select

End Sub

</BODY>

</HTML>

Далее необходимо написать страницу menu.htm, содержащую два фрейма, как было показано выше. Листинг приведен ниже:

<HTML>

<HEAD>

</HEAD>

</FRAMESET>

</HTML>

Файл empty.htm представляет собой пустой файл-заглушку для корректного отображения страницы в браузере Netscape Navigator.

<!-empty.htm 

<HTML>

</HTML>

Файлы list_files.asp, menu.htm, empty.htm необходимо поместить в каталог на Web-сервере с правом Script.

Далее в браузере набираем, например, http://localhost/scripts/menu.htm

Пример работы скрипта приведен на Рис.2.

Рис.2.

Исходный файл проекта прилагается: files.zip

Смотреть

Проект сети для центра информационных технологий
Реферат, Информатика и программирование

Смотреть

Створення власних бібліотек компонентів в Protel 99
Реферат, Информатика и программирование

Смотреть

Мифы и реальности Internet - известные и скрытые возможности сети
Реферат, Информатика и программирование

Смотреть

Программа для оценки шахматной ситуации
Реферат, Информатика и программирование

Смотреть

Нет нужной работы в каталоге?

Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.

Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит

Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки

Если работа вас не устроит – мы вернем 100% суммы заказа

Наши менеджеры всегда на связи и оперативно решат любую проблему

К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»

1 000 +

Новых работ ежедневно

Требуются доработки?
Они включены в стоимость работы

Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован

Математика

История

Экономика

159599
рейтинг

3275
работ сдано

1404
отзывов

Математика

Физика

История

156804
рейтинг

6076
работ сдано

2739
отзывов

Химия

Экономика

Биология

105734
рейтинг

2110
работ сдано

1318
отзывов

Высшая математика

Информатика

Геодезия

62710
рейтинг

1046
работ сдано

598
отзывов

Тип работы

Политех

Реферат был написан в этот же день, все требования выполнены, очень довольна исполнителем

ЛГПУ

Спасибо огромное за выполненную работу,все очень качественно и быстро)))

СЕВГУ

Выполнил досрочно как просил Сделал четка без ошибок Быстро отвечает и помогает если ест...

Последние размещённые задания

Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн

Тема: Развитие лёгкой атлетики в России

Диплом, Физическая культура

Срок сдачи к 5 мар.

1 минуту назад

Теория вероятностей 9 класс , тесты

Решение задач, Теория вероятностей и математическая статистика

Срок сдачи к 23 февр.

3 минуты назад

Задачи по химии 9 класс

Решение задач, Химия

Срок сдачи к 23 февр.

4 минуты назад

нужно сделать 5 лабораторных

Лабораторная, Электротехника

Срок сдачи к 27 февр.

7 минут назад

Физика 9 класс тесты

Решение задач, Физика

Срок сдачи к 23 февр.

7 минут назад

Решить задачи по примеру

Решение задач, Метрология и стандартизация

Срок сдачи к 22 февр.

8 минут назад

Написать индивидуальное сообщение на тему: средние века

Другое, Мировая Отечественная художественная культура

Срок сдачи к 23 февр.

8 минут назад

Отчёт полный факторный эксперимент первого порядка пфэ

Другое, Методология, электротехника

Срок сдачи к 23 февр.

9 минут назад

Выполнить курс "Начертательная геометрия и инженерная графика 2.2". М-08603

Контрольная, Начертательная геометрия и инженерная графика

Срок сдачи к 21 мар.

11 минут назад

Конфигурирование и настройка аппаратно-программных офисных...

Курсовая, МДК, информатика, электротехника

Срок сдачи к 24 февр.

11 минут назад

Отчёт по практике

Отчет по практике, Туризм

Срок сдачи к 24 февр.

11 минут назад

Организация местного самоуправления( на примере своего поселения, муниципального района, городского округа)

Реферат, Муниципальное управление и местное самоуправление

Срок сдачи к 12 мар.

11 минут назад

Написать курсовую

Курсовая, Таможенное дело

Срок сдачи к 25 мая

11 минут назад

решение задач № 8, 9, 10

Решение задач, Методы принятия решений, менеджмент

Срок сдачи к 25 февр.

11 минут назад

Презентация на 18 слайдов

Презентация, Стратегический менеджмент и управление проектами в государственном управлении

Срок сдачи к 3 апр.

11 минут назад

И. В. Витте, Выбрать тему, сделать задание по рекомендациям

Курсовая, Гражданское право

Срок сдачи к 15 мая

11 минут назад

Дипломная работа на тему «Методика применения компьютерных обучающих программ на уроках английского языка»

Диплом, Педагогика и Английский язык

Срок сдачи к 13 апр.

11 минут назад

Решить задачи по примеру

Решение задач, Метрология и стандартизация

Срок сдачи к 22 февр.

11 минут назад

Закажи индивидуальную работу за 1 минуту!

Размещенные на сайт контрольные, курсовые и иные категории работ (далее — Работы) и их содержимое предназначены исключительно для ознакомления, без целей коммерческого использования. Все права в отношении Работ и их содержимого принадлежат их законным правообладателям. Любое их использование возможно лишь с согласия законных правообладателей. Администрация сайта не несет ответственности за возможный вред и/или убытки, возникшие в связи с использованием Работ и их содержимого.