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

<% @ LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit

Class BoxInfoImg
    '传输类的使用方法
    '图象上传和上传信息获取CLASS

    '用法:
    'dim imgUp
    'set imgUp=new BoxInfoImg

    '属性: 
    'imgUp.width    '宽
    'imgUp.height    '高
    'imgUp.imgSize    '大小
    'imgUp.imgType    '类型
    'imgUp.imgName    '文件名
    'imgUp.imgName '图像文件名:"&
    'imgUp.filename '文件名"&
    'imgUp.extName '扩展名"
    'imgUp.DiskPath '保存位置"
    'imgUp.XuPath '虚拟路径"
    'imgUp.NewUrl '保存后url"
    'imgUp.SaveMode '保存后url"

    '方法:
    'imgUp.saveImg(fullpath)    '保存图像文件

    dim ADOS
    dim width,height,imgSize,imgType,imgName,fileName
    dim preName,extName
    dim SavePath,SaveName,SaveMode
    dim DiskPath,XuPath,NewUrl
    dim textStr
    dim i

    Private Sub Class_Initialize
        set ADOS=Server.CreateObject("Adodb.Stream")
            ADOS.Type=1 
            ADOS.Mode=3 
            ADOS.Open 
            getImageSize
    End Sub

    Private Sub Class_Terminate
        ADOS.close
        set ADOS=nothing
    End Sub

    Public Function getImageSize() 

            dim ret(3),bFlag,fdata,fsize

            fdata=GetWebData(GetStrUrl) '取得XmlHttp数据
            fsize=clng(lenb(fdata))        '取得数据尺寸