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")’另存为
