Arama butonu
Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı
6
Cevap
1028
Tıklama
0
Öne Çıkarma
asp ile resim yükleme
S
10 yıl
Çavuş
Konu Sahibi

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

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 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.

Üye Ol Şimdi Değil



D
10 yıl
Onbaşı

hızlıca baktığımda;

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.

birde ilk sorguda ID yi neden alıyorsunuz?


Bu mesaja 1 cevap geldi.
DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.