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

                ADOS.read(2)
                ret(2)=BinVal2(ADOS.read(2))
            case "464947":
                ADOS.read(3)
                ret(0)="gif"
                ret(1)=BinVal(ADOS.read(2))
                ret(2)=BinVal(ADOS.read(2))
            case "FFD8FF":
                dim p1
                do 
                do: p1=binVal(ADOS.Read(1)): loop while p1=255 and not ADOS.EOS
                if p1>191 and p1<196 then exit do else ADOS.read(binval2(ADOS.Read(2))-2)
                do:p1=binVal(ADOS.Read(1)):loop while p1<255 and not ADOS.EOS
            loop while true
                ADOS.Read(3)
                ret(0)="jpg"
                ret(2)=binval2(ADOS.Read(2))
                ret(1)=binval2(ADOS.Read(2))
            case else:
                if left(Bin2Str(bFlag),2)="BM" then
                    ADOS.Read(15)
                    ret(0)="bmp"
                    ret(1)=binval(ADOS.Read(4))
                    ret(2)=binval(ADOS.Read(4))