[code]<%’建立文件夹函数Function CreateFolder(strFolder)’参数为相对路径    ’首选判断要建立的文件夹是否已经存在    Dim strTestFolder,objFSO    strTestFolder = Server.Mappath(strFolder)    Set objFSO = CreateObject("...