asp resim upload addnew

halukkus

Yeni Üye
İYİNET Üyesi
Katılım
16 Mar 2010
Mesajlar
2
Beğeniler
0
Yaş
32
#1
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
%>
 

PlusWeb

Pratik Üye
İYİNET Üyesi
Katılım
13 Mar 2010
Mesajlar
16
Beğeniler
0
#2
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)
 

Bu konuyu okuyanlar (Üyeler: 1, Misafirler: 0)

Üst