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

            chkInfo="<li>"+"传输图像数据不存在,请确定你的URL是否正确"
        end if
    case else 
        chkInfo="<li>无效的传输格式,允许图像数据格式为 ""png"",""jpg"",""bmp"",""gif""</li>"
    end select

    'R_Write SavePath,1
    'R_Write mode,1
    'R_Write imgUp.imgName,1
    'R_Write imgUp.filename,1
    'R_Write "SaveName="&SaveName,1

    if mode="1" and chkInfo<>"" then '检查上传图像数据合格后,则保存之
            call tform()
            R_Write chkInfo,0
    else
        Server.ScriptTimeOut=5000
        imgUp.saveImg imgUp.DiskPath     
    end if
'-------------
            R_write "<b>===处理结果部分资料===</b><br>",1
            R_write "　　宽:"&imgUp.width&" pix",1
            R_write "　　高:"&imgUp.height&" pix",1
            R_write "　大小:"&formatnumber(imgUp.imgSize/1024,2,-1)&" KB",1
            R_write "　格式:"&imgUp.imgType,1
            R_write "图像文件名:"&imgUp.imgName,1
            R_write "文件名:"&imgUp.filename,1
            R_write "扩展名:"&imgUp.extName,1
            R_write "保存位置:"&imgUp.DiskPath,1
            R_write "虚拟路径:"&imgUp.XuPath,1
            R_write "保存后url:"&imgUp.NewUrl,1
        call tform()
        set imgUp=nothing 
            R_write "------------------------<br>传输完毕",0