Primero, cree un programa en el lado del servidor para generar un archivo XML para volver al cliente (getFolder.asp)
<%
'Escrito por Linzhang Chen, 2003-4-20
'Indique la fuente y retenga esta información de derechos de autor al reimprimir
Response.Write <? Xml versión = 1.0 codificación = GB2312?> & CHR (13)
Response.Write <MediaFile> & Chr (13)
carpetas = solicitud (carpeta)
if carpetas =/ entonces
carpetas =
final si
conteo oscuro
recuento = 0
carpetas = reemplazar (carpetas, ...,)
BaseFolder = ../Media/'Ruta de la carpeta de línea de base
Newfolder = BaseFolder y carpetas
Establecer fso = server.createObject (scripting.filesystemObject)
establecer F = fso.getfolder (server.mappath (Newfolder))
establecer sf = f.subfolders
Para cada FD en SF 'devuelve la lista de carpetas debajo de la ruta especificada
Response.Write <Sche> & Chr (13)
Response.Write <ftype> Carpeta </ftype> & chr (13)
Response.write <fname> & fd.name & </fname> & chr (13)
Response.write </sil> & chr (13)
recuento = recuento+1
próximo
establecer sf = nada
establecer ff = f.files
Para cada FI en FF
fname = fi.name
Si instrer (ASF, WMA, WMV, LCASE (MID (FNAME, INSTREV (FNAME ,.)+1)))> 0 entonces 'Establecer el tipo de archivo se puede devolver para evitar la fuga del código fuente
Response.Write <Sche> & Chr (13)
Response.Write <Ftype> File </ftype> & chr (13)
Response.write <fname> & fname & </fname> & chr (13)
Response.write </sil> & chr (13)
recuento = recuento+1
final si
próximo
'Si no hay ningún archivo en este directorio, envíe un elemento vacío
Si cuenta = 0 entonces
Response.Write <Sche> & Chr (13)
Response.write <ftype> vacía </ftype> & chr (13)
Response.Write <Fname> 0 </fname> & chr (13)
Response.write </sil> & chr (13)
final si
Response.Write </MediaFile>
establecer ff = nada
establecer f = nada
Establecer FSO = nada
%>
La siguiente es la habilidad JS del cliente (selectFile.asp)
<! Doctype html público -// w3c // dtd html 4.0 transitional // en>
<html>
<Evista>
<title> Seleccione un archivo de video </title>
<estilo>
TD {Font-Size: 9pt}
Seleccionar {ancho: 210}
.s2 {ancho: 250}
</style>
<Script Language = JavaScript>
<!-
/*Writeten de Linzhang Chen, 2003-4-20
Indique la fuente y retenga esta información de derechos de autor*/
// Fotos de precarga
var imgback = nueva imagen ();
imgback.src = imágenes/flecha.gif;
var imgbackgray = nueva imagen ();
imgbackgray.src = images/grayarrow.gif;
var imgFolder = new Image ();
imgfolder.src = imágenes/carpeta.gif;
var imggrayfolder = new Image ();
imggrayfolder.src = images/grayfolder.gif;
// Pila de matriz de registros de historia
var arrehistory = new Array ();