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
Alıntı:
<%@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
%>
|