Используйте XML+FSO+JS для реализации кода эффекта выбора файла на стороне сервера. Друзья, которым он нужен, могут обратиться к нему.
<%
'написано Линьчжан Ченом, 20 апреля 2003 г.
' Пожалуйста, укажите источник и сохраните эту информацию об авторских правах при перепечатке.
response.write <?xml версия=1.0 кодировка=GB2312?>&chr(13)
response.write <медиафайл>&chr(13)
папки = запрос (папка)
если папки=/то
папки=
конец, если
тусклый счет
количество = 0
папки = заменить (папки,..,)
basefolder=../media/'путь к базовой папке
новая папка = базовая папка и папки
Установите fso =server.CreateObject(Scripting.FileSystemObject)
установите f=fso.getfolder(server.mappath(новая папка))
установить sf=f.подпапки
для каждого fd в sf' возвращает список папок по указанному пути
response.write <файл>&chr(13)
response.write <ftype>папка</ftype>&chr(13)
response.write <fname>&fd.name&</fname>&chr(13)
response.write </file>&chr(13)
счет=счет+1
следующий
установить SF=ничего
установите ff=f.Files
для каждого фи в фф
fname=fi.name
if instr(asf,wma,wmv,lcase(mid(fname,instrrev(fname,.)+1)))>0 then'Установите типы файлов, которые разрешено возвращать, чтобы предотвратить утечку исходного кода
response.write <файл>&chr(13)
response.write <ftype>файл</ftype>&chr(13)
response.write <fname>&fname&</fname>&chr(13)
response.write </file>&chr(13)
счет=счет+1
конец, если
следующий
'Если в каталоге нет файла, отправьте пустой элемент
если счетчик = 0, то
response.write <файл>&chr(13)
response.write <ftype>пусто</ftype>&chr(13)
response.write <fname>0</fname>&chr(13)
response.write </file>&chr(13)
конец, если
ответ.запись </mediafile>
установить ff=ничего
установить f=ничего
установить fso=ничего
%>
Ниже представлена работа клиентского JS (selectfile.asp)
<!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.0 Transitional//EN>
<HTML>
<ГОЛОВКА>
<TITLE> Выберите видеофайл</TITLE>
<стиль>
тд {размер шрифта: 9pt}
выберите {ширину: 210}
.s2{ширина:250}
</стиль>
<ЯЗЫК СКРИПТА=JavaScript>
<!--
/*написано Линьчжан Ченом, 20 апреля 2003 г.
Пожалуйста, укажите источник и сохраните информацию об авторских правах при перепечатке*/
//Предварительная загрузка изображений
вар imgback = новое изображение ();
imgback.src = images/arrow.gif;
вар imgbackgray = новое изображение ();
imgbackgray.src = images/grayarrow.gif;
вар imgfolder = новое изображение ();
imgfolder.src = images/folder.gif;
вар imggrayfolder = новое изображение ();
imggrayfolder.src = images/grayfolder.gif;
//Стек массива истории
вар arristory = новый массив ();
вархиси=0;
//Используется для определения имени возвращаемого файла
проверка функции()
{
если (документ.все.имя_файла.значение==)
{
предупреждение (пожалуйста, сначала выберите файл);
вернуть ложь;
}
еще
{
window.returnValue =document.f1.folder.value+document.all.filename.value;
окно.закрыть();
}
}
//Получаем содержимое XML-файла
функция getuserlist (url)
{вар oXMLDoc = новый ActiveXObject('MSXML');
oXMLDoc.url = URL;
вар ooRoot=oXMLDoc.root;
вернуть ooRoot;
}
//Когда файл выбран, возвращаем это значение в текстовое поле
функция addfile(txt)
{
document.all.filename.value=txt;
}
var first=1;//Определяем глобальную переменную
function userlist(folders,ti)//Перечислить выбранные поля
{document.f1.folder.value=папки;
filebox.document.body.innerHTML=Файл загружается, подождите...;
вар стршоу =;
вар timeoutid = ноль;
вар новая папка =;
вар arrfolder = новый массив ();
вар arrff = новый массив ();
вар пустая строка =;
вар oItem;
//Определяем исторический статус
хиси+=ти;
arristory[hisi]=папки;
если (хиси==0)
{
arrow.innerHTML=<img src=/images/grayarrow.gif/>;
}
еще
{
arrow.innerHTML=<img src=/images/arrow.gif/ border=0 style=/cursor:hand/ onclick=/userlist('+arrhistory[hisi-1]+',-1)/ onmouseover=/this. src='images/arrow_over.gif'/ onmouseout=/this.src='images/arrow.gif'/>;
}
//Определяем текущую папку
если (document.f1.folder.value==)
{
folderid.innerHTML=<img src=/images/grayfolder.gif/>
}
еще
{newsfolder=checkfolder(document.f1.folder.value)
folderid.innerHTML=<img src=/images/folder.gif/ border=0 style=/cursor:hand/ onclick=/userlist('+newsfolder+',1)/ onmouseover=/this.src='images/folder_over. gif'/ onmouseout=/this.src='images/folder.gif'/>
}
//Назначаем значение раскрывающемуся списку
document.all.select.options.length=0;
новая папка = папки;
папкаstr=
вар _obj=document.all.select;
вар _o=document.createElement(Option);
_o.text=Выбрать папку;
_o.value=;
_obj.add(_о);
если (новая папка!=)
{arrfolder=newfolder.split(/)
for(var i=0;i<arrfolder.length-1;i++)
{пустая строка+= ;
папкаstr+=arrfolder[i]+/;
_o=document.createElement(Option);
_o.text=blankstr+arrfolder[i];
_o.value=folderstr;
_obj.add(_о);
}
}
document.all.select.options[document.all.select.options.length-1].selected=true;
url=getfolder.asp.gl?folder=+folders;
oRoot = getuserlist (url)
strshow=<класс таблицы=файл cellpacing=0 cellpadding=0>;
len=oRoot.children.length;
если (длин==1)
{oItem = oRoot.children.item(0);
if(oItem.children.item(0).text==пустой)
strshow=Нет файлов и папок;
еще
{
if(oItem.children.item(0).text==папка)
{
strshow+=<tr><td><A href=/javascript:parent.userlist('+folders+oItem.children.item(1).text+/+',1)/><img src=/images/mediafolder. gif/ border=0 >+oItem.children.item(1).text+</A></td></tr>;
}
еще
{
strshow+=<tr><td><a href=/javascript:parent.addfile('+oItem.children.item(1).text+')/ ><img src=/images/mediafile.gif/ border=0> +oItem.children.item(1).text+</A></td></tr>;
}
}
стршоу+=</таблица>
}
еще{
//Заносим данные в стек
для(я=0;я<len;я++)
{ oItem = oRoot.children.item (i);
if(oItem.children.item(0).text==папка)
{
arrff[i]=<A href=/javascript:parent.userlist('+folders+oItem.children.item(1).text+/+',1)/><img src=/images/mediafolder.gif/ border =0>+oItem.children.item(1).text+</A>;
}
еще
{
arrff[i]=<A href=/javascript:parent.addfile('+oItem.children.item(1).text+')/><img src=/images/mediafile.gif/ border=0 height=12> +oItem.children.item(1).text+</A>;
}
}
//Получаем количество столбцов для вывода
если (длин<=6)
{х=1;
у=6;}
еще
{х=длин/6;
у=6;}
for(var i=0;i<y;i++)
{strshow+=<tr>
for(var j=0;j<x;j++)
{ponits=j*y+i;
если (пониц>=len)
{
стршоу+=<td> </td>;
}
еще
{
strshow+=<td>+arrff[ponits]+</td>;
}
}
стршоу+=</tr>
}
стршоу+=</таблица>
}
filebox.document.body.innerHTML=strshow;
}
//-->
</СКРИПТ>
<script LANGUAGE=vbscript>
функция checkfolder(folderstr)
если (folderstr= или instr(folderstr,/)=instrrev(folderstr,/)) то
проверить папку=
еще
nfolder=left(folderstr,len(folderstr)-1)
checkfolder=left(nfolder,instrrev(nfolder,/))
конец, если
конечная функция
</скрипт>
</HEAD>
<BODY style=margin:0 bgColor=menu onload=javascript:userlist('',0)>
<ширина таблицы=443 граница=0 cellspace=0>
<тр>
<td height=36><ширина таблицы=409 border=0>
<тр>
<td width=73 align=right>Диапазон поиска (<u>I</u>):</td>
<td width=214><select name=select id=select size=1 onchange=javascript:userlist(this.value,1);>
</select></td>
<td width=22 valign=baseline id=arrow align=right></td>
<td width=20 valign=middle id=folderid></td>
<td width=20 align=left><img src=images/md.gif width=16 height=15></td>
<td width=28 align=left><img src=images/viewtype.gif width=23 height=14></td>
</tr>
</таблица></тд>
</tr>
<тр>
<td height=120><ширина таблицы=100% высота=100% граница=0>
<тр>
<td width=9> </td>
<тд>
<iframe src=blank.htm width=415 height=120 id=filebox></iframe></td>
<td width=13> </td>
</tr>
</таблица></тд>
</tr>
<тр>
<td height=60><ширина таблицы=100% граница=0>
<ФОРМ МЕТОД=ПОСТ ДЕЙСТВИЕ= имя=f1>
<тип ввода=скрытое имя=значение папки=>
<тр>
<td width=85 align=right>Имя файла (<u>N</u>): </td>
<td width=254><input type=text id=filename size=34></td>
<td><button onclick=javascript:return check()> Открыть (<u>O</U>)</button></td>
</tr>
</ФОРМ>
<тр>
<td align=right>Тип файла (<u>T</u>):</td>
<td><select name=select2 class=s2>
<option>Потоковое мультимедиа (*.asf, *.wmv, *.wma)</option>
</select></td>
<td><input type=button name=Отправить значение= Отмена onclick=window.close();></td>
</tr>
</таблица></тд>
</tr>
</таблица>
</ТЕЛО>
</HTML>
Существует также небольшой файл Blank.htm, используемый для определения стиля отображения файлов и папок.
<!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.0 Transitional//EN>
<HTML>
<ГОЛОВКА>
<TITLE> Новый документ </TITLE>
<стиль>
тд {размер шрифта: 9pt}
тело {размер шрифта: 9pt}
.file A{COLOR: #000000; TEXT-DECORATION: none;font-size:9pt}
.file A:visited{COLOR: #000000; TEXT-DECORATION: none;font-size:9pt}
.file A:hover {COLOR: #000000; TEXT-DECORATION: none;font-size:9pt}
</стиль>
</HEAD>
<BODY style=margin: 0pt>
</ТЕЛО>
</HTML>
При вызове используйте следующую функцию, чтобы добиться эффекта выбора файлов на стороне сервера, который будет выглядеть так же, как настоящий.
функция выбора файла()
{
var arr = showModalDialog(selectfile.asp?temp=+Math.random(), , DialogWidth:453px; DialogHeight:252px; Status:0;Help:1);
если (обр!= ноль)
{
возвращение
}
}
Последнее, что возвращает эта функция, — это выбранное имя файла. Вы можете получить несколько изображений, используемых в функции, из окна выбора файла :)