首先在服务器端先创建一个程序可以生成xml文件，以返回客户端，（getfolder.asp） &chr(13) response.write &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 &chr(13) response.write folder&chr(13) response.write &fd.name&&chr(13) response.write &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 &chr(13) response.write file&chr(13) response.write &fname&&chr(13) response.write &chr(13) count=count+1 end if next 如果该目录下没有文件，就发一个空元素 if count=0 then response.write &chr(13) response.write empty&chr(13) response.write 0&chr(13) response.write &chr(13) end if response.write set ff=nothing set f=nothing set fso=nothing %> 下面就是客户端的js的功夫了(selectfile.asp)
选择视频文件 查找范围(i):     文件类型(t): 流媒体文件(*.asf,*.wmv,*.wma) 里面还有一个小文件blank.htm用来定义文件和文件夹显示的样式 new document 调用的时候用以下函数，就可以实现以假乱真的服务器端选择文件的效果 function selectfile() { var arr = showmodaldialog(selectfile.asp?temp=+math.random(), , dialogwidth:453px; dialogheight:252px; status:0;help:1); if (arr != null) { return arr } } 该函数最后返回的是选中的文件名,函数里面所使用的几张图片大家就自已从文件选择框上抓了：） 估计在使用过程中可能还会遇到各种未知的bug欢迎大家和我来交流:e_mail:clzwin@sina.com
http://www.bkjia.com/phpjc/532141.htmlwww.bkjia.comtruehttp://www.bkjia.com/phpjc/532141.htmltecharticle首先在服务器端先创建一个程序可以生成xml文件，以返回客户端，（getfolder.asp） quot; quot;folder) if folders=/ then folders= end if dim count count=0 fo...