Asp遍曆文件夾內(nèi)的(de)內(nèi)容[支持JPG,GIF,MDB等所有文件]

<%
 sub ListFolderContents(path)
    dim fs, folder, file, item, url
    set fs = CreateObject("Scripting.FileSystemObject")
    set folder = fs.GetFolder(path)
 '  Response.Write("<li><b>" & folder.Name & "</b>－總共發現" & folder.Files.Count & " 文件,<ul>" & vbCrLf)
    for each item in folder.SubFolders
        ListFolderContents(item.Path)
    next
   
    for each item in folder.Files
 
'如(rú)果需要鏈接文件
'<a href=""" & MapURL(item.path) & """ target='_blank'>" & item.Name & "</a>
'實際路徑：" & item.path & "
        Response.Write("<li><b>../EyDataBase_Backup/" & item.Name & "</b></li>" & vbCrLf)
    next
   
    Response.Write("</ul>" & vbCrLf)
   
    Response.Write("</li>" & vbCrLf)

end sub

function MapURL(path)
    MapURL = Replace(Right(path, Len(path) - Len(Server.MapPath("/"))), "\", "/")
end function
 
  ListFolderContents("F:\WebCmsByLwp\EyDataBase_Backup\")
 
  %>