: şimdi diyelimki elimizde 1000 adet resim var bunların veritabanına uzantıları ile birlikte kaydettirilmesi lazım ama 1000 resmin içinde 300 tanede gif resmi var ve biz sadece jpg uzantıları süzerek listelemek istiyoruz ve listeledikten sonrada 1000 adet jpg resmi uzantıları ile birlikte veritabanıma kaydettirmek istiyorum yani bilgisayarımdaki jpg resimlerimi veritabanıma kaydettirmek istiyorum zor bi sorumu oldu? D: :| evet biraz zor gibi :/ bekle bişeyler yapmaya çalışacağım, kesin demiyim ama :C kelimeler albayım bazı anlamlara gelmiyor.

hst bana bi kantar31 aşkım der okadar :|kolay gelsin bu arada :C kelimeler albayım bazı anlamlara gelmiyor.

şimdi diyelimki elimizde 1000 adet resim var bunların veritabanına uzantıları ile birlikte kaydettirilmesi lazım ama 1000 resmin içinde 300 tanede gif resmi var ve biz sadece jpg uzantıları süzerek listelemek istiyoruz ve listeledikten sonrada 1000 adet jpg resmi uzantıları ile birlikte veritabanıma kaydettirmek istiyorum yani bilgisayarımdaki jpg resimlerimi veritabanıma kaydettirmek istiyorum zor bi sorumu oldu? D: tahribat.com a can feda

konuyu uplamak gibi olsun kii başkalarıda faydalansın gülüm senin için bi kaç şey karaladım <%Session. CodePage=1252 Response. CharSet = "iso-8859-9" Set Sur = Server. CreateObject Sur. Open "DRIVER= ; DBQ=" & Server. MapPath %><%islem=request if islem="foxxly" thenstrListelenecekKlasor = "img" 'resim klasrünün adı buraya yaz janım :CSet ObjFSO=Server. CreateObject ' fıso mısa ıvır zıvırSet strDosyalar=ObjFSO. GetFolder(Server. MapPath RSayisi = strDosyalar. Files. Count - 1response. write ""&RSayisi&"<hr>"if RSayisi > "0" thenFor each strBulunanDosya in strDosyalar. filesif right(strBulunanDosya. Name,"3") = "jpg" OR right(strBulunanDosya. Name,"3") = "JPG" THEN kayit = "SELECT FROM resim"Set foxxly=Server. CreateObject foxxly. Open kayit, sur,1,3foxxly. addnewfoxxly =strBulunanDosya. Namefoxxly =strBulunanDosya. size &" Byte"foxxly. updatefoxxly. closeset foxxly= Nothingresponse. write Response. Write strBulunanDosya. Name & " <br>"Response. Write "<img src='"&strListelenecekKlasor&"/"&strBulunanDosya. Name&"'><br>"end ifNextend ifelse%> baboş resimlerin bunlar ;<br><br><%strListelenecekKlasor = "img"Set ObjFSO=Server. CreateObject Set strDosyalar=ObjFSO. GetFolder(Server. MapPath RSayisi = strDosyalar. Files. Count - 1response. write ""&RSayisi&"<hr>"if RSayisi > "0" thenFor each strBulunanDosya in strDosyalar. files if right(strBulunanDosya. Name,"3") = "jpg" OR right(strBulunanDosya. Name,"3") = "JPG" THEN Response. Write strBulunanDosya. Name & " <br>" Response. Write "<img src='"&strListelenecekKlasor&"/"&strBulunanDosya. Name&"'><br>" end ifNextend if%><p><p>db ye ekliyemmi babaş? <form method="POST" action="?islem=foxxly"><input type="submit" value="ekle janım :B" name="B1"></form><%end if%> al bi access db oluştur. içine resim diye tablo aç sonra da id, baslik, boyut adi altında sütun oluştur. sonra id, otomatik sayı, diğerleri not olsun db ye adi + boyutu olarak kaydediyor sadece jpg formatını alıyor sewiyorum kendimi :C edit : sayfayı bi sefer aç yoksa her seferinde aynı resimlerimleri tekrara ekler db ye :C ona da bi if kodunu sen yaz artık :P edit 2 : al lan al kıyamadım db yide koyayım :C tüm script içinde db ve denediğim resimler filanwww.aspdepo.org/tr/scriptler/yawuz. rar kelimeler albayım bazı anlamlara gelmiyor.

arkadaşlar şimdi normal bilgisayarımızdaki belirttiğimiz bi klasrde bulunan sadece resim dosyalarının isimlerini uzantılarıyla birlikte fso iile aldık ama bunu aldıktan sonra nasıl veritabanında istediğiniz tablodaki ilgili field a kaydettirebiliriz tahribat.com a can feda

seviyorum seni foxxly cim benim bundan sonra sana kısaca aşkım diebilirmiiim :D edit : bana nasıl bir hız kazandırdın bilemessin şimdi onca resmi db ye nasıl ekleyeceğimi düşüncektim kara kara saoll tahribat.com a can feda

hic bir sey anlamadim bir daha anlatsana... l Nasıl ki doyurulmayan açlık bir müddet sonra, açlık hissinin iptali ve neticede lüme yol açıyorsa, okuma ve fikretme davası için de aynı şeyler szkonusu...