<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' MyDesign Haber ' http://www.mydesign.gen.tr ' Yönetim Sayfası Resim Yükleme Bölümü Kodları ' Son Düzenleme: 16 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 blnYuklendi = False Set Upload = Server.CreateObject("Persits.Upload") Path = Server.MapPath("resimler/yazar/") 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 = 42 jpeg.Height = 58 jpeg.Save File.Path DosyaAdi = File.ExtractFileName Set jpeg = Nothing blnYuklendi = True End If End If %> > <% If blnYuklendi Then %> Resim yüklendi.<% Else Response.Write "Lütfen geçerli bir resim dosyası seçiniz." Response.End End If %>