Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Asp / Asp.NET
  • Bu Konuda
Şimdi Ara

persist upload isim değiştir (yapamadım)

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
9
Cevap
0
Favori
3.000
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • arkadaslar pek cokk yerde baktım ama genelde ya sadece resim upload icin var yada baska yok benim kodlarda hem resim hem veri aktarılıyor db ye ama ne ne yaptıysam yuklenen resimlere farklı isim vermeyi beceremedim 1 haftadır cıkamadım isin icinden

    yardımcı olursanız cok sevinirim... 

    <%db burada %>  
       
          <%  
      Set Upload = Server.CreateObject("Persits.Upload" )  
      Upload.OverwriteFiles = False  
      Upload.SetMaxSize 500000, True  
       
      Upload.Save  
       
      on error resume next  
       
      Set resim1   = Upload.Files("resim1" )  
      Set resim2   = Upload.Files("resim2" )  
      Set resim3   = Upload.Files("resim3" )  
      Set resim4   = Upload.Files("resim4" )  
       
       
      Set chekcbox1     = Upload.Files("chekcbox1" )  
      Set chekcbox2 = Upload.Files("chekcbox2" )  
       
       
       
       
       
      if chekcbox1="on" then chekcbox1=true end if  
      if chekcbox1=""   then chekcbox1=false end if  
       
      if chekcbox2="on" then chekcbox2=true end if  
      if chekcbox2=""   then chekcbox2=false end if  
       
       
      If resim1.ImageType = "JPG" then  
      else  
      response.write "Sadece JPG Uzantili Dosya Ekleyebilirsiniz..."  
      response.end  
      end if  
       
      If resim2.ImageType = "JPG" then  
      else  
      response.write "Sadece JPG Uzantili Dosya Ekleyebilirsiniz..."  
      response.end  
      end if  
       
      If resim3.ImageType = "JPG" then  
      else  
      response.write "Sadece JPG Uzantili Dosya Ekleyebilirsiniz..."  
      response.end  
      end if  
       
      If resim4.ImageType = "JPG" then  
      else  
      response.write "Sadece JPG Uzantili Dosya Ekleyebilirsiniz..."  
      response.end  
      end if  
       
       
       
      resim1.SaveAs Server.MapPath("../yeniresimler" ) & "\" & resim1.Filename  
      resim2.SaveAs Server.MapPath("../yeniresimler" ) & "\" & resim2.Filename  
      resim3.SaveAs Server.MapPath("../yeniresimler" ) & "\" & resim3.Filename  
      resim4.SaveAs Server.MapPath("../yeniresimler" ) & "\" & resim4.Filename  
       
       
       
      Set rs = server.CreateObject("ADODB.Recordset" )  
      SQL = "Select * from ozellikler"  
      rs.Open SQL,bag,1,3  
      rs.AddNew  
       
      rs("chekcbox1" )        = Upload.Form("chekcbox1" )     
      rs("chekcbox2" )        = Upload.Form("chekcbox2" )  
       
       
       
      rs("resim1" )       = resim1.FILENAME  
      rs("resim2" )       = resim2.FILENAME  
      rs("resim3" )       = resim3.FILENAME  
      rs("resim4" )       = resim4.FILENAME  
       
      rs.Update  
       
      rs.Close  
      set rs = Nothing  
      bag.Close  
      set bag = Nothing  
      response.write "EKLENDI"  
      %>







  • iyide,
    resim1.SaveAs Server.MapPath("../yeniresimler" ) & "\" & resim1.Filename
    bu kısımda resmi kendi adıyla ekliyor.. 


    <% 
       ' Örnek 
       fileType = right(resim1.Filename, 3) 
       yeniAd = "yeni_resim" 
       yeniAd = yeniAd & "." & fileType 
       resim1.SaveAs Server.MapPath("../yeniresimler" ) & "\" & yeniAd 
      %>
  • makinadaki adı neyse o sekilde gidiyor db ye ,ben ornegin resim adi111222.jpeg gibi olsun istiyorum yukarıdaki kodlar sorunsuz calısıyor tek sorun isimleri değistiremiyorum db ye eklerken yada fso upload da upload edilene tarih saat eklemek gibi de olabilir
  • benim dediğimi uyguladın mıki ? Alttakini, elindekiyle değiştir, resim 1, adi111222.jpg olarak kaydolduğunu göreceksin

    quote:

    <%db burada %>

    <%
    Set Upload = Server.CreateObject("Persits.Upload" )
    Upload.OverwriteFiles = False
    Upload.SetMaxSize 500000, True

    Upload.Save

    on error resume next

    Set resim1 = Upload.Files("resim1" )
    Set resim2 = Upload.Files("resim2" )
    Set resim3 = Upload.Files("resim3" )
    Set resim4 = Upload.Files("resim4" )


    Set chekcbox1 = Upload.Files("chekcbox1" )
    Set chekcbox2 = Upload.Files("chekcbox2" )





    if chekcbox1="on" then chekcbox1=true end if
    if chekcbox1="" then chekcbox1=false end if

    if chekcbox2="on" then chekcbox2=true end if
    if chekcbox2="" then chekcbox2=false end if


    If resim1.ImageType = "JPG" then
    else
    response.write "Sadece JPG Uzantili Dosya Ekleyebilirsiniz..."
    response.end
    end if

    If resim2.ImageType = "JPG" then
    else
    response.write "Sadece JPG Uzantili Dosya Ekleyebilirsiniz..."
    response.end
    end if

    If resim3.ImageType = "JPG" then
    else
    response.write "Sadece JPG Uzantili Dosya Ekleyebilirsiniz..."
    response.end
    end if

    If resim4.ImageType = "JPG" then
    else
    response.write "Sadece JPG Uzantili Dosya Ekleyebilirsiniz..."
    response.end
    end if



    fileType = right(resim1.Filename, 3)
    yeniAd = "adi111222"
    yeniAd = yeniAd & "." & fileType
    resim1.SaveAs Server.MapPath("../yeniresimler" ) & "\" & yeniAd
    resim2.SaveAs Server.MapPath("../yeniresimler" ) & "\" & resim2.Filename
    resim3.SaveAs Server.MapPath("../yeniresimler" ) & "\" & resim3.Filename
    resim4.SaveAs Server.MapPath("../yeniresimler" ) & "\" & resim4.Filename



    Set rs = server.CreateObject("ADODB.Recordset" )
    SQL = "Select * from ozellikler"
    rs.Open SQL,bag,1,3
    rs.AddNew

    rs("chekcbox1" ) = Upload.Form("chekcbox1" )
    rs("chekcbox2" ) = Upload.Form("chekcbox2" )



    rs("resim1" ) = yeniAd
    rs("resim2" ) = resim2.FILENAME
    rs("resim3" ) = resim3.FILENAME
    rs("resim4" ) = resim4.FILENAME

    rs.Update

    rs.Close
    set rs = Nothing
    bag.Close
    set bag = Nothing
    response.write "EKLENDI"
    %>




  • Hocam önce özür dileyerek baslayayım hata bende ,şöyleki ben amacımı dogru izah edemedim... benim yukarıda verdiğim kod bütünü anladıgınız uzere islem.asp ben bu islem .asp sayesinde yuklenen resimlerin vt na randomize ile yuklenmesini istiyorum yani aynı isimli resim 3 gun sonra yuklenecek olursa bu kodlar onun adını rastgele degistirsin farklı id lerde aynı resim gorunmesin...

    sayet bu talebimi benim kod uzerinde koyu renkle tarif ederseniz bende nasıl yapıldıgını ogrenmis olurum ... tesekkur ederim...
  • Peki, Senin için bir fonksiyon hazırlayayım

    quote:

    <%db burada %>

    <%


    function resimName(resim, length, add)
    harf = array( "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "1", "2", "3", "4", "5", "6", "7", "8", "9" )
    str = ""
    Randomize
    for i = 0 to length
    str = str & harf(int((Rnd * uBound(harf))+1))
    next
    fileType = right(resim,4)
    resimName = add&second(now)&str&minute(now)&fileType
    end function

    Set Upload = Server.CreateObject("Persits.Upload" )
    Upload.OverwriteFiles = False
    Upload.SetMaxSize 500000, True

    Upload.Save

    on error resume next

    Set resim1 = Upload.Files("resim1" )
    Set resim2 = Upload.Files("resim2" )
    Set resim3 = Upload.Files("resim3" )
    Set resim4 = Upload.Files("resim4" )


    Set chekcbox1 = Upload.Files("chekcbox1" )
    Set chekcbox2 = Upload.Files("chekcbox2" )





    if chekcbox1="on" then chekcbox1=true end if
    if chekcbox1="" then chekcbox1=false end if

    if chekcbox2="on" then chekcbox2=true end if
    if chekcbox2="" then chekcbox2=false end if


    If resim1.ImageType = "JPG" then
    else
    response.write "Sadece JPG Uzantili Dosya Ekleyebilirsiniz..."
    response.end
    end if

    If resim2.ImageType = "JPG" then
    else
    response.write "Sadece JPG Uzantili Dosya Ekleyebilirsiniz..."
    response.end
    end if

    If resim3.ImageType = "JPG" then
    else
    response.write "Sadece JPG Uzantili Dosya Ekleyebilirsiniz..."
    response.end
    end if

    If resim4.ImageType = "JPG" then
    else
    response.write "Sadece JPG Uzantili Dosya Ekleyebilirsiniz..."
    response.end
    end if



    resim1Name = resimName(resim1.Filename, 7, 1)
    resim2Name = resimName(resim2.Filename, 7, 2)
    resim3Name = resimName(resim3.Filename, 7, 3)
    resim4Name = resimName(resim4.Filename, 7, 4)

    resim1.SaveAs Server.MapPath("../yeniresimler" ) & "\" & resim1Name
    resim2.SaveAs Server.MapPath("../yeniresimler" ) & "\" & resim2Name
    resim3.SaveAs Server.MapPath("../yeniresimler" ) & "\" & resim3Name
    resim4.SaveAs Server.MapPath("../yeniresimler" ) & "\" & resim4Name



    Set rs = server.CreateObject("ADODB.Recordset" )
    SQL = "Select * from ozellikler"
    rs.Open SQL,bag,1,3
    rs.AddNew

    rs("chekcbox1" ) = Upload.Form("chekcbox1" )
    rs("chekcbox2" ) = Upload.Form("chekcbox2" )



    rs("resim1" ) = resim1Name
    rs("resim2" ) = resim2Name
    rs("resim3" ) = resim3Name
    rs("resim4" ) = resim4Name

    rs.Update

    rs.Close
    set rs = Nothing
    bag.Close
    set bag = Nothing
    response.write "EKLENDI"
    %>

    kolay gelsin.




  • kIvILcImx hocam karsında saygı ile eğiliyorum hem kod calıstı hemde nerede hata yaptıgımı gordum... cok tesekkür ederim
    • Yapay Zeka’dan İlgili Konular
    File server a farklı kullanıcı ile bağlanmak
    6 yıl önce açıldı
    Php de Nasıl Önizleme Yapabilirim
    13 yıl önce açıldı
    htaccess url değiştirme sonucu get ile işlem yapamıyorum
    4 yıl önce açıldı
    Daha Fazla Göster
  • Peki kıvılcım arkadaşım şöyşe bişey sormak istiyorum. Form alanından gelen verileri upload.save yapmadan alamıyoruz bildiğim kadarıyla , peki benim formundaki önemli alanlar boş ise ben hiç bir şekilde dosya upload kısmına geçmemesini istiyorum ama şuanda upload.save dediğimizde dosyalar upload olmuş oluyor sonra formdaki alanların boş olup olmadığını denetleyebiliyoruz, benim istediğim şeyi yapabilirmiyiz.

    Yani

    Adı Soyadı
    Adres
    Telefon
    Resim

    form alanlarından adısoyadı boş ise form tekrar boş olarak karşısına gelecek eğer doluysa adres telefon veritabanına resim ise upload edilecek?

    kolay gelsin
  • kIvILcImx Arkadaşım senin verdigin kodları benim resim yükleme işlemi yapan kodlara uygulamaya çalıştım ama olmadı bi türlü.Senden rica etsem yardımcı olabilirmisin bana

    Benim resim yükleme yapan kodlarım: 
     
      <% 
      Set Upload = Server.CreateObject("Persits.Upload") 
      Path = Server.MapPath(strScriptYolu &"upload/resimler/haber/") 
       
      Count = Upload.Save(Path) 
       
      If Count = 0 Then 
       
      	Response.Redirect "resim_frame.asp?tab=resim_yukle&hata=1" 
       
      Else 
      	Set File = Upload.Files(1) 
      	If File.ImageType <> "UNKNOWN" Then 
       
      		strKelimeler = Trim(Temizle(Upload.Form("kelimeler"))) 
       
      		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") = DosyaAdi 
      		kdGenel("Kucuk") = "th_" & DosyaAdi 
      		kdGenel("Kelimeler") = strKelimeler 
      		kdGenel.Update 
      		kdGenel.Close  
       
      		Response.Redirect "resim_frame.asp?tab=resimler" 
       
        	Else 
       
      		Response.Redirect "resim_frame.asp?tab=resim_yukle&hata=1" 
       
      	End If 
      End If 
      %>


    Bende yüklenen resimlerin isimlerinin değişmesini (resim001.jpg resim002.jpg gibi) ve eğer aynı isimde resim varsa otomatik olarak değişmesini istiyorum yukarıdaki arkadaş gibi.

    Şimdiden teşekkür ederim




    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum