ASP中用XML+FSO+JS实现服务器端文件的选择

ASP中用XML+FSO+JS实现服务器端文件的选择2010-11-20Linzhang Chen首先在服务器端先创建一个程序可以生成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 "<ftype>folder</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 "<ftype>file</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 "<ftype>empty</ftype>"&chr（13）
response.write "<fname>0</fname>"&chr（13）
response.write "</file>"&chr（13）
end if
response.write "</mediafile>"
set ff=nothing
set f=nothing
set fso=nothing
%>