[sekerleme]

Merhaba Arkadaşlar.

Aşağıdaki internetten indirdiğim kodu kullanarak sisteme dosya upload ediyor ve veri tabanına dosya hakkında bir takım bilgileri dosya ismiyle birlikte ekliyorum. Ancak yüklenen dosyanın daha önce yüklenenlerle adının çakışması halinde eski dosyanın üzerine yazılıyor. Bunu önlemek için daha önce yüklenen dosyaların isimlerini veri tabanından(ya da daha sağlıklıysa yüklendikleri klasörün içinden) kontrol edip dosyanın ismi değiştirilerek upload edilmesi ve veri tabanına yeni ismiyle yazdırılması mümkün mü?
Zoque icinde aradım ama aradığımı bulamadım. Şimdiden teşekkürler, iyi çalışmalar

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Set Upload = server.CreateObject("Persits.Upload" )
Upload.SetMaxSize 1002480, true
on error resume Next
file= "urunler/"
Extensions = Array("xls" , "doc" , "zip" )
Upload.Save server.MapPath(file)
If err.number=8 Then
Msg = "Seçtiginiz Dosya cok genis.<br> Lütfen <B>1 MB</B>'in Altinda Bir Dosya Seçiniz!"
Response.End
Else
If err <> 0 Then
msg "Sayfa islenirken bir hata olustu.<br> Lütfen tekrar deneyiniz!: " & Err.Description
Response.End
End If
End If
Set File = Upload.Files("DOSYA" )
If Not File Is Nothing Then
tarih = (date)
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("urunler.mdb" )

Set rs = server.CreateObject("adodb.recordset" )
rs.Open "resimler" , Connect,1, 3
rs.Addnew
rs("model" ) = Upload.form("model" )
rs("fiyat" ) = Upload.form("fiyat" )
rs("kumas" ) = Upload.form("kumas" )
rs("beden" ) = Upload.form("beden" )
rs("dil") =Upload.form("dil")
rs("dosya") = file.filename
rs.AddNew
response.write"<br><br><br><br><center>resim upload edildi <a href='JavaScript:history.go(-1);'>Geri Dön</a></center>"
Else
response.write"<br><br><br><br><center>hata olustu , upload icin resim secmelisiniz <a href='JavaScript:history.go(-1);'>Geri Dön</a></center>"
End If
%>

[arsende]

Upload = server.CreateObject("Persits.Upload" ) 
UPLOAD.OVERWRITEFILES = FALSE

Böylece üzerine yazmayı kapattık; diyelimki test.jpg zaten yüklü, eğer tekrar test.jpg yüklersek test(0).jpg, şeklinde olur böyle uzar gider. test(1).jpg, 2 , 3 , 4

rs.Addnew
rs("model" ) = Upload.form("model" )
rs("fiyat" ) = Upload.form("fiyat" )
rs("kumas" ) = Upload.form("kumas" )
rs("beden" ) = Upload.form("beden" )
rs("dil") =Upload.form("dil")
rs("dosya") = file.filename
rs.AddNew

Bu kod hatalı ikitane rs.AddNew var ikincisi rs.update dir.

[sekerleme]

Teşekkür ederim arsende. Gayet güzel çalışıyor.