عملت كود كان شغال تمام لرفع صوره لشعار العضو وكان شغال على السيرفر المجاني تمام
بعد ما رفعته على سيرفر مدفوع صار يسيف اسم الصوره بالداتا بيز بس ما يرفعها على الموقع ليش ما اعرف السبب وتطلع صورة اكس بدل الصوره دليل انه ما في صوره نزلت على السيرفر
وهذا الكود
If up1.HasFile Then
Dim bmpW = 203
Dim bmpH = 209
Dim newWidth As Integer = bmpW
Dim newHeight As Integer = bmpH
Dim filePath As String = "~/st/Users_Image/" & User_Image & ".jpg"
Try
Dim upBmp As Bitmap = Bitmap.FromStream(up1.PostedFile.InputStream)
Dim newBmp As Bitmap = New Bitmap(newWidth, newHeight, Imaging.PixelFormat.Format24bppRgb)
newBmp.SetResolution(72, 72)
Dim upWidth As Integer = upBmp.Width
Dim upHeight As Integer = upBmp.Height
Dim newX As Integer = 0
Dim newY As Integer = 0
Dim newGraphic As Graphics = Graphics.FromImage(newBmp)
Try
newGraphic.Clear(Color.White)
newGraphic.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
newGraphic.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
newGraphic.DrawImage(upBmp, newX, newY, newWidth, newHeight)
newBmp.Save(MapPath(filePath), Imaging.ImageFormat.Jpeg)
upBmp.Dispose()
newBmp.Dispose()
newGraphic.Dispose()
Catch ex As Exception
Finally
upBmp.Dispose()
newBmp.Dispose()
newGraphic.Dispose()
End Try
Catch ex As Exception
Exit Sub
End Try
