首先在伺服器端先建立一個程式可以產生XML檔案，以返回用戶端，（getfolder.asp） <% written by Linzhang Chen ,2003-4-20 轉載請註明出處和保留此著作權資訊 response.write ""&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...
