Tout d'abord, créez un programme côté serveur pour générer un fichier XML pour revenir au client (getfolder.asp)
<%
«Écrit par Linzhang Chen, 2003-4-20
'Veuillez indiquer la source et conserver ces informations sur le droit d'auteur lors de la réimpression
Response.Write <? XML Version = 1.0 Encoding = GB2312?> & Chr (13)
Response.Write <diaFile> & Chr (13)
dossiers = demande (dossier)
Si les dossiers = / alors
dossiers =
terminer si
dénombrement faible
comte = 0
dossiers = remplacer (dossiers, ...,)
BaseFolder = .. / Media / 'Chemin de dossier de base
newfolder = basefolder et dossiers
Set fso = server.createObject (scripting.fileSystemObject)
set f = fso.getfolder (server.mappath (newfolder))
Définir SF = F.
Pour chaque FD dans SF 'renvoie la liste des dossiers sous le chemin spécifié
Response.Write <Fichier> & Chr (13)
Response.Write <FType> Folder </fType> & Chr (13)
réponse.write <fname> & fd.name & </fname> & chr (13)
Response.Write </Fichier> & Chr (13)
Count = Count + 1
suivant
Définir SF = rien
Définir FF = F.Files
pour chaque fi en FF
fname = fi.name
Si instr (asf, wma, wmv, lcase (mid (fName, instrrev (fname,.) + 1)))> 0 alors 'définir le type de fichier autorisé à être renvoyé pour éviter la fuite de code source
Response.Write <Fichier> & Chr (13)
Réponse.Write <FType> Fichier </fType> & Chr (13)
Response.Write <fname> & fname & </fname> & chr (13)
Response.Write </Fichier> & Chr (13)
Count = Count + 1
terminer si
suivant
'S'il n'y a pas de fichier dans ce répertoire, envoyez un élément vide
Si compter = 0 alors
Response.Write <Fichier> & Chr (13)
Response.Write <FType> vide </fType> & Chr (13)
Response.Write <fname> 0 </fname> & Chr (13)
Response.Write </Fichier> & Chr (13)
terminer si
réponse.write </diafile>
définir ff = rien
Définir F = rien
Définir FSO = rien
%>
Ce qui suit est la compétence JS du client (selectFile.asp)
<! Doctype html public - // w3c // dtd html 4.0 transitional // en>
<html>
<adal>
<Title> Sélectionnez un fichier vidéo </TITME>
<style>
TD {Font-Size: 9pt}
sélectionnez {largeur: 210}
.S2 {largeur: 250}
</ style>
<Script Language = JavaScript>
<! -
/ * écriture de Linzhang Chen, 2003-4-20
Veuillez indiquer la source et conserver ces informations sur le droit d'auteur * / /
// Préchargement des photos
var imgback = new image ();
imgback.src = images / arrow.gif;
var imgBackGray = new Image ();
imgbackgray.src = images / grayarrow.gif;
var imgfolder = new image ();
imgfolder.src = images / dossier.gif;
var imgGRayFolder = new Image ();
IMGGRAYFOLDER.SRC = Images / GrayFolder.gif;
// Stack de tableau d'enregistrement d'historique
var arrhistory = new Array ();