Primeiro, crie um programa no lado do servidor para gerar um arquivo XML para retornar ao cliente, (getfolder.asp)
<%
'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 "<arquivo de mí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>
<SCRIPT LANGUAGE="JavaScript">
<!--
/* escrito por Linzhang Chen, 20/04/2003
Por favor indique a fonte e guarde esta informação de direitos autorais ao reimprimir*/
//Pré-carregar imagens
var imgback = nova imagem();
imgback.src = "imagens/seta.gif";
var imgbackgray = nova imagem();
imgbackgray.src = "images/grayarrow.gif";
var imgfolder = new Imagem();
imgfolder.src = "imagens/pasta.gif";
var pasta imggray = 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.filename.value=="")
{
alert("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;//Definir uma variável global
function userlist(folders,ti)//Listar 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("Opção");
_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="<table class=arquivo cellpacing=0 cellpadding=0>";
len=oRoot.filhos.comprimento;
se (len==1)
{oItem = oRoot.filhos.item(0);
if(oItem.children.item(0).text=="vazio")
strshow="Não há mais arquivos e 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+="</table>"
}
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.children.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.children.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+="</table>"
}
filebox.document.body.innerHTML=strshow;
}
//-->
</SCRIPT>
<script LANGUAGE="vbscript">
função verificarpasta(pastastr)
if (folderstr="" ou instr(folderstr,"/")=instrrev(folderstr,"/")) então
verificarpasta=""
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)">
<table width="443" border="0" cellpacing="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 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>
</table></td>
</tr>
<tr>
<td height="120"><table width="100%" height="100%" border="0">
<tr>
<td width="9"> </td>
<td>
<iframe src="blank.htm" width=415 height=120 id="filebox"></iframe></td>
<td width="13"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="60"><table width="100%" border="0">
<FORM METHOD=POST ACTION="" nome="f1">
<input type="hidden" name="pasta" valor="">
<tr>
<td width="85" align="right">Nome do arquivo (<u>N</u>): </td>
<td width="254"><input type="text" id="filename" size="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 name="select2" class=s2>
<option>Streaming de arquivos de mídia (*.asf, *.wmv, *.wma)</option>
</select></td>
<td><input type="button" name="Submit" value=" 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>
<BODY style="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 :).
Estima-se que você possa encontrar vários BUGs desconhecidos durante o uso. Bem-vindos a todos para se comunicarem comigo: E-mail: [email protected].