Fso İle Dosya İsimlerini Alıp Otomatik Veritabanına Kaydettirme

Tahribat.com Forumları
line

Asp - Php - Cgi - Perl
line

Fso İle Dosya İsimlerini Alıp Otomatik Veritabanına Kaydettirme

25/Haz/08 10:01 Kısayol Şikayet Özel Mesaj

yawuz

Kayıt Tarihi: 17/Temmuz/2005

arkadaşlar şimdi normal bilgisayarımızdaki belirttiğimiz bi klasörde 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

Alıntı yap
25/Haz/08 10:10 Kısayol Şikayet Özel Mesaj

Turan-Mete

Kayıt Tarihi: 01/Eylül/2005

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 sözkonusu...

Alıntı yap
25/Haz/08 10:24 Kısayol Şikayet Özel Mesaj

yawuz

Kayıt Tarihi: 17/Temmuz/2005

ş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

Alıntı yap
25/Haz/08 12:40 Kısayol Şikayet Özel Mesaj

FOXXLY

Kayıt Tarihi: 19/Haziran/2006

yawuz bunu yazdı:
-----------------------------
ş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.

Alıntı yap
25/Haz/08 12:57 Kısayol Şikayet Özel Mesaj

FOXXLY

Kayıt Tarihi: 19/Haziran/2006

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("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/db.mdb")
%>
<%
islem=request("islem")
if islem="foxxly" then
strListelenecekKlasor = "img" 'resim klasörünün adı buraya yaz janım :C
Set ObjFSO=Server.CreateObject("Scripting.FileSystemObject") ' fıso mısa ıvır zıvır
Set strDosyalar=ObjFSO.GetFolder(Server.MapPath(strListelenecekKlasor))
RSayisi = strDosyalar.Files.Count - 1
response.write ""&RSayisi&"<hr>"
if RSayisi > "0" then
For each strBulunanDosya in strDosyalar.files
if right(strBulunanDosya.Name,"3") = "jpg" OR right(strBulunanDosya.Name,"3") = "JPG" THEN

kayit = "SELECT * FROM resim"
Set foxxly=Server.CreateObject("ADODB.Recordset")
foxxly.Open kayit,sur,1,3

foxxly.addnew
foxxly("baslik")=strBulunanDosya.Name
foxxly("boyut")=strBulunanDosya.size &" Byte"
foxxly.update

foxxly.close
set foxxly= Nothing
response.write("<b>ekledim babos</b>")

Response.Write strBulunanDosya.Name & " ( " & strBulunanDosya.size & " Byte )<br>"
Response.Write "<img src='"&strListelenecekKlasor&"/"&strBulunanDosya.Name&"'><br>"
end if
Next
end if
else
%>
baboş resimlerin bunlar ;<br><br>
<%
strListelenecekKlasor = "img"
Set ObjFSO=Server.CreateObject("Scripting.FileSystemObject")
Set strDosyalar=ObjFSO.GetFolder(Server.MapPath(strListelenecekKlasor))
RSayisi = strDosyalar.Files.Count - 1
response.write ""&RSayisi&"<hr>"
if RSayisi > "0" then
For each strBulunanDosya in strDosyalar.files
if right(strBulunanDosya.Name,"3") = "jpg" OR right(strBulunanDosya.Name,"3") = "JPG" THEN
Response.Write strBulunanDosya.Name & " ( " & strBulunanDosya.size & " Byte )<br>"
Response.Write "<img src='"&strListelenecekKlasor&"/"&strBulunanDosya.Name&"'><br>"
end if
Next
end 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 filan
www.aspdepo.org/tr/scriptler/yawuz.rar

kelimeler albayım bazı anlamlara gelmiyor.

Alıntı yap
25/Haz/08 13:12 Kısayol Şikayet Özel Mesaj

yawuz

Kayıt Tarihi: 17/Temmuz/2005

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

Alıntı yap
25/Haz/08 17:31 Kısayol Şikayet Özel Mesaj

FOXXLY

Kayıt Tarihi: 19/Haziran/2006

höst bana bi kantar31 aşkım der okadar :|
kolay gelsin bu arada :C

kelimeler albayım bazı anlamlara gelmiyor.

Alıntı yap

Toplam Hit: 924 Toplam Mesaj: 7

Cevapla