Imports System.Data.SqlClient Imports System.Configuration.ConfigurationManager Imports System.Drawing 'bitmap icin Imports System.Drawing.Imaging 'image çizimi için Partial Class panel_haber_duzenle Inherits System.Web.UI.Page Private Sub panel_haber_duzenle_Init(sender As Object, e As EventArgs) Handles Me.Init Dim cookie As HttpCookie = Request.Cookies("kullanici") 'cookie silindi ise ana sayfaya döner If cookie Is Nothing Then Response.Redirect("default.aspx") End If '---------------------------------------------------------- If Page.IsPostBack = False Then 'sayfa ilk yüklendiğinde çalışıp bir daha bu koda girmemesi için Dim conn As New SqlConnection(ConnectionStrings("ConnectionString").ToString) Dim COMM As New SqlCommand Dim rdr As SqlDataReader conn.Open() COMM = conn.CreateCommand() COMM.CommandText = "SELECT * FROM HABERLER WHERE id = '" & Request.QueryString("K") & "'" rdr = COMM.ExecuteReader If rdr.Read Then e_haberid.Value = Request.QueryString("K") e_tarih.Text = rdr("TARIH").ToString e_baslik.Text = rdr("BASLIK").ToString e_haberdetay.Content = "" & rdr("DETAY").ToString & "" 'resimler resim1.Text = rdr("RESIM1").ToString Image1.ImageUrl = "~/imageshaberler/" + rdr("RESIM1").ToString resim2.Text = rdr("RESIM2").ToString Image2.ImageUrl = "~/imageshaberler/" + rdr("RESIM2").ToString resim3.Text = rdr("RESIM3").ToString Image3.ImageUrl = "~/imageshaberler/" + rdr("RESIM3").ToString resim4.Text = rdr("RESIM4").ToString Image4.ImageUrl = "~/imageshaberler/" + rdr("RESIM4").ToString resim5.Text = rdr("RESIM5").ToString Image5.ImageUrl = "~/imageshaberler/" + rdr("RESIM5").ToString resim6.Text = rdr("RESIM6").ToString Image6.ImageUrl = "~/imageshaberler/" + rdr("RESIM6").ToString End If conn.Close() End If End Sub Private Sub kaydet_Click(sender As Object, e As EventArgs) Handles kaydet.Click On Error GoTo hata_kayit Dim conn As New SqlConnection(ConnectionStrings("ConnectionString").ToString) Dim COMM As New SqlCommand Dim sql1 As String Dim SAYI As Long Dim dosyaad As String Dim bmp As Bitmap mesaj1.Text = "" mesaj1.Visible = False mesaj2.Text = "" mesaj2.Visible = False '----------------------------------------------------------------------------------------------------------------------------------------------------- '1.resim resmin boyutlandırmasını yaparak gönderir SAYI = Randomizer(1000, 9999) Label29.Text = "" If FileUpload1.FileName <> "" Then If FileUpload1.HasFile Then 'dosya var ise If FileUpload1.PostedFile.ContentLength < 2000000 Then '2 mbit ten büyük dosya yüklenemez dosyaad = SAYI.ToString + "_" + FileUpload1.FileName If resim1.Text <> "" Then System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + resim1.Text) 'daha önceki resmi silip değişen resmi atar FileUpload1.SaveAs(Server.MapPath("~/imageshaberler/") + dosyaad) 'fotoyu server a attık '------------------------------yüklenmek istenen resmin boyutunu ayarlar------------------------------------------------- bmp = New Bitmap(Server.MapPath("~/imageshaberler/" + dosyaad)) 'Kayıt ettğimiz fotoyu çağırıp üzerinde işlem yapıyoruz 'resmi en/boy oranında orantılı küçültür ------------------------------------------ Dim genislik As Integer = 800 'resmin genişliği max 800 yüksekliği max 700 olsun istiyoruz Dim yukseklik As Integer = 700 Dim ebatlar As New Size(bmp.Width, bmp.Height) If bmp.Width > genislik OrElse bmp.Height > yukseklik Then 'eğer istenilen ebatlardan büyükse boyutlandırma yapar 'resmin genişlik ve yükseklik oranını alıyoruz. Dim oran As Double = (CDbl(bmp.Width) / CDbl(bmp.Height)) If bmp.Width > genislik Then ebatlar.Width = genislik ebatlar.Height = CInt(CDbl(genislik) / oran) End If If ebatlar.Height > yukseklik Then ebatlar.Height = yukseklik ebatlar.Width = CInt(CDbl(yukseklik) * oran) End If Dim yeniresim As Bitmap = New Bitmap(bmp, ebatlar) bmp.Dispose() 'eskisini silip boyutlanan resimleri atar System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + dosyaad) 'İlk yüklediğimiz resmin boyutlarını değiştirdiği için ilk yüklediğimiz resmi siliyor. yeniresim.Save(Server.MapPath("~/imageshaberler/" + dosyaad), ImageFormat.Jpeg) yeniresim.Dispose() End If '------------------------------------------------------------------------------------------------------------------------ resim1.Text = dosyaad Label29.Text = FileUpload1.FileName + " resim yüklendi" Image1.ImageUrl = "~/imageshaberler/" + resim1.Text Else Label29.Text = "Resim boyutu 2mb den büyük.Yüklenemedi" End If Else Label29.Text = FileUpload1.FileName + " resim yüklenemedi !!!" End If End If '2.resim resmin boyutlandırmasını yaparak gönderir SAYI = Randomizer(1000, 9999) Label30.Text = "" If FileUpload2.FileName <> "" Then If FileUpload2.HasFile Then 'dosya var ise If FileUpload2.PostedFile.ContentLength < 2000000 Then '2 mbit ten büyük dosya yüklenemez dosyaad = SAYI.ToString + "_" + FileUpload2.FileName If resim2.Text <> "" Then System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + resim2.Text) 'daha önceki resmi silip değişen resmi atar FileUpload2.SaveAs(Server.MapPath("~/imageshaberler/") + dosyaad) 'fotoyu server a attık '------------------------------yüklenmek istenen resmin boyutunu ayarlar------------------------------------------------- bmp = New Bitmap(Server.MapPath("~/imageshaberler/" + dosyaad)) 'Kayıt ettğimiz fotoyu çağırıp üzerinde işlem yapıyoruz 'resmi en/boy aranında orantılı küçültür ------------------------------------------ Dim genislik As Integer = 800 'resmin genişliği max 800 yüksekliği max 700 olsun istiyoruz Dim yukseklik As Integer = 700 Dim ebatlar As New Size(bmp.Width, bmp.Height) If bmp.Width > genislik OrElse bmp.Height > yukseklik Then 'eğer istenilen ebatlardan büyükse boyutlandırma yapar 'resmin genişlik ve yükseklik oranını alıyoruz. Dim oran As Double = (CDbl(bmp.Width) / CDbl(bmp.Height)) If bmp.Width > genislik Then ebatlar.Width = genislik ebatlar.Height = CInt(CDbl(genislik) / oran) End If If ebatlar.Height > yukseklik Then ebatlar.Height = yukseklik ebatlar.Width = CInt(CDbl(yukseklik) * oran) End If Dim yeniresim As Bitmap = New Bitmap(bmp, ebatlar) bmp.Dispose() 'eskisini silip boyutlanan resimleri atar System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + dosyaad) 'İlk yüklediğimiz resmin boyutlarını değiştirdiği için ilk yüklediğimiz resmi siliyor. yeniresim.Save(Server.MapPath("~/imageshaberler/" + dosyaad), ImageFormat.Jpeg) yeniresim.Dispose() End If '------------------------------------------------------------------------------------------------------------------------ resim2.Text = dosyaad Label30.Text = FileUpload2.FileName + " resim yüklendi" Image2.ImageUrl = "~/imageshaberler/" + resim2.Text Else Label30.Text = "Resim boyutu 2mb den büyük.Yüklenemedi" End If Else Label30.Text = FileUpload2.FileName + " resim yuklenemedi !!!" End If End If '3.resim resmin boyutlandırmasını yaparak gönderir SAYI = Randomizer(1000, 9999) Label31.Text = "" If FileUpload3.FileName <> "" Then If FileUpload3.HasFile Then 'dosya var ise If FileUpload3.PostedFile.ContentLength < 2000000 Then '2 mbit ten büyük dosya yüklenemez dosyaad = SAYI.ToString + "_" + FileUpload3.FileName If resim3.Text <> "" Then System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + resim3.Text) 'daha önceki resmi silip değişen resmi atar FileUpload3.SaveAs(Server.MapPath("~/imageshaberler/") + dosyaad) 'fotoyu server a attık '------------------------------yüklenmek istenen resmin boyutunu ayarlar------------------------------------------------- bmp = New Bitmap(Server.MapPath("~/imageshaberler/" + dosyaad)) 'Kayıt ettğimiz fotoyu çağırıp üzerinde işlem yapıyoruz 'resmi en/boy aranında orantılı küçültür ------------------------------------------ Dim genislik As Integer = 800 'resmin genişliği max 800 yüksekliği max 700 olsun istiyoruz Dim yukseklik As Integer = 700 Dim ebatlar As New Size(bmp.Width, bmp.Height) If bmp.Width > genislik OrElse bmp.Height > yukseklik Then 'eğer istenilen ebatlardan büyükse boyutlandırma yapar 'resmin genişlik ve yükseklik oranını alıyoruz. Dim oran As Double = (CDbl(bmp.Width) / CDbl(bmp.Height)) If bmp.Width > genislik Then ebatlar.Width = genislik ebatlar.Height = CInt(CDbl(genislik) / oran) End If If ebatlar.Height > yukseklik Then ebatlar.Height = yukseklik ebatlar.Width = CInt(CDbl(yukseklik) * oran) End If Dim yeniresim As Bitmap = New Bitmap(bmp, ebatlar) bmp.Dispose() 'eskisini silip boyutlanan resimleri atar System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + dosyaad) 'İlk yüklediğimiz resmin boyutlarını değiştirdiği için ilk yüklediğimiz resmi siliyor. yeniresim.Save(Server.MapPath("~/imageshaberler/" + dosyaad), ImageFormat.Jpeg) yeniresim.Dispose() End If '------------------------------------------------------------------------------------------------------------------------ resim3.Text = dosyaad Label31.Text = FileUpload3.FileName + " resim yüklendi" Image3.ImageUrl = "~/imageshaberler/" + resim3.Text Else Label31.Text = "Resim boyutu 2mb den büyük.Yüklenemedi" End If Else Label31.Text = FileUpload3.FileName + " resim yuklenemedi !!!" End If End If '4.resim resmin boyutlandırmasını yaparak gönderir SAYI = Randomizer(1000, 9999) Label32.Text = "" If FileUpload4.FileName <> "" Then If FileUpload4.HasFile Then 'dosya var ise If FileUpload4.PostedFile.ContentLength < 2000000 Then '2 mbit ten büyük dosya yüklenemez dosyaad = SAYI.ToString + "_" + FileUpload4.FileName If resim4.Text <> "" Then System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + resim4.Text) 'daha önceki resmi silip değişen resmi atar FileUpload4.SaveAs(Server.MapPath("~/imageshaberler/") + dosyaad) 'fotoyu server a attık '------------------------------yüklenmek istenen resmin boyutunu ayarlar------------------------------------------------- bmp = New Bitmap(Server.MapPath("~/imageshaberler/" + dosyaad)) 'Kayıt ettğimiz fotoyu çağırıp üzerinde işlem yapıyoruz 'resmi en/boy aranında orantılı küçültür ------------------------------------------ Dim genislik As Integer = 800 'resmin genişliği max 800 yüksekliği max 700 olsun istiyoruz Dim yukseklik As Integer = 700 Dim ebatlar As New Size(bmp.Width, bmp.Height) If bmp.Width > genislik OrElse bmp.Height > yukseklik Then 'eğer istenilen ebatlardan büyükse boyutlandırma yapar 'resmin genişlik ve yükseklik oranını alıyoruz. Dim oran As Double = (CDbl(bmp.Width) / CDbl(bmp.Height)) If bmp.Width > genislik Then ebatlar.Width = genislik ebatlar.Height = CInt(CDbl(genislik) / oran) End If If ebatlar.Height > yukseklik Then ebatlar.Height = yukseklik ebatlar.Width = CInt(CDbl(yukseklik) * oran) End If Dim yeniresim As Bitmap = New Bitmap(bmp, ebatlar) bmp.Dispose() 'eskisini silip boyutlanan resimleri atar System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + dosyaad) 'İlk yüklediğimiz resmin boyutlarını değiştirdiği için ilk yüklediğimiz resmi siliyor. yeniresim.Save(Server.MapPath("~/imageshaberler/" + dosyaad), ImageFormat.Jpeg) yeniresim.Dispose() End If '------------------------------------------------------------------------------------------------------------------------ resim4.Text = dosyaad Label32.Text = FileUpload4.FileName + " resim yüklendi" Image4.ImageUrl = "~/imageshaberler/" + resim4.Text Else Label32.Text = "Resim boyutu 2mb den büyük.Yüklenemedi" End If Else Label32.Text = FileUpload4.FileName + " resim yuklenemedi !!!" End If End If '5.resim resmin boyutlandırmasını yaparak gönderir SAYI = Randomizer(1000, 9999) Label33.Text = "" If FileUpload5.FileName <> "" Then If FileUpload5.HasFile Then 'dosya var ise If FileUpload5.PostedFile.ContentLength < 2000000 Then '2 mbit ten büyük dosya yüklenemez dosyaad = SAYI.ToString + "_" + FileUpload5.FileName If resim5.Text <> "" Then System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + resim5.Text) 'daha önceki resmi silip değişen resmi atar FileUpload5.SaveAs(Server.MapPath("~/imageshaberler/") + dosyaad) 'fotoyu server a attık '------------------------------yüklenmek istenen resmin boyutunu ayarlar------------------------------------------------- bmp = New Bitmap(Server.MapPath("~/imageshaberler/" + dosyaad)) 'Kayıt ettğimiz fotoyu çağırıp üzerinde işlem yapıyoruz 'resmi en/boy aranında orantılı küçültür ------------------------------------------ Dim genislik As Integer = 800 'resmin genişliği max 800 yüksekliği max 700 olsun istiyoruz Dim yukseklik As Integer = 700 Dim ebatlar As New Size(bmp.Width, bmp.Height) If bmp.Width > genislik OrElse bmp.Height > yukseklik Then 'eğer istenilen ebatlardan büyükse boyutlandırma yapar 'resmin genişlik ve yükseklik oranını alıyoruz. Dim oran As Double = (CDbl(bmp.Width) / CDbl(bmp.Height)) If bmp.Width > genislik Then ebatlar.Width = genislik ebatlar.Height = CInt(CDbl(genislik) / oran) End If If ebatlar.Height > yukseklik Then ebatlar.Height = yukseklik ebatlar.Width = CInt(CDbl(yukseklik) * oran) End If Dim yeniresim As Bitmap = New Bitmap(bmp, ebatlar) bmp.Dispose() 'eskisini silip boyutlanan resimleri atar System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + dosyaad) 'İlk yüklediğimiz resmin boyutlarını değiştirdiği için ilk yüklediğimiz resmi siliyor. yeniresim.Save(Server.MapPath("~/imageshaberler/" + dosyaad), ImageFormat.Jpeg) yeniresim.Dispose() End If '------------------------------------------------------------------------------------------------------------------------ resim5.Text = dosyaad Label33.Text = FileUpload5.FileName + " resim yüklendi" Image5.ImageUrl = "~/imageshaberler/" + resim5.Text Else Label33.Text = "Resim boyutu 2mb den büyük.Yüklenemedi" End If Else Label33.Text = FileUpload5.FileName + " resim yuklenemedi !!!" End If End If '6.resim resmin boyutlandırmasını yaparak gönderir SAYI = Randomizer(1000, 9999) Label34.Text = "" If FileUpload6.FileName <> "" Then If FileUpload6.HasFile Then 'dosya var ise If FileUpload6.PostedFile.ContentLength < 2000000 Then '2 mbit ten büyük dosya yüklenemez dosyaad = SAYI.ToString + "_" + FileUpload6.FileName If resim6.Text <> "" Then System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + resim6.Text) 'daha önceki resmi silip değişen resmi atar FileUpload6.SaveAs(Server.MapPath("~/imageshaberler/") + dosyaad) 'fotoyu server a attık '------------------------------yüklenmek istenen resmin boyutunu ayarlar------------------------------------------------- bmp = New Bitmap(Server.MapPath("~/imageshaberler/" + dosyaad)) 'Kayıt ettğimiz fotoyu çağırıp üzerinde işlem yapıyoruz 'resmi en/boy aranında orantılı küçültür ------------------------------------------ Dim genislik As Integer = 800 'resmin genişliği max 800 yüksekliği max 700 olsun istiyoruz Dim yukseklik As Integer = 700 Dim ebatlar As New Size(bmp.Width, bmp.Height) If bmp.Width > genislik OrElse bmp.Height > yukseklik Then 'eğer istenilen ebatlardan büyükse boyutlandırma yapar 'resmin genişlik ve yükseklik oranını alıyoruz. Dim oran As Double = (CDbl(bmp.Width) / CDbl(bmp.Height)) If bmp.Width > genislik Then ebatlar.Width = genislik ebatlar.Height = CInt(CDbl(genislik) / oran) End If If ebatlar.Height > yukseklik Then ebatlar.Height = yukseklik ebatlar.Width = CInt(CDbl(yukseklik) * oran) End If Dim yeniresim As Bitmap = New Bitmap(bmp, ebatlar) bmp.Dispose() 'eskisini silip boyutlanan resimleri atar System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + dosyaad) 'İlk yüklediğimiz resmin boyutlarını değiştirdiği için ilk yüklediğimiz resmi siliyor. yeniresim.Save(Server.MapPath("~/imageshaberler/" + dosyaad), ImageFormat.Jpeg) yeniresim.Dispose() End If '------------------------------------------------------------------------------------------------------------------------ resim6.Text = dosyaad Label34.Text = FileUpload6.FileName + " resim yüklendi" Image6.ImageUrl = "~/imageshaberler/" + resim6.Text Else Label34.Text = "Resim boyutu 2mb den büyük.Yüklenemedi" End If Else Label34.Text = FileUpload6.FileName + " resim yuklenemedi !!!" End If End If '----------------------------------------------------------------------------------------------------------------------------------------------------- Dim datevalue As Date Date.TryParse(e_tarih.Text, datevalue) Session.LCID = 1033 conn.Open() COMM = conn.CreateCommand() sql1 = "UPDATE HABERLER SET TARIH = '" & datevalue & "', BASLIK = '" & e_baslik.Text.Replace("'", Chr(180)) & "', DETAY = '" & e_haberdetay.Content.Replace("'", Chr(180)) & "', RESIM1 = '" & resim1.Text & "' , RESIM2 = '" & resim2.Text & "' , RESIM3 = '" & resim3.Text & "' , RESIM4 = '" & resim4.Text & "' , RESIM5 = '" & resim5.Text & "' , RESIM6 = '" & resim6.Text & "' WHERE id = '" & e_haberid.Value & "'" COMM.CommandText = sql1 COMM.ExecuteNonQuery() conn.Close() Session.LCID = 1055 mesaj2.Text = "Bilgiler güncellendi" mesaj2.Visible = "true" Exit Sub hata_kayit: mesaj1.Text = "Kayıt işlemi sırasında bir hata oluştu, bilgi kaydedilemedi. Lütfen girişinizi kontrol ediniz!!!" mesaj1.Visible = "true" End Sub Private Sub sil_Click(sender As Object, e As EventArgs) Handles sil.Click On Error GoTo hata_kayitsil Dim conn As New SqlConnection(ConnectionStrings("ConnectionString").ToString) Dim COMM As New SqlCommand Dim sql1 As String mesaj1.Text = "" mesaj1.Visible = False mesaj2.Text = "" mesaj2.Visible = False 'önce kayıt için içeride yüklü olan resimleri siler-------------------- If resim1.Text <> "" Then System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + resim1.Text) If resim2.Text <> "" Then System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + resim2.Text) If resim3.Text <> "" Then System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + resim3.Text) If resim4.Text <> "" Then System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + resim4.Text) If resim5.Text <> "" Then System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + resim5.Text) If resim6.Text <> "" Then System.IO.File.Delete("" + Server.MapPath("~/imageshaberler/") + "" + resim6.Text) '------------------------------------------------------------------------------------- 'haberi siler conn.Open() sql1 = "DELETE FROM HABERLER WHERE id ='" & e_haberid.Value & "'" COMM = conn.CreateCommand() COMM.CommandText = sql1 COMM.ExecuteNonQuery() conn.Close() Response.Redirect("haber-listesi.aspx") hata_kayitsil: mesaj1.Text = "Silme işlemi sırasında bir hata oluştu!!!" mesaj1.Visible = "true" End Sub Private Function Randomizer(ByVal iStart As Integer, ByVal iEnd As Integer) As Integer Dim iRandomValue As Integer Randomize() iRandomValue = iStart + (Rnd() * (iEnd - iStart)) Return iRandomValue End Function End Class