Merhaba arkadaşlar, asp de persist ile resim yüklüyorum fakat resmin yanında tablonun diğer alanlarına da başka veriler de yüklüyorum resmi boş geçip seçmediğinde de kayıt yapabilsin istiyorum fakat boş geçtiğimde hiçbir alanı kaydetmiyor.
Sql1 = "select * from PROJEGRUBU order by ID desc" Set Sorgu1=Baglanti.Execute(Sql1) if sorgu1.eof and sorgu1.bof then id=0 else id=cint(Sorgu1("ID")) end if
Set Upload = Server.CreateObject("Persits.Upload.1") Upload.Save Path = server.MapPath("images\projegrubu\") 'Bu klasöre kaydet. Upload.CreateDirectory Path, True 'Eğer klasör yoksa oluştur. markaadi=upload.Form("markaadi") aktif=upload.form("checkbox") if aktif="on" then aktif2="X" else aktif2="" end if
For Each File in Upload.Files 'Döngüyü aç set f = upload.files("altresim")
if f.ext=".html" or f.ext = ".aspx" or f.ext = ".asp" or f.ext = ".php" or f.ext = ".exe" then 'Format kontrol response.write "İstenmeyen dosya türü: " & f.ext else Randomize Rast1 = int(RND*10)+0 Rast2 = int(RND*100)+0 Rast3 = int(RND*1000)+0 Rast4 = int(RND*10000)+0 Rast5 = int(RND*100000)+0 Rast6 = int(RND*1000000)+0 RAST = Rast1 & "_" & Rast2 & "_" & Rast3 & "_" & Rast4 & "_" & Rast5 & "_" & Rast6
1- persits in kendi içinde uzantı kontrolü mevcut. bu sayfaya bakabilirsin:http://www.aspupload.com/manual_image.html burada dosya tipi "GIF", "JPG", "BMP", "PNG" olmadığında "UNKNOWN" değeri dönüyor. 2- update işlemin if ile kontrol ettiğin alanda kalmış. dosya uzantısı html aspx vs olmadığında kaydet demişsin ama resim yüklemezse dosya uzantısı nasıl olsun? 3- form tag inda bu alanın olduğundan emin olun ENCTYPE="multipart/form-data"
ayrıca persits in sitesindeki örnekleri mutlaka inceleyin.
asp de persist ile resim yüklüyorum fakat resmin yanında tablonun diğer alanlarına da başka veriler de yüklüyorum resmi boş geçip seçmediğinde de kayıt yapabilsin istiyorum fakat boş geçtiğimde hiçbir alanı kaydetmiyor.
Sql1 = "select * from PROJEGRUBU order by ID desc"
Set Sorgu1=Baglanti.Execute(Sql1)
if sorgu1.eof and sorgu1.bof then
id=0
else
id=cint(Sorgu1("ID"))
end if
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save
Path = server.MapPath("images\projegrubu\") 'Bu klasöre kaydet.
Upload.CreateDirectory Path, True 'Eğer klasör yoksa oluştur.
markaadi=upload.Form("markaadi")
aktif=upload.form("checkbox")
if aktif="on" then
aktif2="X"
else
aktif2=""
end if
For Each File in Upload.Files 'Döngüyü aç
set f = upload.files("altresim")
if f.ext=".html" or f.ext = ".aspx" or f.ext = ".asp" or f.ext = ".php" or f.ext = ".exe" then 'Format kontrol
response.write "İstenmeyen dosya türü: " & f.ext
else
Randomize
Rast1 = int(RND*10)+0
Rast2 = int(RND*100)+0
Rast3 = int(RND*1000)+0
Rast4 = int(RND*10000)+0
Rast5 = int(RND*100000)+0
Rast6 = int(RND*1000000)+0
RAST = Rast1 & "_" & Rast2 & "_" & Rast3 & "_" & Rast4 & "_" & Rast5 & "_" & Rast6
File.SaveAs Path & "\" & "PG_" & RAST & f.ext 'Kaydı gerçekleştir.
foo = upload.Form("isim")
foo = split(foo,":")
resim="/images/projegrubu" & "/" & "PG_" & RAST & f.ext
id=id+1
Sql="update PROJEGRUBU set PROJEGRUBU='"&markaadi&"', RESIM='"&resim&"', AKTIF='"&aktif2&"' where id='"&foo(1)&"'"
Set Sorgu=Baglanti.Execute(sql)
'Response.Write resim 'Ekrana yazdır.
end if
Next 'Döngü bitir
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.