学步园

       Dim ImgByt() As Byte

        Dim ImgMS As IO.MemoryStream

        ImgByt = System.IO.File.ReadAllBytes(strImg)‘把图片读入一个字节数组
       
        ImgMS = New System.IO.MemoryStream(ImgByt)’把该数组读入内存

        Dim image As System.Drawing.Image

        image = Drawing.Image.FromStream(ImgMS)

        Response.BinaryWrite(ImgByt)‘向客户端发送
      
        image.Save("c:/k.jpg")’另存为