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