【下载文档:  用XML+FSO+JS实现服务器端文件的选择效果.txt 】

---

用XML+FSO+JS实现服务器端文件的选择效果
<%'written by Linzhang Chen ,2003-4-20 ' 转载请注明出处和保留此版权信息 response.write ""&chr(13)response.write ""&chr(13)folders=request("folder")if folders="/" thenfolders=""end ifdim countcount=0folders=replace(folders,"..","")basefolder="../media/"'基准的文件夹路径newfolder=basefolder&foldersSet fso =server.CreateObject("Scripting.FileSystemObject")set f=fso.getfolder(server.mappath(newfolder))set sf=f.subfoldersfor each fd in sf'返回指定路径下面的文件夹列表response.write ""&chr(13)response.write "folder"&chr(13)response.write ""&fd.name&""&chr(13)response.write ""&chr(13)count=count+1nextset sf=nothingset ff=f.Filesfor each fi in fffname=fi.nameif instr("asf,wma,wmv",lcase(mid(fname,instrrev(fname,".")+1)))>0 then'设定允许返回的文件类型，防止源码泄露response.write ""&chr(13)response.write "file"&chr(13)response.write ""&fname&""&chr(13)response.write ""&chr(13)count=count+1end ifnext'如果该目录下没有文件，就发一个空元素if count=0 thenresponse.write ""&chr(13)response.write "empty"&chr(13)response.write "0"&chr(13)response.write ""&chr(13)end ifresponse.write ""set ff=nothingset f=nothingset fso=nothing%>下面就是客户端的JS的功夫了(selectfile.asp)

查找范围(I):

文件名(N): 打开(O) 文件类型(T): 流媒体文件(*.asf,*.wmv,*.wma)

里面还有一个小文件blank.htm用来定义文件和文件夹显示的样式

调用的时候用以下函数，就可以实现以假乱真的服务器端选择文件的效果function selectfile(){var arr = showModalDialog("selectfile.asp?temp="+Math.random(), "", "dialogWidth:453px; dialogHeight:252px; status:0;help:1"); if (arr != null) { return arr }} 该函数最后返回的是选中的文件名,函数里面所使用的几张图片大家就自已从文件选择框上抓了：）