まず、サーバー側にプログラムを作成して、クライアントに戻るXMLファイルを生成します（getFolder.asp）
<％
'Linzhang Chenによって書かれた、2003-4-20
「転載時にソースを示し、この著作権情報を保持してください
respons.write <？xmlバージョン= 1.0エンコード= gb2312？>＆chr（13）
respons.write <mediafile>＆chr（13）
フォルダ=リクエスト（フォルダー）
フォルダー=/ thenの場合
フォルダー=
ifを終了します
薄暗いカウント
count = 0
フォルダー=交換（フォルダー、...、）
BaseFolder = ../Media/'ベースラインフォルダーパス
newFolder = baseFolder＆Folders
fso = server.createObject（scripting.filesystemObject）を設定します
f = fso.getfolder（server.mappath（newfolder））を設定
sf = f.subfoldersを設定します
SFの各FDについて、指定されたパスの下にフォルダリストを返します
Response.write <file>＆chr（13）
Response.write <ftype>フォルダー</ftype>＆chr（13）
respons.write <fname>＆fd.name＆</fname>＆chr（13）
Response.Write </file>＆chr（13）
count = count+1
次
SF = Nothingを設定します
ff = f.filesを設定します
FFの各FIについて
fname = fi.name
If grust（asf、wma、wmv、lcase（mid（fname、instrrev（fname、。）+1））> 0）> 0
Response.write <file>＆chr（13）
Response.write <ftype> file </ftype>＆chr（13）
respons.write <fname>＆fname＆</fname>＆chr（13）
Response.Write </file>＆chr（13）
count = count+1
ifを終了します
次
「このディレクトリにファイルがない場合は、空の要素を送信します
カウント= 0の場合
Response.write <file>＆chr（13）
respons.write <ftype> empty </ftype>＆chr（13）
respons.write <fname> 0 </fname>＆chr（13）
Response.Write </file>＆chr（13）
ifを終了します
Response.Write </MediaFile>
FF =何も設定しません
f =何も設定しません
FSO =何も設定しません
％>
以下はクライアントのJSスキル（SelectFile.asp）です
<！doctype html public - // w3c // dtd html 4.0 transitional // en>
<html>
<head>
<Title>ビデオファイルを選択</title>
<style>
TD {font-size：9pt}
{width：210}を選択します
.s2 {width：250}
</style>
<スクリプト言語= javascript>
<！ -
/*Linzhang ChenによるWriteten、2003-4-20
ソースを示して、この著作権情報を保持してください*/
// Preload Pictures
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/folder.gif;
var imggrayfolder = new Image（）;
imggrayfolder.src = images/grayfolder.gif;
//履歴レコードアレイスタック
var arrhistory = new Array（）;