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_tanimla Inherits System.Web.UI.Page Private Sub panel_haber_tanimla_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 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 '--------------------------------------------------------------------------------------------------------------------------------------- 'Resmin boyutlandırmasını yaparak gönderir '1.resim SAYI = Randomizer(1000, 9999) Dim g_resim1 As String Label30.Text = "" g_resim1 = "" 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 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 'en boy oranına göre orantılı boyutlandırma yapar------------------------------ 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 '------------------------------------------------------------------------------------------------------------------------ g_resim1 = dosyaad Label30.Text = FileUpload1.FileName + " resim yüklendi" Else Label30.Text = "Resim boyutu 2mb den büyük.Yüklenemedi" End If Else Label30.Text = FileUpload1.FileName + " resim yüklenemedi !!!" End If Else g_resim1 = "" End If '2.resim SAYI = Randomizer(1000, 9999) Dim g_resim2 As String Label32.Text = "" g_resim2 = "" 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 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 'en boy oranına göre orantılı boyutlandırma yapar------------------------------ 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 '------------------------------------------------------------------------------------------------------------------------ g_resim2 = dosyaad Label32.Text = FileUpload2.FileName + " resim yüklendi" Else Label32.Text = "Resim boyutu 2mb den büyük.Yüklenemedi" End If Else Label32.Text = FileUpload2.FileName + " resim yuklenemedi !!!" End If Else g_resim2 = "" End If '3.resim SAYI = Randomizer(1000, 9999) Dim g_resim3 As String Label34.Text = "" g_resim3 = "" 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 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 'en boy oranına göre orantılı boyutlandırma yapar------------------------------ 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 '------------------------------------------------------------------------------------------------------------------------ g_resim3 = dosyaad Label34.Text = FileUpload3.FileName + " resim yüklendi" Else Label34.Text = "Resim boyutu 2mb den büyük.Yüklenemedi" End If Else Label34.Text = FileUpload3.FileName + " resim yuklenemedi !!!" End If Else g_resim3 = "" End If '4.resim SAYI = Randomizer(1000, 9999) Dim g_resim4 As String Label36.Text = "" g_resim4 = "" 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 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 'en boy oranına göre orantılı boyutlandırma yapar------------------------------ 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 '------------------------------------------------------------------------------------------------------------------------ g_resim4 = dosyaad Label36.Text = FileUpload4.FileName + " resim yüklendi" Else Label36.Text = "Resim boyutu 2mb den büyük.Yüklenemedi" End If Else Label36.Text = FileUpload4.FileName + " resim yuklenemedi !!!" End If Else g_resim4 = "" End If '5.resim SAYI = Randomizer(1000, 9999) Dim g_resim5 As String Label38.Text = "" g_resim5 = "" 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 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 'en boy oranına göre orantılı boyutlandırma yapar------------------------------ 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 '------------------------------------------------------------------------------------------------------------------------ g_resim5 = dosyaad Label38.Text = FileUpload5.FileName + " resim yüklendi" Else Label38.Text = "Resim boyutu 2mb den büyük.Yüklenemedi" End If Else Label38.Text = FileUpload5.FileName + " resim yuklenemedi !!!" End If Else g_resim5 = "" End If '6.resim SAYI = Randomizer(1000, 9999) Dim g_resim6 As String Label40.Text = "" g_resim6 = "" 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 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 'en boy oranına göre orantılı boyutlandırma yapar------------------------------ 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 '------------------------------------------------------------------------------------------------------------------------ g_resim6 = dosyaad Label40.Text = FileUpload6.FileName + " resim yüklendi" Else Label40.Text = "Resim boyutu 2mb den büyük.Yüklenemedi" End If Else Label40.Text = FileUpload6.FileName + " resim yuklenemedi !!!" End If Else g_resim6 = "" End If '--------------------------------------------------------------------------------------------------------------------------------------- Dim datevalue As Date Date.TryParse(e_tarih.Text, datevalue) Session.LCID = 1033 conn.Open() COMM = conn.CreateCommand() sql1 = "INSERT INTO HABERLER (TARIH, BASLIK, DETAY, RESIM1, RESIM2, RESIM3, RESIM4, RESIM5, RESIM6) VALUES('" & datevalue & "', '" & e_baslik.Text.Replace("'", Chr(180)) & "', '" & e_haberdetay.Content.Replace("'", Chr(180)) & "', '" & g_resim1 & "', '" & g_resim2 & "', '" & g_resim3 & "', '" & g_resim4 & "', '" & g_resim5 & "', '" & g_resim6 & "')" COMM.CommandText = sql1 COMM.ExecuteNonQuery() conn.Close() Response.Redirect("haber-listesi.aspx") 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 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