ASPTurkiye.com Forum: checkbox ile çoklu gönderim sorunu

implant

Aktif Konular

Üye Listesi

Arama

Yardım

Kayıt Ol

Giriş

ASP / ASP.NET
ASPTurkiye.com Forum : ASP / ASP.NET

Konu: checkbox ile çoklu gönderim sorunu

Yazanlarda

Mesaj

<< Önceki Konu | Sonraki Konu >>

dgner
Yeni Üye

Kayıt Tarihi: 23-Nisan-2012
Gönderilenler: 3

Gönderen: 23-Nisan-2012 Saat 09:59 \| Kayıtlı IP

tablo.asp
<body>

<%
set baglanti = Server.CreateObject("adodb.Connection")
baglanti.open "Provider=Microsoft.Jet.Oledb.4.0;Data
Source=" & Server.Mappath("mallar.mdb")
Set aranan = Server.CreateObject("adodb.RecordSet")
sql="SELECT * From fiyatlar WHERE adi like '%" &
Request.Form("aranan") & "%' "
aranan.open sql, baglanti, 1, 3
%>
<div style="width:540px;margin-top:10px;">

<table id="veri-formu" class="tablesorter"
cellpadding="0" cellspacing="1">

<thead>
                    <tr >

                      <th>URUN ADI</th>
                      <th>TOPTAN</th>
                      <th>PAREKENDE</th>
                             <th>ADET</th>
                      <th>SEC</th>
                      <th>EKLE</th>
                    </t r>
                </thead>

<tbody>
<%Do While Not aranan.eof%>
<tr>
<form method="post" action="urunfiyat.asp">
<td ><%=aranan("adi")%></td>
<td align="right"><span><%=aranan("fiati")%></ span>
TL</td>
<td align="right"><span><%=aranan("prk")%></sp an>
TL</td>
<td ><input name="urunadet" type="text" size=1
value="1"></td>
<td ><input name="secim" type="checkbox" value="
<%=aranan("id")%>"id="secim"></td>
<td><input name ="ekle"type="submit" value="ekle"
id="ekle" ></td>

               <input name="id" type="hidden" value="
<%=aranan("id")%>">
               <input name="adi" type="hidden" value="
<%=aranan("adi")%>">
               <input name="fiati" type="hidden"
value="<%=aranan("fiati")%>">
                  <input name="prk" type="hidden"
value="<%=aranan("prk")%>">

</tr></form>

<%
aranan.movenext
Loop
%> </tbody></table>
</div>

</body>

asp ile amatör düzeyde ilgileniyorum.
Öncelikle desteğini esirgemeyenlere şimddiden teşekkürler

Sorunum şu:
Döngünün içindeki ekle butonunu döngünün dışına alıp
checkbox yardımıyla çoklu seçim yapıp ürünleri tek
seferde sepete atmak.

Düzenleyen dgner 23-Nisan-2012 Saat 17:16

Yukarı Dön

fanatik
Üye
Üye

Kayıt Tarihi: 11-Nisan-2012
Gönderilenler: 76

Gönderen: 23-Nisan-2012 Saat 15:09 \| Kayıtlı IP

Sadece sorun'un olduğu (ekle butonunun olduğu) Sub ı yazmanız yeterlidir.
Daha iyi yardımcı olunabilir.

Uygun şekilde duzenlemeni tavsiye ederim.
benden başka cevap yazan yok, bende kodları okumaya üşeniyorum malesef.

__________________
http://www.googledostu.com
Türk Sosyal İmleme Sitesi

Yukarı Dön

dgner
Yeni Üye

Kayıt Tarihi: 23-Nisan-2012
Gönderilenler: 3

Gönderen: 23-Nisan-2012 Saat 17:13 \| Kayıtlı IP

uyarınız için tşkler.Umarım ilgilenen çıkar

Yukarı Dön

fanatik
Üye
Üye

Kayıt Tarihi: 11-Nisan-2012
Gönderilenler: 76

Gönderen: 24-Nisan-2012 Saat 13:42 \| Kayıtlı IP

For each dongüsüyle yapabilirsin.
post metoduyla urunfiyat.asp ye göndermişsin

Bir sayfada bir form olur kuralını ihlal etmişsin.
Döndü sürekli form nesnesi oluşturuyor.

Tablonunda formun içerisinde olması gerekiyor

öncelikle döngünü şu şekilde düzenle:

<form method="post" action="urunfiyat.asp">

<table id="veri-formu" class="tablesorter"
cellpadding="0" cellspacing="1">

<thead>
<tr >

<th>URUN ADI</th>
<th>TOPTAN</th>
<th>PAREKENDE</th>
<th>ADET</th>
<th>SEC</th>
<th>EKLE</th>
</t r>
</thead>

<tbody>

<%Do While Not aranan.eof%>
......
<%
aranan.movenext
Loop
%>

</tbody></table>
</div>

</form>

Urunfiyat.asp sayfasını aşağıdaki kodu uygun yere yerleştir.
Sadece işaretli checbax lar post olacağı için ve her birinin adı ekle olduğundan
For eahc dongüsü kullanılması yeterlidir

<%for each i in request.form ' Forma gelen bütün veriler

if i = "ekle" then 'gelen verilerden adı ekle olanlar

request.form(i) ' i nesnesinin içeriğini okuma
Response.write(Request.form(i)) ' i nesnesininin içini ekrana yazdırma ekrna yazdırma
Response.write (i&":"&Request.form(i)&"<br/>") 'i nin adı: Degeri

'if in icine sepete at fonksiyonunu yazarsan istedigin olur.

End if

next%>

Düzenleyen fanatik 24-Nisan-2012 Saat 13:53

__________________
http://www.googledostu.com
Türk Sosyal İmleme Sitesi

Yukarı Dön

dgner
Yeni Üye

Kayıt Tarihi: 23-Nisan-2012
Gönderilenler: 3

Gönderen: 24-Nisan-2012 Saat 15:11 \| Kayıtlı IP

İlginiz için çok teşekkür ederim.Ancak kodlama bilgim çok
az Bu nedenle yardımızın devamını dileyerek diğer kodları
da vermek istiyorum.(Esasen yapmak istediğim ürünlerin
alış ve satış fiyatları arasındaki farka ulaşmak.Bunu
kendi işyerimde kullanmak istiyorum.Lütfen hazıra konmak
istediğimi düşünmeyin.İnanın kodlamayı pek bilmediğimden
)

urunfiyat.asp


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0
Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-
transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<META http-equiv=Content-Type content=text/html;
charset=iso-8859-9>
<META http-equiv=content-type
content=text/html;charset=windows-1254>
<META http-equiv=content-type
content=text/html;charset=x-mac-turkish>
<title>doğan eroğlu</title>

<script type='text/javascript'
src='http://code.jquery.com/jquery-1.6.2.js'></script& gt;
<script type="text/javascript"
src="http://ajax.googleapis.com/ajax/libs/jqueryui/1.8.14
/jquery-ui.js"></script>
<link rel="stylesheet" type="text/css"
href="sepet.css"/>
</head>

<body>
    <div class="sepet">

<table id="veri-formu" class="tablesorter" border="0"
cellpadding="0" cellspacing="1">
<form method="post" action="urunfiyat.asp?
islem=yapilandir" name=sepetimiz>
<input name="SİL" type="hidden" value="1">
<%
sepetToplam = 0
%>
<thead>
                <tr>

                      <th>URUN ADI</th>
                      <th>TOPTAN</th>
                      <th>PAREKENDE</th>
                      <th>ADET</th>
                </tr>
           </thead>
     <tbody>    ;

     <%
for i = 0 to uBound(yerelSepet, 2)
   if yerelSepet(0, i) <> "" then
   sepetTotal = sepetTotal + ( yerelSepet(2, i) *
yerelSepet(3, i))
   sepetTotal1 = sepetTotal1 + ( yerelSepet(4, i) *
yerelSepet(3, i))
%>
        <td ><%=left(yerelSepet(1, i),35)%>..</td>
        <td><%=yerelSepet(2, i)%></td>
           <td><%=yerelSepet(4, i)%></td>
        <td>

        <input name="ekle<%=yerelSepet(0, i)%>"
type="text" size=2 value="<%=yerelSepet(3, i)%>">
        <input name="sil<%=yerelSepet(0, i)%>"
type="checkbox" value="1">
        </td>
           </tr>


<%
   end if
next
%>

        </tbody>
        <tr bgcolor="#999" height="32" border="0"><td
colspan=1> TOPLAM: </td> <td><b>
<%=formatCurrency(sepetTotal)%></b></td>&l t;td><b>
<%=formatCurrency(sepetTotal1)%></b></td>& lt;td><input
type="submit" value="SİL" id=submit1 name=submit1></td>
           </tr>
           </form>
     <td colspan=1><span class="span" id="birak">Seçimi
Kaldır</span></td><td></td><td colspan=2><span
class="span" id="sec"> Hepsini Seç</span></td>

</table>
     </div>
</body>
</html>

<%
     rs.close
     set rs=nothing
     conn.close
     set conn=nothing
end if
%>

sepet.asp

<%
Response.Buffer = true
%>
<%
'SEPET islemlerimiz basliyor
Session.Timeout = 20

DIM id, adi, fiati,prk,urunadet,secim, durum
if not isArray( session("sepet")) Then
   dim yerelSepet(5, 30)
else
   yerelsepet = Session("sepet")
end if

islem = Request.QueryString("islem")

if islem <> "" then

for i = 0 to uBound( yerelSepet, 2 )
      yeni = trim(Request("ekle"&yerelSepet(0, i)))
      cope = trim(Request("sil"&yerelSepet(0, i)))
        if yeni = "" or yeni = "0" or cope <> "" then
           yerelSepet(0, i) = ""
        else
           if isNumeric(yeni) then
             yerelSepet(3, i) = yeni
           end if
        end if
      next

   Session("sepet") = yerelSepet
   Response.Redirect "urunfiyat.asp"
else 'en sonda kapaniyor??

id = trim(Request("id"))
adi = trim(Request("adi"))
fiati = trim(Request("fiati"))
prk = trim(Request("prk"))
urunadet=CInt(Request("urunadet"))
secim=Request("secim")

'SEPETE ekleme islemi --sepet içini sorguluyor
if id <> "" and secim<>"" then
     buldum = false
     for i = 0 to uBound(yerelSepet) 'önce bir Id
tara icinde varmi?
      if yerelSepet(0, i) = id then
         yerelS epet(3, i) = yerelSepet(3, i) +
urunadet
         buldum = true 'eger gelen numara varsa
Bulundugunu belirtsin
         exit for
      end if
     next
if not buldum then 'eger önceki döngüdeki id bulunduysa
calismasin, bulunmadiysa yeni yaratsin
    for i = 0 to uBound(yerelSepet, 2)
      if yerelsepet(0, i) = "" then
        yerelsepet(0, i) = id
        yerelsepet(1, i) = adi
        yerelsepet(2, i) = fiati
        yerelsepet(3, i) = urunadet
           yerelsepet(4, i) = prk
        exit for
      end if
    next

end if

end if


Session("sepet") = yerelSepet

%>

Yukarı Dön

memetcvs
Yeni Üye

Kayıt Tarihi: 03-Mayıs-2012
Gönderilenler: 14

Gönderen: 03-Mayıs-2012 Saat 22:54 \| Kayıtlı IP

acaba bu sorunu tamamen çözermi

Yukarı Dön

Eğer Bu Konuya Cevap Yazmak İstiyorsanız İlk Önce Giriş
Eğer Kayıtlı Bir Kullanıcı Değilseniz İlk Önce Kayıt Olmalısınız

Yazıcı Sürümü

Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Açık Forumda Anketlerde Oy Kullanma