[arsende]

Selam

Resim Yükle ASP' nin içinde yer alan kodlarda;


A: kd.open "Select * From haber",bag,1,3

B: kd.addnew

A: Haber tablosunu gösteriyorsun B: Yeni kayıt ekle komutu veriyorsun.

Düzenlemen şöyle;

A: kd.addnew kalkıyor, siliyorsun

B: Sorguyu düzenliyorsun kd.open "Select * From haber where Id = "& Cint(id) &"",bag,1,3

Not: where Id Burdaki Id veritbanında otomatik sayı olan alan adıdır. Burdaki ad eğer Id' ise sorun yok başka bir şey ise onu yazın.

Haber eklerken resim_yukle.ASP' yi kullanıyorsun ama güncellerken aynı dosya değil de resim_guncelle.ASP yaparsınız.

<%
id=request("id")
%>

<%

enalt_sayi = 100000
enust_sayi = 999999

Randomize()

isle     = enust_sayi - enalt_sayi + 1
random   = isle * rnd()
random   = random + enalt_sayi
guvenlik = int(random)

Set Upload = server.CreateObject("Persits.Upload")
Upload.Save server.MapPath("images\urun\")'Resminizin kaydolduğu klasör

 
' Create instance of AspJpeg
Set Jpeg = server.CreateObject("Persits.Jpeg")
' Open source image
For Each File in Upload.Files
dosya = file.path
Jpeg.Open  dosya


set fso = CreateObject("Scripting.FileSystemObject") 
set file = fso.GetFile(File.Path) 
file.name = "rs"&guvenlik&".jpg" 
set file = nothing 
set fso = nothing 
next


L = 120
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

If jpeg.OriginalWidth > jpeg.OriginalHeight Then
   jpeg.Width = L
   jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
   jpeg.Height = L
   jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If


jpeg.PreserveAspectRatio = True
If jpeg.OriginalWidth > jpeg.OriginalHeight Then
   jpeg.Width = L
Else
   jpeg.Height = L
End If
 


For Each File in Upload.Files
Jpeg.Save server.MapPath("images\urun\th"&guvenlik&".jpg")
th = server.MapPath("images\urun\th"&guvenlik&".jpg")
rs = file.Path
next
uzun = right(th,24)
res = right(rs,24)
response.Write uzun
mes = replace(uzun,"th","rs")

set bag = server.CreateObject ("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & server.MapPath("db/db#.mdb") 'buraya kendi database'inizi yazın
set kd = server.CreateObject("ADODB.Recordset")
kd.open "Select * From haber where Id = "& CInt(Id) &"",bag,1,3'buraya resmi 
'kaydedeceğiniz tabloyu yazın
kd("resim") = mes 'urun tablosundaki resim alan'ına normal 
' resmi kaydeder
kd("thumb") = uzun 'urun tablosundaki thumb alanına resmin 
' thumb halini kaydeder
kd.update
%>

En sonda her zaman kd.close olarak recordset'i kapatalım.