User Tag List

Yeni Konu Aç Cevap Yaz
16.03.2010, 07:00 1 (permalink)
halukkus
halukkus Üye
  • Üyelik Tarihi16.03.2010
  • Yaş32
  • Ticaret Sayısı0
  • Mesajlar1
asp resim upload addnew #permalink (permalink)
Aşağıda asp upload scpriti var.Bu scprit aynı zamanda gönderdiği resmin istenilen ebatta küçültme işlemini yapıyor.Ama serverin Parsist bileşenini desteklemesi gerekiyor.Tamamını koydum faydalanmak isteyen olur diye.

Yalnız bu scprite küçük bir problem var.Databaseye resimin adını yazdırırken, yeni satır açmadan yani hep aynı yere yazıyor.Yeni satır açması için "Addnew" komutunun kullanıldığı biliyorum fakat, bu aşağıdaki scpritte tam olarak nereye iliştiriceğimi ben çözemedim.Zannedersem kırmızı ile işaratlediğim yere bir yere koyacam ama nasıl?Arkadaşlar Asp de yeniyim yardıma ihtiyacım var.

Birde Resim upload sırasında extra bilgilerde update etmem lazım.
Mesela, "resim açıklaması" gibi.Nasıl bir düzenleme yapıcaz acaba?

Yardım edenlere şimdiden teşekkürler.


<!--#include file="baglanti.asp"-->
<%
dim upload
dim count
dim aciklama
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = false
Count = Upload.SaveToMemory
dim DUzn 'DosyaUzantisi
dim SunucuYeri
dim YuklenecekDosya
dim File
resim=upload.form("resim")
Set File = Upload.Files(1)
SunucuYeri = Server.MapPath("Resimler\")&"\"
DUzn = UCase(Right(File.ExtractFileName, 4))

dim YuklenenDosyaninIsmi
dim sql
YuklenecekDosya = SunucuYeri & File.FileName
File.SaveAs YuklenecekDosya
YuklenenDosyaninIsmi = File.FileName

Set rs = baglanti.execute("Update Resimler Set ResimAdi='"&YuklenenDosyaninIsmi&"'")
Set rs1 = baglanti.execute("Select * From Resimler")

set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath("Resimler/"&rs1("ResimAdi")&"")


IF file.imagewidth < 375 Then
Response.Write"Resim ekleme yada düzenleme isleminiz gerçeklesti."
Else

Jpeg.Open Path
Jpeg.Width = 375
jpeg.Height = 500
Jpeg.Canvas.Brush.Solid = False
Jpeg.Save Server.MapPath("Resimler/"&rs1("ResimAdi")&"")

Response.Write"Resim ekleme yada düzenleme isleminiz gerçeklesti."

set rs=nothing
set rs1=nothing
baglanti.close
set baglanti=nothing
end if
%>
Hızlı PM Gönder
Gönder
Alıntı ile Cevapla
16.03.2010, 09:26 2 (permalink)
PlusWeb
PlusWeb Üye
  • Üyelik Tarihi13.03.2010
  • Ticaret Sayısı0
  • Mesajlar8
Hayır kırmızıyla işaretlediğin yerde değil sorun.

Set rs = baglanti.execute("Update Resimler Set ResimAdi='"&YuklenenDosyaninIsmi&"'")
Set rs1 = baglanti.execute("Select * From Resimler")

Sorun burda. Bu SQL veriyi günceller.

Ekleme yapmak için;

sql="insert into Resimler(ResimAdi) values('"& YuklenenDosyaninIsmi &"');"
baglantistringin.execute(sql)

Hızlı PM Gönder
Gönder
Alıntı ile Cevapla
Yeni Konu Aç Cevap Yaz
Şu an bu konuyu okuyan kişi sayısı: 1 (0 üye ve 1 misafir)
 
Seçenekler
Yetkileriniz
Konu Acma Yetkiniz Yok Cevap Yazma Yetkiniz Yok Eklenti Yükleme Yetkiniz Yok Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık Smileler Açık [IMG] Kodları Açık HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık
Forum Kuralları
Benzer Konular
Konu Konuyu Başlatan Forum Cevap Son Mesaj
asp resim upload ederken hata curcuna_play ASP .NET 0 1.11.2008 14:24
asp resim upload scripti yazdıracağım. lovemove ASP .NET 3 11.12.2006 18:27
Asp Resim Upload Scripti MadDriver ASP .NET 5 16.12.2005 21:39

Forum Saati: 07:11. Zaman dilimi GMT +3 olarak ayarlanmıştır.
Powered by vBulletin™ Version 3.8.7
Copyright © 2018 vBulletin Solutions, Inc. All rights reserved.
bitcoin forum