[divemaster]

Merhaba arkadaşlar

Neredeyse 3 gündür sadece bu işlem üzerinde tıkandım kaldım, çözüm aramadığım yer kalmadı. ASPUpload ve ASPJpeg bileşenlerini kullanan bir kod ile sitedeki mevcut kayıtlarıma ( örneğin haberler içine ) birden fazla resim ekletmek ve bunu sildirmek istiyorum ancak bir türlü beceremedim. Her seferinde var olan kayda değil de kendi yeni kayıt açarak ekleme yapıyor.

Mevcut kaydın göstserildiği sayfayadan resimform.ASP upload sayfama link verdim ki ID yi çeksin (resimform.ASP?id=<%=rs("id")%>). resim_yukle.ASP ve resimform.ASP sayfalarına <% id=request("id") %> ekledim ancak bir türlü mevut kayda değil de yeni kayıt açarak ekleme yapıyor.

Bir de bu yüklemeyi birden fazla resimle aynı id ye eklenecek şekilde nasıl yapabiliriz?

resimform.ASP

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

<form id="form1" name="form1" method="post" action="resim_yukle.ASP" ENCTYPE="multipart/form-data" >
<input type="file" name="file" />
<input name="Submit" type="submit" />
<input name="file" type="hidden" value="<%=id%>">
</form>

resim_yukle.ASP

<%
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",bag,1,3'buraya resmi 
'kaydedeceğiniz tabloyu yazın
kd.addnew
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
%>