buraya okuduğumuz bölümden terim giriyoruz

#Region "yukle_btn_Click"
Protected Sub yukle_btn_Click(ByVal sender As Object, ByVal e As System. EventArgs) Handles yukle_btn. Click
Dim fileOK As Boolean = False
Dim sizeOk As Boolean = False
urun_resim. ImageUrl = ""
If yukle. HasFile = True Then
Dim fileExtension As String
fileExtension = System.IO.Path. GetExtension(yukle. FileName).ToLower()
Dim allowedExtensions As String() = {".jpg"}
For i As Integer = 0 To allowedExtensions. Length - 1
If fileExtension = allowedExtensions(i) Then
fileOK = True
If yukle. PostedFile.ContentLength < 102400 Then
sizeOk = True
End If
End If
Next
If fileOK Then
If sizeOk Then
Try
'MsgBox(Server. MapPath("urun_img/") & id_lbl. Text.Trim. ToString + ".jpg")
yukle. PostedFile.SaveAs(Server. MapPath("urun_img/" + id_lbl. Text.Trim. ToString + ".jpg"))
lblmessage. Text = "Resim başarıyla alındı."
urun_resim. ImageUrl = "urun_img/" + id_lbl. Text.Trim. ToString + ".jpg"
Catch ex As Exception
lblmessage. Text = "Resim alınamadı. <br/> Hata içeriği: " + ex.Message. ToString
End Try
Else
lblmessage. Text = "Resim çözünürlüğü çok yüksek. Resim alınamadı. :" + yukle. PostedFile.ContentLength. ToString
End If
Else
lblmessage. Text = "Sadece JPG türünde dosyalar eklenebilir. Gösterdiğiniz dosya " + fileExtension + " formatında."
End If
End If
End Sub
2. End Region