Tüm Araçlar
  • Tema Seçeneği
  • Site Sesleri
  • Bildirimler
  • Özel Mesaj Al
lostyazilim
tr.link

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

 4 Mesajlar 835 Okunma
acebozum
tr.link

#1
emlak48 emlak48 WM Aracı Kullanıcı
  • Üyelik 28.03.2016
  • Yaş/Cinsiyet 42 / E
  • Meslek Emlak
  • Konum Antalya
  • Ad Soyad İ** Y**
  • Mesajlar 112
  • Beğeniler 3 / 2
  • 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

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

&id=<%=id%><%End If%>" name="frmUpload" method="post" enctype="multipart/form-data">

<%If (Adet = 30) Then%>
<%=Adet%> Fotoğraf ekleme hakkınız bulunmaktadır.

<%ElseIf (Adet < 30) and (Adet > 0) Then%>
<%=Adet%> Fotoğraf ekleme hakkınız kalmıştır.

<%ElseIf (Adet = 0) Then%>
Bu ürün için maksimun fotoğraf ekleme hakkınızı kullandınız.

<%End If%>



<%For input = 1 To Adet%>

Resim <%=input%>




<%If input = 1 Then%>

<%End If%>
<%Next%>


<%If Not StrImgToplamAdet = 30 Then%>

Desteklenen formatlar ( JPG, GIF ve PNG ) 'dir.

<%End If%>








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

resimyukle.asp


<%
'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 "<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>alert('Resim Başarıyla Eklendi');location.href=""index.asp?page=ilanlarim"";</script>"
Next
'***********************************************************************************************************
%>
 

 

Alanya Emlak

elektronikssl
webimgo

#2
kelebek kelebek WM Aracı Kullanıcı
  • Üyelik 11.05.2013
  • Yaş/Cinsiyet 32 / E
  • Meslek Geliştirici
  • Konum Malatya
  • Ad Soyad E** K**
  • Mesajlar 3142
  • Beğeniler 60 / 764
  • Ticaret 5, (%100)
Hocam aynı name birden fazla olunca sorun çıkar. Namenin sonuna "[]" eklerseniz array olarak alırsınız.
 

 

#3
emlak48 emlak48 WM Aracı Kullanıcı
  • Üyelik 28.03.2016
  • Yaş/Cinsiyet 42 / E
  • Meslek Emlak
  • Konum Antalya
  • Ad Soyad İ** Y**
  • Mesajlar 112
  • Beğeniler 3 / 2
  • Ticaret 0, (%0)
Merhaba Hocam
örnek verebilirmisin, birde kodların neresine uygulamam gerekiyor.
teşekkürler.
 

 

Alanya Emlak

#4
kelebek kelebek WM Aracı Kullanıcı
  • Üyelik 11.05.2013
  • Yaş/Cinsiyet 32 / E
  • Meslek Geliştirici
  • Konum Malatya
  • Ad Soyad E** K**
  • Mesajlar 3142
  • Beğeniler 60 / 764
  • 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/4561686/handling-arrays-of-html-input-elements-with-request-form-like-php
 

 

wmaraci
wmaraci
Api kullanımı hakkında yardım
Delphi 7 Çoklu Arama Değiştirme Yapımda
wmaraci
wmaraci
Konuyu toplam 4 kişi okuyor. (0 kullanıcı ve 4 misafir)
 
Site Ayarları
  • Tema Seçeneği
  • Site Sesleri
  • Bildirimler
  • Özel Mesaj Al