Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

asp son döngü karakteri sonlandırma

Konu, 'ASP' kısmında sdaricim tarafından paylaşıldı.

  1. sdaricim

    sdaricim Üye

    Kayıt:
    28 Ocak 2017
    Mesajlar:
    41
    Beğenilen Mesajlar:
    1
    Şehir:
    ankara
    merhabalar json çıksıtı almaya çalışıyorum. fakat bir sorunum var.

    normalde döngü sonucu aşağıdaki şekilde olması gerekirken
    ["ilk veri|Adet|1","ikinci veri|Adet|2"]

    aşağıdaki şekilde çıkıyor (kırmızı kısımlar bozuyor)
    ["ilk veri|Adet|1","ikinci veri|Adet|2",""]

    kodu nasıl değiştirmem gerekiyor.

    PHP:
    response.Write("[""")
    Do While 
    Not query.EOF And 11
    if not i 1 then
        adi
    =query("adi")
        
    id=query("id")
        
    response.Write(adi)
        
    response.Write("|")
        if 
    query("tipi") = "1" then
        response
    .Write("Adet")
        elseif 
    query("tipi") = "2" then
        response
    .Write("Gün")
        elseif 
    query("tipi") = "3" then
        response
    .Write("Saat")
        
    end if
        
    response.Write("|")
        
    response.Write(id)
    else
        
    response.Write(" ")
    end if
        
    response.Write(""",""")
        
    1
        query
    .MoveNext:Loop
        response
    .Write("""]")
        
    query.close:set query=nothing
     
  2. skacurt

    skacurt Â

    Kayıt:
    4 Ocak 2008
    Mesajlar:
    4,340
    Beğenilen Mesajlar:
    21
    Meslek:
    Küfeci
    Şehir:
    İstanbul
    Geçerli bir JSON çıktı üretebilmek için ele alınması gereken başka durumlar da var. O yüzden bir JSON kütüphanesi kullanmakta fayda var.
    GitHub - tugrul/aspjson: JSON for ASP adresindeki JSON.asp dosyasını sayfaya include ile ekleyin.
    Sonra kodun gösterdiğiniz kısmını aşağıdaki ile değiştirin, istediğiniz gibi olmalı.

    Kod:
    rows = Array()
    
    Do While Not query.EOF
        adi = query("adi")
        id = query("id")
        tipi = query("tipi")
        Select Case tipi
            Case "1" tipi = "Adet"
            Case "2" tipi = "Gün"
            Case "3" tipi = "Saat"
        End Select
        newBound = UBound(rows) + 1
        ReDim Preserve rows(newBound)
        rows(newBound) = Join(Array(adi ,tipi, id), "|")
        query.MoveNext
    Loop
    
    Response.Write toJSON(rows)
    
    query.Close
    Set query = Nothing
     
  3. sdaricim

    sdaricim Üye

    Kayıt:
    28 Ocak 2017
    Mesajlar:
    41
    Beğenilen Mesajlar:
    1
    Şehir:
    ankara

    aşağıdaki şekilde çözdüm hocam yardımı olabilir başkalarına o yüzden paylaşıyorum.

    PHP:
    set query sur.execute("SELECT * FROM hizmetler where hizmet_adi Like '" isim "%' and sil=1")
    set toplam_hizmet sur.execute("SELECT Count(hizmet_id) as tpl FROM hizmetler where hizmet_adi Like '" isim "%' and sil=1")
    toplam=Cint(toplam_hizmet("tpl"))
    response.Write("[""")
    Do While 
    Not query.EOF And toplam
    if not i toplam-1 then
    hizmet_adi
    =query("adi")
    hizmet_id=query("id")
    response.Write(adi)
    response.Write("|")
    if 
    query("tipi") = "1" then
    response
    .Write("Adet")
    elseif 
    query("tipi") = "2" then
    response
    .Write("Gün")
    elseif 
    query("tipi") = "3" then
    response
    .Write("Saat")
    end if
    response.Write("|")
    response.Write(id)
    response.Write(""",""")
    else
    hizmet_adi=query("adi")
    hizmet_id=query("id")
    response.Write(adi)
    response.Write("|")
    if 
    query("tipi") = "1" then
    response
    .Write("Adet")
    elseif 
    query("tipi") = "2" then
    response
    .Write("Gün")
    elseif 
    query("tipi") = "3" then
    response
    .Write("Saat")
    end if
    response.Write("|")
    response.Write(id)
    end if
    1
    query
    .MoveNext:Loop
    response
    .Write("""]")
    query.close:set query=nothing
    end 
    if