<%dim fso,fsofolder,fsocontent,fsocount%> <%set fso=createobject("scripting.filesystemobject")%> <%set fsofolder=fso.getfolder(server.mappath(""&webroot&"theme/"&theme_root&"/block"))%> <%set fsocontent=fsofolder.files%> <%dim fsoitem,i%> <%i=0%> <%for each fsoitem in fsocontent%> <%if lcase(fsoitem.name)<>"config.asp" then%> <%dim name:name=fsoitem.name%> <%dim txt:txt=mid(name,instr(name,"."))%> "> <%i=i+1%> <%end if:next%> <%if i=0 then%> <%end if%> <%set fso=nothing%> <%set fsofolder=nothing%> <%set fsocontent=nothing%>

文件名称	区块说明	更新日期	管理
"><%=replace(name,txt,"")%>	<%=getblockname("block/"&name)%>	<%=fsoitem.datelastmodified%>	">调用　">编辑　">删除
没有区块