推荐订阅源

  Sub make_pic(ByVal str_filename As String) ' str_filename 是文件的名称
                Try
                        Dim image, aNewImage As System.Drawing.Image
                        Dim callb As System.Drawing.Image.GetThumbnailImageAbort
                        Dim width, height, newwidth, newheight As Int32
                        image = System.Drawing.Image.FromFile(Server.MapPath("image/person/" & str_filename))
                        '    image = System.Drawing.Image.FromStream(imgstream)
                        width = image.Width   ' image.Width
                        height = image.Height   'image.Height
                        Response.Write("<br>原始图片高为:" & height)
                        Response.Write("<br>原始图片宽为:" & width)
                        aNewImage = image.GetThumbnailImage(150, 150, callb, New IntPtr)
                        aNewImage.Save(Server.MapPath("image/person/aaaaaa.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)
                        image.Dispose()
                Catch ex As Exception
                        Response.Write(ex.Message)
                End Try
        End Sub

1.
aNewImage.Save(Server.MapPath("image/person/aaaaaa.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)中的Server.MapPath("image/person/aaaaaa.jpg") 是保存图象。如果原始图象和保存图像是一样的文件名的话，会有错误发生的（注意）

2.
 Sub make_pic(ByVal str_filename As String)  的参数也可以是对象类型， 

 定义成 sub make_pic(byval   Imgstream)

那image就应该写成  image = System.Drawing.Image.FromStream(imgstream)