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

                else
                    ret(0)=""
                end if
            end select
            '
            dim tempStr
            dim nameStr
            dim defaultName
            dim ln
            tempStr=split(GetStrUrl,"/")
            nameStr=tempStr(ubound(tempStr))
            if nameStr="" then
                r_write "错误的URL,请输入可访问的URL",0
                exit function
            end if
            fileName=split(nameStr,"?")(0)
            ln=inStrRev(fileName,".")
            if ln>0 then 
                preName=left(fileName,inStrRev(fileName,".")-1)
            else
                preName=fileName
            end if
            'R_write fileName,1
            'R_write inStrRev(fileName,"."),1
            'R_write fileName,0
            extName=right(fileName,len(fileName)-inStrRev(fileName,"."))

            Select case ret(0)
            case "png","jpg","bmp","gif","swf"
                width=ret(1)