%
'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
[ 查看全文 ]