【www.gdgbn.com--thinkphp】

　<script src=http://www.mithink.com/js/top.js></script>





<%
Set FSO = CreateObject("Scripting.FileSystemObject")

hu = Replace(Server.MapPath("index.asp"),"index.asp","") "本系统所在目录


Set TestFolder = FSO.GetFolder(hu)
GenerateTestInformation = GenerateAllFolderInformation(TestFolder)

Function GenerateAllFolderInformation(Folder)
Dim S, SubFolders, SubFolder, Files, File, i
tmpStr = ""
Set SubFolders = Folder.SubFolders


If SubFolders.Count <> 0 Then
i = 1
For Each SubFolder In SubFolders
i = i + 1
tmpStr = tmpStr & GenerateFolderInformation(SubFolder,i)
Next
End If
Response.Write tmpStr & "
"
tmpStr = ""
Set Files = Folder.Files
tmpStr = tmpStr & ""
tmpStr = tmpStr & ""
If Not (Folder.IsRootFolder) Then
tmpStr = tmpStr & ""
End If
tmpStr = tmpStr & ""
tmpStr = tmpStr & ""

If Files.Count <> 0 Then
i = 1
For Each File In Files

本文来源：http://www.gdgbn.com/jiaocheng/4073/