Şimdi Ara

post ile veri gönderme,çözüldü

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir (1 Mobil) - 1 Masaüstü1 Mobil
5 sn
2
Cevap
0
Favori
434
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • slm

    admin.asp dosyası içinde alt programlar var , bir alt programdan veriler üzerinde değişiklik yaptırıyorum , submit edilince , aynı dosya içinde başka bir alt program ile vt'ye yazdırmayı deniyorum , post metodu işe çağırıyorum ama değerler gitmiyor ? ne önerirsiniz ?

    değişiklikleri yapan alt program :

     
    sub Genel_ayarlar
    response.write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=3789049&url="admin.asp?op=ayarlar"" data-href=""admin.asp?op=ayarlar"">Yönetim</a> >> <i>Genel Ayarlar </i>")
    '-------------------veritabanı bağlantısı başlangıç
    VT_YOL = SERVER.MAPPATH("db.mdb")
    DSN = "DBQ=" & VT_YOL & ";Driver={Microsoft Access Driver (*.mdb)}"
    SQL="select * from genel_ayarlar"
    'response.write (sql)
    set BAGLANTI = Server.CreateObject("ADODB.Connection")
    'BAGLANTI.open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb"))
    BAGLANTI.Open DSN

    set rs = server.createobject("ADODB.Recordset")
    rs.open SQL,BAGLANTI,1,3

    radet = rs.recordcount
    'response.write("bulunan kayıt sayısı:"&radet)
    '-----------------Veri tabanı bağlnatı bitiş




    response.write("<br><br><br>") %>
    <table border=1><form name=genel_ayarlar action="admin.asp?op=genel_guncelle" method="post">
    <tr>
    <td><b>Maillerin geleceği adres</b></td><td><input type=text name="mail" value=<%=rs(1)%> ></td>
    <tr>
    <td><b>Ana sayfa Logosu</b></td><td><%=rs(2)%></td><td><input type=file></td>
    <tr>
    <td><b>Firma bilgisi</b></td><td><textarea name="bilgi"><%=rs(3)%></textarea></td>
    <tr>
    <td><b>Site başlğı</b></td><td><input type=text name="baslik" value=<%=rs(4)%> ></td>
    </table>
    <input type=submit value="Değişiklikleri kaydet">

    <%
    end sub




    ---------

    değişiklikleri kaydedecek alt program :
     

    sub genel_guncelle
    response.write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=3789049&url="ayarlar.asp"" data-href=""ayarlar.asp"">Yönetim</a> >> <i>Genel Ayarlar </i>")
    response.write ("<br>Genel ayarlarda yaptığınız değişiklikler kaydedildi.")
    '-------------------veritabanı bağlantısı başlangıç
    VT_YOL = SERVER.MAPPATH("db.mdb")
    DSN = "DBQ=" & VT_YOL & ";Driver={Microsoft Access Driver (*.mdb)}"
    genel_mail=request.querystring("mail")
    genel_logo=request.querystring("logo")
    genel_bilgi=request.querystring("bilgi")
    genel_baslik=request.querystring("baslik")



    SQL="update genel_ayarlar set genel_mail= ' " &genel_mail & " ' " _
    &" where genel_sira_no=1"
    '&"genel_logo=' " &genel_logo & " ' "_
    '&"genel_bilgi=' " &genel_bilgi & " ' "_
    '&"genel_baslik=' " &genel_baslik & " '


    'sql="update genel_ayarlar set genel_mail='selam@dostum.com' where genel_sira_no=1"

    response.write (sql)
    set BAGLANTI = Server.CreateObject("ADODB.Connection")
    'BAGLANTI.open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb"))
    BAGLANTI.Open DSN

    baglanti.execute(sql)

    'set rs = server.createobject("ADODB.Recordset")
    'rs.open SQL,BAGLANTI,1,3

    'radet = rs.recordcount
    'response.write("bulunan kayıt sayısı:"&radet)
    '-----------------Veri tabanı bağlnatı bitiş



    end sub



    ---------

    her iki alt programda aynı dosya içerisinde bulunuyor , alt programları şu şekilde çağırıyorum:
     
    op=request.querystring("op")
    op=trim(op)
    'response.write("selecten önceye geldim"&op&".")
    select case op
    case "genel": Genel_ayarlar
    case "genel_guncelle": Genel_guncelle
    case "urun": urun_ayarlar
    case "ziyaretci_defter": ziyaretci_defter_ayarlar
    case "secenekler": default
    case "ayarlar": ayarlar

    case else : yasak
    end select


    alt programların çağırılmasında sorun yok ama değerler transfer edilmiyor ?

    ne önerirsiniz ?



    < Bu mesaj bu kişi tarafından değiştirildi sherlockholmes_1980 -- 19 Ağustos 2005, 11:56:45 >







  • request.querystring yerine request yazınca çözüldü
  • Yapay Zeka’dan İlgili Konular
    Daha Fazla Göster
    
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.