『壹』 用ASP將指定文件夾中的文件目錄輸出成XML文件
<%
set fso=server.createobject("scripting.filesystemobject")
SongList="<?xml version=""1.0"" encoding=""utf-8""?>"&chr(13)&"<player showDisplay='yes' showPlaylist='yes' autoStart='no'>"
path="E:\mp3\"
set fd=fso.getfolder(path)
for each fi in fd.files
ext="mp3" '指定擴展名，留空則獲取所有格式的文件
nlen=instrrev(fi.name,"."&ext)-1
if nlen>0 then SongList=SongList&chr(13)&"<song path=""/mp3/"&fi.name&""" title="""&left(fi.name,nlen)&"""/>"
next
set fout = fso.CreateTextFile(server.mappath("list.xml"),true,1)
fout.write SongList
fout.close
set fout=nothing
set fso=nothing
%>