まず、サーバー側にプログラムを作成して、クライアントに戻る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();