直接保存URL图像或网页到服务器本地的类(5)

                height=ret(2)
                imgSize=fsize
                imgType=ret(0)
                imgName=preName&"."&ret(0)
            case else
                width=0
                height=0
                imgSize=fsize
                imgName="unknow"
                imgType=".unknow"
            end select

            if SaveMode="1" then
                defaultName=imgName
                if SaveName="" then 
                    SaveName=defaultName
                else
                    if lcase(right(SaveName,4))<>"."&imgType then
                        SaveName=SaveName&"."&imgType
                    end if
                end if
            else
                defaultName=filename
            end if
            if SaveName="" then SaveName=defaultName
            SavePath=replace(SavePath,"//","/")
            if right(SavePath,1)<>"/" then SavePath=SavePath&"/"