On Error Resume Next
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set fd = fs.GetFolder( Server.MapPath(Folder) )
' 输出「上一层文件夹」
If Folder <> "/" Then ' 是否有上一层文件夹
HREF_Path = MakeFolderHREF(AspPath, fd.ParentFolder.Path)
Response.Write HREF_Path & "[上一层文件夹]</A><BR>"
End If
' 输出文件夹
For Each sfd In fd.SubFolders
HREF = "<IMG SRC=folder.gif Align=TextTop> "
HREF = HREF & MakeFolderHREF(AspPath, sfd.Path )
Response.Write HREF & sfd.Name & "</A><BR>"
Next
Response.Write "<BR>"
' 输出文件
For Each f In fd.Files
HREF = "<IMG SRC=file.gif Align=TextTop> " & MakeFileHREF(f.Path)
Response.Write HREF & f.Name & "</A><BR>"
Next
%>
</BODY></HTML>