<%@ Language=VBScript%> <%function bianli(path) set fso=server.CreateObject(scripting.filesystemobject) on error resume next set objFolder=fso.GetFolder(path) set objSubFolders=objFolder.Subfolders for each objSubFolder in objSubFolders nowpath=path + \ + objSubFolder.name Response.Wri