Pertama, buat program di sisi server untuk menghasilkan file XML untuk kembali ke klien (getFolder.asp)
<%
'Ditulis oleh Linzhang Chen, 2003-4-20
'Harap tunjukkan sumbernya dan simpan informasi hak cipta ini saat mencetak ulang
Response.write <? Xml Version = 1.0 Encoding = GB2312?> & Chr (13)
Response.write <mediafile> & chr (13)
folder = permintaan (folder)
Jika folder =/ lalu
folder =
akhiri jika
jumlah redup
Hitung = 0
folder = ganti (folder, ...,)
BASEFOLDER = ../Media/'Jalur folder baseline
newfolder = Basefolder & folder
Atur fso = server.createObject (scripting.filesystemObject)
Set f = fso.getFolder (server.mappath (newfolder))
Atur SF = F. Subfolder
Untuk setiap FD di SF 'Mengembalikan daftar folder di bawah jalur yang ditentukan
response.write <pangkangkuan> & chr (13)
Response.write <ftype> Folder </ftype> & chr (13)
Response.write <fname> & fd.name & </fname> & chr (13)
response.write </pangkel> & chr (13)
hitung = hitung+1
Berikutnya
atur sf = tidak ada
atur ff = f.files
untuk setiap fi dalam ff
fname = fi.name
if instr (asf, wma, wmv, lcase (mid (fname, instrrev (fname ,.)+1))> 0 lalu atur jenis file yang diizinkan untuk dikembalikan untuk mencegah bocor kode sumber sumber sumber sumber sumber
response.write <pangkangkuan> & chr (13)
response.write <ftype> file </ftype> & chr (13)
Response.write <fname> & fname & </fname> & chr (13)
response.write </pangkel> & chr (13)
hitung = hitung+1
akhiri jika
Berikutnya
'Jika tidak ada file di direktori ini, kirim elemen kosong
Jika menghitung = 0 lalu
response.write <pangkangkuan> & chr (13)
Response.Write <ftype> kosong </ftype> & chr (13)
Response.write <fname> 0 </fname> & chr (13)
response.write </pangkel> & chr (13)
akhiri jika
response.write </mediafile>
atur ff = tidak ada
atur f = tidak ada
atur fso = tidak ada
%>
Berikut ini adalah keterampilan JS klien (selectfile.asp)
<! Doctype html public -// w3c // dtd html 4.0 transisi // en>
<Html>
<head>
<title> pilih file video </iteme>
<tyle>
TD {font-size: 9pt}
SELECT {width: 210}
.s2 {lebar: 250}
</tyle>
<Bahasa skrip = javascript>
<!-
/*Writeten oleh Linzhang Chen, 2003-4-20
Harap tunjukkan sumbernya dan simpan informasi hak cipta ini*/
// gambar preload
var imgback = gambar baru ();
imgback.src = gambar/panah.gif;
var imgbackgray = gambar baru ();
imgbackgray.src = gambar/grayarrow.gif;
var imgfolder = gambar baru ();
imgfolder.src = gambar/folder.gif;
var imggrayfolder = gambar baru ();
imggrayfolder.src = gambar/grayfolder.gif;
// Sejarah Rekor Array Stack
var arrhistory = array baru ();