Во -первых, создайте программу на стороне сервера, чтобы сгенерировать файл XML, чтобы вернуться к клиенту (getFolder.asp)
<%
'Написано Линцхан Чен, 2003-4-20
'Пожалуйста, укажите источник и сохраните эту информацию об авторском праве при перепечатку
response.write <? xml version = 1.0 Encoding = gb2312?> & chr (13)
response.write <MediaFile> & Chr (13)
папки = запрос (папка)
Если папки =/ затем
папки =
конец, если
DIM COUNT
count = 0
папки = заменить (папки, ...,)
BaseFolder = ../Media/'Путь базовой папки
NewFolder = BaseFolder & Folders
Установить fso = server.createObject (scripting.filesystemobject)
Установите f = fso.getFolder (server.mappath (newfolder)))
Установите SF = F.Subfolders
Для каждого FD в SF 'возвращает список папок ниже указанного пути
response.write <file> & chr (13)
response.write <ftype> папка </ftype> & chr (13)
response.write <fname> & fd.name & </fname> & chr (13)
response.write </file> & chr (13)
count = count+1
следующий
Установить SF = ничего
Установите ff = f.files
для каждого FI в FF
fname = fi.name
Если instr (asf, wma, wmv, lcase (mid (fname, instrrev (fname ,.)+1)))> 0, затем установите тип файла, разрешенный для возврата, чтобы предотвратить утечку исходного кода
response.write <file> & chr (13)
response.write <ftype> file </ftype> & chr (13)
response.write <fname> & fname & </fname> & chr (13)
response.write </file> & chr (13)
count = count+1
конец, если
следующий
'Если в этом каталоге нет файла, отправьте пустой элемент
Если count = 0 тогда
response.write <file> & chr (13)
response.write <ftype> пусто </ftype> & chr (13)
response.write <fname> 0 </fname> & chr (13)
response.write </file> & chr (13)
конец, если
response.write </mediafile>
Установите ff = ничего
Установите F = ничего
Установить FSO = ничего
%>
Ниже приведено навык JS клиента (selectFile.asp)
<! Doctype html public -// w3c // dtd html 4.0 Переход // en>
<html>
<Голова>
<TILE> Выберите видеофайл </title>
<style>
td {font-size: 9pt}
Выберите {ширина: 210}
.s2 {ширина: 250}
</style>
<Сценарий языка = javascript>
<!-
/*Writeten Linzhang Chen, 2003-4-20
Пожалуйста, укажите источник и сохраните эту информацию об авторском праве*/
// предварительно загружать картинки
var imgback = new image ();
imgback.src = images/rrow.gif;
var imgbackgray = new image ();
imgbackgray.src = images/grayarrow.gif;
var imgfolder = new image ();
imgfolder.src = images/folder.gif;
var imggrayfolder = new image ();
imggrayfolder.src = images/greyfolder.gif;
// стек массива истории истории
var arrhistory = new Array ();