Giriş Yap / Kayıt Ol

WM Aracı'na üyelikler tekrar açıldı! Kayıt olmak için TIKLAYIN!

Cevap Yaz Favorilerime Ekle
Seçenekler Stil
Geri Git   Forum > > Asp .NET

Çoklu resim yüklemelerde resimlerin her birine başlık ekleme

  #1  
Okunmamış 20 Haziran 2018, 22:43
emlak48 Adlı Üyenin Avatarı
WM Aracı
 
Üyelik Tarihi: 28 Mart 2016
Yaş / Cinsiyet: 37 / Erkek
Meslek: Emlak
Konum: Antalya
Ad, Soyad: İb... Ye...
Mesajlar: 15
Beğeniler: 0 / 1
Ticaret: 0, 0%
Merhaba Arkadaşlar
ASP Çoklu resim yüklemelerde resimlerin id sine göre başlık eklemeyi yaptığımda, her resim başlığını ayrı eklemesi gerekirken, sadece ilk resimin başlığını hepsine atıyor, Resim yükleme kodlarım aşağıdaki gibi, bu konuda yardımlarınızı bekliyorum

resimler.asp
Kod:
<%
If Not id = "" Then
	Set StrImgAdet = Server.CreateObject("ADODB.RecordSet")
	StrImgAdet.Open "Select * FROM resimlerim where anaid = "&id&" ",db,1,3
		StrImgToplamAdet = StrImgAdet.RecordCount
	StrImgAdet.Close:Set StrImgAdet = Nothing
End If
Adet = 30 - StrImgToplamAdet
%>
<div>
	<form action="default.asp?page=resimyukle<%If Not id = "" Then%>&id=<%=id%><%End If%>" name="frmUpload" method="post" enctype="multipart/form-data">
    	<div>
        	<%If (Adet = 30) Then%>
				<div><%=Adet%> Fotoğraf ekleme hakkınız bulunmaktadır.</div>
			<%ElseIf (Adet < 30) and (Adet > 0) Then%>
				<div><%=Adet%> Fotoğraf ekleme hakkınız kalmıştır.</div>
    		<%ElseIf (Adet = 0) Then%>
				<div>Bu ürün için maksimun fotoğraf ekleme hakkınızı kullandınız.</div>
			<%End If%>
        </div>
        <div>
        	<div>
				<%For input = 1 To Adet%>
                <div>
                    <div>Resim <%=input%></div>
                    <div><input name="res_baslik" type="text" class="required" value="" size="40"/> <input class="inputbox" type="file" name="file<%=input%>" id="file<%=input%>"/></div>
                    <div class="clear"></div>
                </div>
                <%If input = 1 Then%>
                <div id="<%=Adet%>"></div>
                <%End If%>
                <%Next%>
            </div>
			
			<%If Not StrImgToplamAdet = 30 Then%>
            	<div><button id="upload" name="upload" type="button" onclick="frmUpload.submit();">Yükle</button></div>
                <div">Desteklenen formatlar (<font color="#ff0000"> JPG, GIF ve PNG </font>) 'dir.</div>
			<%End If%>
            <div class="clear"></div>
        </div>
        <div class="clear"></div>
    </form>
</div>

----------------------

resimyukle.asp

Kod:
<%
'On Error Resume Next
' ASP upload çalistirip resimi çekelim
Server.ScriptTimeout    = 50000000
Set Upload              = Server.CreateObject("Persits.Upload.1") 
Upload.CodePage         = 65001
Upload.OverwriteFiles   = False  ' Ayni isimde dosya varsa üzerine yazilsin mi?
Upload.SetMaxSize         10485761
Upload.ProgressID       = PID
yol                     = Server.MapPath(Klasor)&"/"
Upload.IgnoreNoPost     = True 
Upload.OverwriteFiles   = False 
Count = Upload.Save(yol)

'// Rastgele ?ifre Üretme Fonksiyonu
Function SifreUret(Uzunluk)
	If IsNull(Uzunluk) Then Exit Function
	Karakterler = "0123456789abcdefghijklmnoprqstuvyzABCDEFGHIJKLMNOPRQSTUVYZ"
	Randomize
	i = 0
	For i = 1 To Uzunluk
		KacinciKarakter = Int((Len(Karakterler) * Rnd) + 1)
		UretilenSifre   = UretilenSifre & Mid(Karakterler, KacinciKarakter, 1)
	Next
	SifreUret = UretilenSifre
End Function
'// Rastgele ?ifre Üretme Fonksiyonu

For i = 0 To Count - Count
	For Each File in Upload.Files
		Dosyaismi                  =  SifreUret(26)
		If UCase(File.Ext) = ".JPEG" Then
			ResimAdi = Dosyaismi & ".JPG"
		Else
			ResimAdi = Dosyaismi & UCase(File.Ext)
		End If
		File.Move     yol & ResimAdi

		If UCase(File.Ext) <> ".JPG" and UCase(File.Ext) <> ".JPEG" and UCase(File.Ext) <> ".GIF" and UCase(File.Ext) <> ".PNG" then
			Response.Write "<meta http-equiv='refresh' content='0; URL="&Request.ServerVariables("HTTP_REFERER")&"'><script>alert('Sadece JPG, GIF ve PNG Uzantılı Dosyalar Yükleyebilirsiniz !!!');</script>"   
			File.Delete
			Response.End 
		End If

'***********************************************************************************************************
		' Resmimizi Açalim
		Set Jpeg = Server.CreateObject("Persits.Jpeg")
		Path = Server.MapPath(Klasor&"/"&ResimAdi&"")
		Jpeg.Open Path
		' Resmimizi Boyutlandiralim
			If Jpeg.OriginalWidth > BuyukResimWidth or Jpeg.OriginalHeight > BuyukResimHeight Then
				If Jpeg.OriginalWidth > Jpeg.OriginalHeight Then
					Jpeg.Width = BuyukResimWidth
					Jpeg.Height = jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth
				Else
					Jpeg.Height = BuyukResimHeight
					Jpeg.Width = Jpeg.OriginalWidth * Jpeg.Height / Jpeg.OriginalHeight
				End If
			End If
		Jpeg.Quality = 100
		Jpeg.Canvas.Brush.Solid = True
		Jpeg.Save Server.MapPath(Klasor&"/"&ResimAdi&"")

'***********************************************************************************************************
	

'***********************************************************************************************************
		' Resim Al
		Set Jpeg = Server.CreateObject("Persits.Jpeg")
		Path = Server.MapPath(Klasor&"/"&ResimAdi&"")
		Jpeg.Open Path

		' Çerçeve Olustur
		Jpeg.New BuyukResimWidth, BuyukResimHeight, &Hffffff

		Set Img = Server.CreateObject("Persits.Jpeg")
		Img.Open Path

			' Resmimizi Boyutlandiralim
			Img.PreserveAspectRatio = True
			If Img.OriginalWidth > BuyukResimWidth or Img.OriginalHeight > BuyukResimHeight Then
				If Img.OriginalWidth > Img.OriginalHeight Then
					Img.Width = BuyukResimWidth
				Else
					Img.Height = BuyukResimHeight
				End If
			End If
			Count = 0
			X = 0 * Count
			Y = 0

			' Çerçeve içine Ortala
			Jpeg.Canvas.DrawImage X + (BuyukResimWidth - Img.Width) / 2, Y + (BuyukResimHeight - Img.Height) / 2, Img

		'Resim Üstüne Yazi Eklemek istersen Alttaki Tirnaklari Kaldir
		'Font = Server.MapPath("fonts/tahomabd.ttf")
		'Text = CHR(10) & "Deneme Yazy"
		'Jpeg.Canvas.Font.Color    = &Hffffff  ' Black
		'Jpeg.Canvas.Font.Align    = 2 ' 0 (left), 1 (right), 2 (center) and 3 (justified)
		'Jpeg.Canvas.Font.Width    = BuyukResimWidth - 5
		'Jpeg.Canvas.Font.Size     = 22
		'Jpeg.Canvas.Font.Spacing  = 2
		'Jpeg.Canvas.Font.Quality  = 10      ' Yazi Kalitesi
		'Jpeg.Canvas.Font.Opacity  = 0.5
		'Jpeg.Canvas.PrintTextEx Text, 0, 0 / 2, Font


	'Resim Üstüne logo Eklemek istersen Alttaki Tirnaklari Kaldir ve transparan png logo resmini büyük fotografin boyutlarina uygun sekilde ayarla
		Set PNGLogo = Server.CreateObject("Persits.Jpeg")
		Path = Server.MapPath("/fonts/logo.png")
		PNGLogo.Open Path
		Jpeg.Canvas.DrawPNG 0, 0, Path

		' Kayyt
		Jpeg.Save Server.MapPath(Klasor&"/"&ResimAdi&"")

		Resim = Resim & ResimAdi &"|"
		Upload_Imgs   = Left(Resim,Len(Resim)-1)
		
'Resimleri veritabanina kayit etme
res_baslik = Upload.Form("res_baslik")
	
db.execute ("INSERT INTO image (resim, anaid, res_baslik) VALUES ('"&ResimAdi&"' ,'"&id&"' ,'"&res_baslik&"')")
Next
Response.Write "<script language=""javascript"">alert('Resim Başarıyla Eklendi');location.href=""index.asp?page=ilanlarim"";</script>"
Next
 '***********************************************************************************************************
%>
http://www.yegingroup.com
  #2  
Okunmamış 21 Haziran 2018, 09:18
kelebek Adlı Üyenin Avatarı
WM Aracı
 
Üyelik Tarihi: 11 Mayıs 2013
Cinsiyet: Erkek
Meslek: Geliştirici
Konum: Malatya
Ad, Soyad: Em... Kö...
Mesajlar: 3.104
Beğeniler: 734 / 58
Ticaret: 5, 100%
Hocam aynı name birden fazla olunca sorun çıkar. Namenin sonuna "[]" eklerseniz array olarak alırsınız.
  #3  
Okunmamış 21 Haziran 2018, 11:46
emlak48 Adlı Üyenin Avatarı
WM Aracı
 
Üyelik Tarihi: 28 Mart 2016
Yaş / Cinsiyet: 37 / Erkek
Meslek: Emlak
Konum: Antalya
Ad, Soyad: İb... Ye...
Mesajlar: 15
Beğeniler: 0 / 1
Ticaret: 0, 0%
Merhaba Hocam
örnek verebilirmisin, birde kodların neresine uygulamam gerekiyor.
teşekkürler.
http://www.yegingroup.com
  #4  
Okunmamış 21 Haziran 2018, 12:41
kelebek Adlı Üyenin Avatarı
WM Aracı
 
Üyelik Tarihi: 11 Mayıs 2013
Cinsiyet: Erkek
Meslek: Geliştirici
Konum: Malatya
Ad, Soyad: Em... Kö...
Mesajlar: 3.104
Beğeniler: 734 / 58
Ticaret: 5, 100%
Aspden hoşlanmadığım için çok iyi bilmiyırum. Galiba resimlerin başlığı için "res_baslik" isimli bir input kullanıyorsunuz. Bu inputu "res_baslik[]" ile değişirseniz isimler array olarak gelir ondan sonrası size kalmış.

Düzeltme:
Galiba aspde olaylar biraz daha farklı aşağıda ki linke gidip nasıl yapıldığına bakabilirsiniz.

https://stackoverflow.com/questions/...-form-like-php
Konu kelebek tarafından (21 Haziran 2018, 12:46 ) değiştirilmiştir.
Cevap Yaz Favorilerime Ekle


Konuyu toplam 1 kişi okuyor. (0 üye ve 1 Ziyaretçi)
 
Seçenekler
Stil
Normal Normal

Geri Git   Forum > Asp .NET


Yetkileriniz
Konu açma yetkiniz: Yok
Cevap Yazma Yetkiniz Yok
Eklenti yükleme yetkiniz: Yok
Mesajınızı değiştirme yetkiniz: Yok

BB code: Açık
İfadeler: Açık
[IMG] Kodları: Açık
HTML kodu: Kapalı




Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şu anki Zaman: 20:32.