首先在服务器端先创建一个程序可以生成XML文件，以返回客户端，（getfolder.asp）
<%
'written by Linzhang Chen ,2003-4-20
' 转载请注明出处和保留此版权信息
response.write "<?xml version=""1.0"" encoding=""GB2312""?"&chr(13)
response.write "<mediafile"&chr(13)
folders=request("folder")
if folders="/" then
folders=""
end if
dim count
count=0
folders=replace(folders,"..","")
basefolder="../media/"'基准的文件夹路径
newfolder=basefolder&folders
Set fso =server.CreateObject("Scripting.FileSystemObject")
set f=fso.getfolder(server.mappath(newfolder))
set sf=f.subfolders
for each fd in sf'返回指定路径下面的文件夹列表
response.write "<file"&chr(13)
response.write "<ftypefolder</ftype"&chr(13)
response.write "<fname"&fd.name&"</fname"&chr(13)
response.write "</file"&chr(13)
count=count+1
next
set sf=nothing
set ff=f.Files
for each fi in ff
fname=fi.name
if instr("asf,wma,wmv",lcase(mid(fname,instrrev(fname,".")+1)))0 then'设定允许返回的文件类型，防止源码泄露
response.write "<file"&chr(13)
response.write "<ftypefile</ftype"&chr(13)
response.write "<fname"&fname&"</fname"&chr(13)
response.write "</file"&chr(13)
count=count+1
end if
next
'如果该目录下没有文件，就发一个空元素
if count=0 then
response.write "<file"&chr(13)
response.write "<ftypeempty</ftype"&chr(13)
response.write "<fname0</fname"&chr(13)
response.write "</file"&chr(13)
end if
response.write "</mediafile"
set ff=nothing
set f=nothing
set fso=nothing
%
下面就是客户端的JS的功夫了(selectfile.asp)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
<HTML
<HEAD
<TITLE 选择视频文件 </TITLE
<style
td{font-size:9pt}
select{width:210}
.s2{width:250}
</style
<SCRIPT LANGUAGE="JavaScript"
<!--
/*written by Linzhang Chen ,2003-4-20
转载请注明出处和保留此版权信息 */
//预装载图片
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();
var hisi=0;
//用来确定要返回文件名
function check()
{
if (document.all.filename.value=="")
{
alert("请先选择文件");
return false;
}
else
{
window.returnValue =document.f1.folder.value+document.all.filename.value;
window.close();
}
}
//取得XML文件的内容
function getuserlist(url)
{ var oXMLDoc = new ActiveXObject('MSXML');
oXMLDoc.url = url;
var ooRoot=oXMLDoc.root;
return ooRoot;
}
//当选中一个文件时，把这个值返回给文本框
function addfile(txt)
{
document.all.filename.value=txt;
}
var first=1;//定义一个全局变量
function userlist(folders,ti)//列出所选框
{document.f1.folder.value=folders;
filebox.document.body.innerHTML="正在加载文件，请稍侯...";
var strshow="";
var timeoutid=null;
var newfolder="";
var arrfolder=new Array();
var arrff=new Array();
var blankstr="";
var oItem;
//确定历史状态
hisi+=ti;
arrhistory[hisi]=folders;
if (hisi==0)
{
arrow.innerHTML="<img src="http://img.jcwcn.com/attachment/portal/jcwcj/2005-12/10/05121001041178172.gif""";
}
else
{
arrow.innerHTML="<img src="http://img.jcwcn.com/attachment/portal/jcwcj/2005-12/10/05121001041199626.gif"" border=0 style="cursor:hand" onclick="userlist('"+arrhistory[hisi-1
