<% Response.Charset = "iso-8859-9" %> <% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' MyDesign Haber ' http://www.mydesign.gen.tr ' Yönetim Sayfası Resim Yükleme Bölümü Kodları ' Son Düzenleme: 14 Ekim 2007 (v0.5) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '// Üye girişi kontrolü strUyeKod = Request.Cookies(strCerezAdi)("uye") strUyeKod = Temizle(strUyeKod) If strUyeKod = "" Then Response.Write "Bu sayfayı görüntüleme yetkiniz yok" Response.End Else kdGenel.Open "SELECT uyeID, Kod FROM tblUyeler WHERE uyeID <> 2 AND Kod = '"& strUyeKod &"'", adoCon, 1, 3 If kdGenel.EOF Then Response.Write "Bu sayfayı görüntüleme yetkiniz yok" Response.End End If kdGenel.Close End If %> <% Set Upload = Server.CreateObject("Persits.Upload") Path = Server.MapPath("resimler/haber/") Count = Upload.Save(Path) If Count = 0 Then Response.Write "Lütfen yüklenecek resmi seçiniz." Response.End Else Set File = Upload.Files(1) If File.ImageType <> "UNKNOWN" Then Set jpeg = Server.CreateObject("Persits.Jpeg") jpeg.Open(File.Path) jpeg.Width = 250 jpeg.Height = 190 jpeg.Save File.Path Set jpeg = Nothing Set jpeg = Server.CreateObject("Persits.Jpeg") jpeg.Open( File.Path ) jpeg.Width = 100 jpeg.Height = 76 SavePath = Path & "\th_" & File.ExtractFileName If UCase(Right(SavePath, 3)) <> "JPG" Then SavePath = SavePath & ".jpg" End If jpeg.Save SavePath DosyaAdi = File.ExtractFileName Set jpeg = Nothing kdGenel.Open "SELECT * FROM tblResimler", adoCon, 1, 3 kdGenel.Addnew kdGenel("Resim") = strScriptYolu &"resimler/haber/"& DosyaAdi kdGenel("Kucuk") = strScriptYolu &"resimler/haber/th_" & DosyaAdi kdGenel.Update kdGenel.Close Response.Redirect "resim_frame.asp?tab=resimler" Else Response.Write "Lütfen geçerli bir resim dosyası seçiniz." Response.End End If End If %>