<%dim fso,fsofolder,fsocontent,fsocount%> <%set fso=createobject("scripting.filesystemobject")%> <%set fsofolder=fso.getfolder(server.mappath(""&webroot&"theme/"&folder))%> <%set fsocontent=fsofolder.files%> <%for each fsocount in fsofolder.subfolders%> <%next%> <%dim fsoitem%> <%for each fsoitem in fsocontent%> <%edittype=false%> <%picsrc=""%> <%call check_file(right(fsoitem.name,3))%> <%if lcase(fsoitem.name)<>"config.asp" and lcase(fsoitem.name)<>"config.xml" then%> <%end if:next%> <%set fso=nothing%> <%set fsofolder=nothing%> <%set fsocontent=nothing%>

目录/名称	文件大小	更新日期
"><%=fsocount.name%>	<%=formatnumber(fsocount.size/1024,2,true,false,true)%> KB	<%=fsocount.datelastmodified%>
<%else%>{webroot}theme/<%=folder&"/"&fsoitem.name%><%end if%>" <%if not edittype then%>title="查看详细" target="_blank"<%end if%>><%=fsoitem.name%>	<%=formatnumber(fsoitem.size/1024,2,true,false,true)%> KB	<%=fsoitem.datelastmodified%>