Use XML+FSO+JS para implementar o código para o efeito de seleção de arquivos do lado do servidor. Amigos que precisarem dele podem consultá-lo.
<%
'escrito por Linzhang Chen, 20/04/2003
'Por favor, indique a fonte e guarde esta informação de direitos autorais ao reimprimir
resposta.write <?xml version=1.0 encoding=GB2312?>&chr(13)
resposta.write <arquivodemídia>&chr(13)
pastas = solicitação (pasta)
se pastas=/então
pastas =
terminar se
contagem escura
contagem=0
pastas=substituir(pastas,..,)
basefolder=../media/'caminho da pasta base
newfolder = pasta base&pastas
Definir fso =server.CreateObject(Scripting.FileSystemObject)
definir f=fso.getfolder(server.mappath(novapasta))
definir sf=f.subpastas
para cada fd in sf' retorna uma lista de pastas no caminho especificado
resposta.write <arquivo>&chr(13)
resposta.write <ftype>pasta</ftype>&chr(13)
resposta.write <fname>&fd.name&</fname>&chr(13)
resposta.write </file>&chr(13)
contagem = contagem + 1
próximo
definir sf = nada
definir ff=f.Arquivos
para cada fi em ff
fname=fi.nome
if instr(asf,wma,wmv,lcase(mid(fname,instrrev(fname,.)+1)))>0 then'Defina os tipos de arquivo que podem ser retornados para evitar vazamento do código-fonte
resposta.write <arquivo>&chr(13)
resposta.write <ftype>arquivo</ftype>&chr(13)
resposta.write <fname>&fname&</fname>&chr(13)
resposta.write </file>&chr(13)
contagem = contagem + 1
terminar se
próximo
'Se não houver nenhum arquivo no diretório, envie um elemento vazio
se contagem = 0 então
resposta.write <arquivo>&chr(13)
resposta.write <ftype>vazio</ftype>&chr(13)
resposta.write <fname>0</fname>&chr(13)
resposta.write </file>&chr(13)
terminar se
resposta.write </mediafile>
definir ff = nada
definir f = nada
definir fso = nada
%>
A seguir está o trabalho do cliente JS (selectfile.asp)
<!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.0 Transitional//EN>
<HTML>
<CABEÇA>
<TITLE> Selecione o arquivo de vídeo</TITLE>
<estilo>
td{tamanho da fonte:9pt}
selecione{largura:210}
.s2{largura:250}
</estilo>
<LINGUAGEM DO SCRIPT=JavaScript>
<!--
/* escrito por Linzhang Chen, 20/04/2003
Por favor, indique a fonte e guarde essas informações de direitos autorais ao reimprimir*/
//Pré-carregar imagens
var imgback = nova imagem();
imgback.src = imagens/seta.gif;
var imgbackgray = nova imagem();
imgbackgray.src = imagens/grayarrow.gif;
var imgfolder = new Imagem();
imgfolder.src = imagens/pasta.gif;
var imggrayfolder = new Imagem();
imggrayfolder.src = imagens/grayfolder.gif;
//Pilha de array de histórico
var arrhistory=new Array();
varhisi=0;
//Usado para determinar o nome do arquivo a ser retornado
verificação de função()
{
if (document.all.nomedoarquivo.value==)
{
alerta(selecione o arquivo primeiro);
retornar falso;
}
outro
{
window.returnValue =document.f1.folder.value+document.all.filename.value;
janela.close();
}
}
//Obtém o conteúdo do arquivo XML
função getuserlist(url)
{ var oXMLDoc = new ActiveXObject('MSXML');
oXMLDoc.url = url;
var ooRoot=oXMLDoc.root;
retornar ooRoot;
}
//Quando um arquivo for selecionado, retorne este valor para a caixa de texto
função adicionar arquivo (txt)
{
document.all.filename.value=txt;
}
var first=1;//Define uma variável global
function userlist(folders,ti) // Lista as caixas selecionadas
{document.f1.folder.value=pastas;
filebox.document.body.innerHTML=Carregando arquivo, aguarde...;
var strshow=;
var timeoutid=nulo;
var novapasta=;
var pastaarr=new Array();
var arrff=new Array();
var blankstr=;
var oItem;
//Determinar o status histórico
hisi+=ti;
arrhistory[hisi]=pastas;
se (hisi==0)
{
arrow.innerHTML=<img src=/images/grayarrow.gif/>;
}
outro
{
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'/>;
}
//Determina a pasta atual
se (document.f1.folder.value==)
{
folderid.innerHTML=<img src=/images/grayfolder.gif/>
}
outro
{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'/>
}
//Atribuir um valor à caixa suspensa
document.all.select.options.length=0;
novapasta=pastas;
pastastr=
var _obj=document.all.select;
var _o=document.createElement(Option);
_o.text=Selecionar pasta;
_o.valor=;
_obj.add(_o);
if (novapasta!=)
{arrfolder=novapasta.split(/)
for(var i=0;i<arrfolder.length-1;i++)
{blankstr+= ;
pastastr+=arrpasta[i]+/;
_o=document.createElement(Opção);
_o.text=blankstr+arrfolder[i];
_o.value=pastastr;
_obj.add(_o);
}
}
document.all.select.options[document.all.select.options.length-1].selected=true;
url=getfolder.asp.gl?folder=+pastas;
oRoot=getuserlist(url)
strshow=<tabela classe=arquivo cellpacing=0 cellpadding=0>;
len=oRoot.filhos.comprimento;
se (len==1)
{oItem = oRoot.filhos.item(0);
if(oItem.filhos.item(0).text==vazio)
strshow=Não há arquivos ou pastas;
outro
{
if(oItem.children.item(0).text==pasta)
{
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>;
}
outro
{
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>;
}
}
strshow+=</tabela>
}
outro{
//Empurra os dados para a pilha
para(i=0;i<len;i++)
{oItem = oRoot.filhos.item(i);
if(oItem.children.item(0).text==pasta)
{
arrff[i]=<A href=/javascript:parent.userlist('+folders+oItem.children.item(1).text+/+',1)/><img src=/images/mediafolder.gif/ border =0>+oItem.filhos.item(1).text+</A>;
}
outro
{
arrff[i]=<A href=/javascript:parent.addfile('+oItem.children.item(1).text+')/><img src=/images/mediafile.gif/ border=0 height=12> +oItem.filhos.item(1).text+</A>;
}
}
//Obtém o número de colunas para saída
se (len<=6)
{x=1;
y=6;}
outro
{x=len/6;
y=6;}
para(var i=0;i<y;i++)
{strshow+=<tr>
para(var j=0;j<x;j++)
{ponits=j*y+i;
if (ponits>=len)
{
strshow+=<td> </td>;
}
outro
{
strshow+=<td>+arrff[ponits]+</td>;
}
}
strshow+=</tr>
}
strshow+=</tabela>
}
filebox.document.body.innerHTML=strshow;
}
//-->
</SCRIPT>
<script LANGUAGE=vbscript>
função verificarpasta(pastastr)
se (folderstr= ou instr(folderstr,/)=instrrev(folderstr,/)) então
pasta de verificação=
outro
npasta=esquerda(pastastr,len(pastastr)-1)
checkfolder=left(nfolder,instrrev(nfolder,/))
terminar se
função final
</script>
</HEAD>
<BODY style=margin:0 bgColor=menu onload=javascript:userlist('',0)>
<largura da tabela=443 borda=0 espaçamento de células=0>
<tr>
<td height=36><table width=409 border=0>
<tr>
<td width=73 align=right>Intervalo de pesquisa (<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 largura=20 valign=middle id=folderid></td>
<td largura=20 alinhar=esquerda><img src=images/md.gif largura=16 altura=15></td>
<td largura=28 alinhar=esquerda><img src=images/viewtype.gif largura=23 altura=14></td>
</tr>
</table></td>
</tr>
<tr>
<td height=120><table width=100% height=100% border=0>
<tr>
<td largura=9> </td>
<td>
<iframe src=blank.htm width=415 height=120 id=filebox></iframe></td>
<td largura=13> </td>
</tr>
</table></td>
</tr>
<tr>
<td height=60><table width=100% border=0>
<FORM METHOD=POST ACTION= nome=f1>
<tipo de entrada=nome oculto=valor da pasta=>
<tr>
<td width=85 align=right>Nome do arquivo (<u>N</u>): </td>
<td largura=254><tipo de entrada=texto id=nome do arquivo tamanho=34></td>
<td><button onclick=javascript:return check()> Abrir (<u>O</U>)</button></td>
</tr>
</FORM>
<tr>
<td align=right>Tipo de arquivo (<u>T</u>):</td>
<td><select nome=select2 class=s2>
<option>Streaming de arquivos de mídia (*.asf, *.wmv, *.wma)</option>
</select></td>
<td><input type=button name=Enviar valor= Cancelar onclick=window.close();></td>
</tr>
</table></td>
</tr>
</tabela>
</BODY>
</HTML>
Há também um pequeno arquivo blank.htm usado para definir o estilo de exibição de arquivos e pastas.
<!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.0 Transitional//EN>
<HTML>
<CABEÇA>
<TITLE> Novo documento </TITLE>
<estilo>
td{tamanho da fonte:9pt}
corpo{tamanho da fonte: 9pt}
.arquivo A{COR: #000000; DECORAÇÃO DE TEXTO: nenhum;tamanho da fonte:9pt}
.arquivo A:visitado{COR: #000000;DECORAÇÃO DE TEXTO: nenhum;tamanho da fonte:9pt}
.arquivo A:hover {COR: #000000;TEXTO-DECORAÇÃO: nenhum;tamanho da fonte:9pt}
</estilo>
</HEAD>
<Estilo do corpo=margem: 0pt>
</BODY>
</HTML>
Ao chamar, use a função a seguir para obter o efeito de selecionar arquivos no lado do servidor que se pareçam com os reais.
função selecionar arquivo()
{
var arr = showModalDialog(selectfile.asp?temp=+Math.random(), , dialogWidth:453px; dialogHeight:252px; status:0;help:1);
if (arr! = nulo)
{
retorno
}
}
A última coisa retornada por esta função é o nome do arquivo selecionado. Você pode pegar várias imagens usadas na função na caixa de seleção de arquivo :).