asp能批量上传本地文件夹里的所有图片到服务器吗？

如题。可以的话给个代码看下

---

高手帮忙下

<%@ Language=VBScript %>
<%
    function bianli(path)
        dim fso
        dim objFolder
        dim objSubFolders
        dim objSubFolder
        dim objFiles
        dim objFile
        set fso=server.CreateObject("scripting.filesystemobject")   
        set objFolder=fso.GetFolder(path)
        set objSubFolders=objFolder.Subfolders
        for each objSubFolder in objSubFolders
            nowpath=path + "\" + objSubFolder.name
            Response.Write nowpath
            set objFiles=objSubFolder.Files
            for each objFile in objFiles
                Response.Write " <br>---"
                Response.Write objFile.name
            next
            Response.Write " <p>"
            bianli(no