ajax ve asp kullanarak basit form yapmak

**trancenergy** · 27.03.2007 00:53

arkadaşlar çok araştırdım forumdada aradım fakat bi çözüm ve örnek bulamadım yapmak istediğim şey basit bir form örneğin ad ve soyad giriş alanları var bilgiler girilip kayıt tuşuna bastığında kaydediliyor yazısı çıkacak ve access veritabanına kayıt edicek işlem tamamlandığında alan değişip kaydedilmiştir yazısı çıkacak hiç bir yerde böyle bir örnek bulamadım yardımcı olursanız çok sevinirim

**burakozgur** · 27.03.2007 01:06

mantık olarak belirtmek gerekirse formun onsubmit kısmına bir js yazacaksın. js'nin içine ASP kodunu rahatlıkla koyabiliyorsun. formda kaydet tusuna basıldıgında sayfadaki js cagrılacak uzerine bir div gelecek ve işlem yapılıyor diyecek yapıldıktan sonrada div tekrar hide edilecek. Elimde hazır kod yok ama mantığını hızlı bir şekilde söyledim. JS bilgin varsa kolaylıkla yapabilirsin.

**Ashbringer** · 27.03.2007 01:12

* ajax-ile-form-olusturmak-veri-yollamak

form işleme sayfan normal ASP de yaptığın işleme sayfası gibi olacak hatalarıda aynı sayfada response.write ile yazıdr boş bırakılan yada geçersiz uzunluk/karakter vs gibi yine aynı şekilde kayıt tamamlanınca da response.write ile işleme sayfasında yazdır. form butonuna basınca o işleme sayfasında response ile ne yazdırırsan belirttiğin div içerisinde o yazı çıkacaktır.

**trancenergy** · 27.03.2007 05:34

arkadaşlar tüm ASP kodları hazır fakat ajax hakkında hiçbir fikrim yok örnek olarak gösterebilirseniz çok sevinirim kodları şimdi gönderiyorum
form.ASP

PHP Kodu:

 <% @Language=VBScript %>

<%

Set Sur = server.CreateObject("ADODB.Connection")

Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database/db.mdb")

 
Set ibo = server.CreateObject("ADODB.Recordset")

sor = "Select * from tablo ORDER BY id DESC"

deneme.Open sor,Sur,1,3

 
git = Request.QueryString("git")

if git="" then 

git=1

end if

 
islem=Request.QueryString("islem")

if islem="ekle" then

call ekle

end if

%>

 
 
 
 
<form method="POST" action="islem.ASP?islem=ekle">

<div>

<div><p>ad</p>

<p><input type="text" name="ad" size="22"></p>

</div>

<div><p>soyad</p>

<p><input type="text" name="ad" size="22">

</div>

<div>

<p><input type="submit" value="kaydet" name="Submit"></p>

</div>

</div>

şimdide islem.ASP kodları

PHP Kodu:

 <%sub ekle

Set Sur = server.CreateObject("ADODB.Connection")

Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database/db.mdb")

 
Set ibo = server.CreateObject("ADODB.Recordset")

sor = "Select * from tablo"

deneme.Open sor,Sur,1,3

%>

 
<% Dim ad, soyad

ad = Request.form("ad")

soyad = Request.form("soyad")

 
 
ibo.addnew

ibo("ad") = ad

ibo("soyad") = soyad

ibo.update

 
Response.Write "Kayıt Tamamlandı."

Response.End

end sub

%>

kodlar bunlar ajax ile neler eklemeliyim yardım ederseniz çok sevinirim herkese iyi çalışmalar.

**trancenergy** · 28.03.2007 13:26

arkadaslar kusura bakmayin ama acil olarak lazimdi su an orda takildim kaldim bi ornek verirseniz cok iyi olacak

**burakozgur** · 28.03.2007 13:50

İstediğin kod burada. Ektede JS'sini ve uygulamasını görebilirsin.

Kolay gelsin.

**trancenergy** · 30.03.2007 11:34

arkadaşlar herşey tamam fakat kaydet butonuna bastığımda textboxtakileri almıyor boş kayıt yapıyo veritabanına bunu nasıl düzeltebilirim hala bir çözüm bulamadım acilen yardım ederseniz sevinirm aşağıda kodları veriyorum

bunlar form.ASP

PHP Kodu:

 <% @Language=VBScript %>

<%

Set Sur = server.CreateObject("ADODB.Connection")

Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database/db.mdb")

 
Set deneme = server.CreateObject("ADODB.Recordset")

sor = "Select * from isimler"

deneme.Open sor,Sur,1,3

 
islem=Request.QueryString("islem")

if islem="ekle" then

call ekle

end if

%>

 
<HTML>

 
<head>

<script type="text/JavaScript" src="ajax_navagation.js"></script>

<script type="text/JavaScript">set_loading_message("Lütfen bekleyiniz...");</script>

<meta http-equiv="Content-Type" content="text/HTML; charset=windows-1254" />

<title>Deneme</title>

</head>

 
<body>

<div id="my_site_content" align="center">

  <form method=post action="JavaScript:void(0)" onsubmit="open_url('form.ASP?islem=ekle','my_site_content');" />

<div><p><input type="text" name="ad" size="30"></p></div><br />

<div><p><input type="text" name="soyad" size="30"></p></div><br />

<div><p><input type="submit" value="Tamam" name="B1" /></p></div>

</div>

 
</body>

 
</HTML>

 
<%sub ekle

Set Sur = server.CreateObject("ADODB.Connection")

Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database/db.mdb")

 
Set deneme = server.CreateObject("ADODB.Recordset")

sor = "Select * from isimler"

deneme.Open sor,Sur,1,3

%>

 
<% 

Dim ad, soyad

ad = Request.form("ad")

soyad = Request.form("soyad")

 
deneme.addnew

deneme("ad") = ad

deneme("soyad") = soyad

deneme.update

 
Response.Write "<center>eklendi<br><a href=deneme.ASP>sayfa</a></center>"

Response.End

end sub

%>

bunlarda ajax.js

PHP Kodu:

 var please_wait = null;

 
function open_url(url, target) {

     if ( ! document.getElementById) {

          return false;

     }

 
     if (please_wait != null) {

          document.getElementById(target).innerHTML = please_wait;

     }

 
     if (window.ActiveXObject) {

          link = new ActiveXObject("Microsoft.XMLHTTP");

     } else if (window.XMLHttpRequest) {

          link = new XMLHttpRequest();

     }

 
     if (link == undefined) {

          return false;

     }

     link.onreadystatechange = function() { response(url, target); }

     link.open("GET", url, true);

     link.send(null);

}

 
function response(url, target) {

     if (link.readyState == 4) {

         document.getElementById(target).innerHTML = (link.status == 200) ? link.responseText : "Kırık link, Hata MEsajı: " + link.status;

    }

}

 
function set_loading_message(msg) {

     please_wait = msg;

}

şimdiden yardımlarınız için teşekkürler

**teknoemin** · 30.03.2007 12:26

trancenergy tarafından gönderilen mesaj:

arkadaşlar herşey tamam fakat kaydet butonuna bastığımda textboxtakileri almıyor boş kayıt yapıyo veritabanına bunu nasıl düzeltebilirim hala bir çözüm bulamadım acilen yardım ederseniz sevinirm aşağıda kodları veriyorum

bunlar form.ASP

PHP Kodu:

 <% @Language=VBScript %>

<%

Set Sur = server.CreateObject("ADODB.Connection")

Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database/db.mdb")

 
Set deneme = server.CreateObject("ADODB.Recordset")

sor = "Select * from isimler"

deneme.Open sor,Sur,1,3

 
islem=Request.QueryString("islem")

if islem="ekle" then

call ekle

end if

%>

 
<HTML>

 
<head>

<script type="text/JavaScript" src="ajax_navagation.js"></script>

<script type="text/JavaScript">set_loading_message("Lütfen bekleyiniz...");</script>

<meta http-equiv="Content-Type" content="text/HTML; charset=windows-1254" />

<title>Deneme</title>

</head>

 
<body>

<div id="my_site_content" align="center">

  <form method=post action="JavaScript:void(0)" onsubmit="open_url('deneme.ASP?islem=ekle','my_site_content');" />

<div><p><input type="text" name="ad" size="30"></p></div><br />

<div><p><input type="text" name="soyad" size="30"></p></div><br />

<div><p><input type="submit" value="Tamam" name="B1" /></p></div>

</div>

 
</body>

 
</HTML>

 
<%sub ekle

Set Sur = server.CreateObject("ADODB.Connection")

Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database/db.mdb")

 
Set deneme = server.CreateObject("ADODB.Recordset")

sor = "Select * from isimler"

deneme.Open sor,Sur,1,3

%>

 
<% 

Dim ad, soyad

ad = Request.form("ad")

soyad = Request.form("soyad")

 
deneme.addnew

deneme("ad") = ad

deneme("soyad") = soyad

deneme.update

 
Response.Write "<center>eklendi<br><a href=deneme.ASP>sayfa</a></center>"

Response.End

end sub

%>

bunlarda ajax.js

PHP Kodu:

 var please_wait = null;

 
function open_url(url, target) {

     if ( ! document.getElementById) {

          return false;

     }

 
     if (please_wait != null) {

          document.getElementById(target).innerHTML = please_wait;

     }

 
     if (window.ActiveXObject) {

          link = new ActiveXObject("Microsoft.XMLHTTP");

     } else if (window.XMLHttpRequest) {

          link = new XMLHttpRequest();

     }

 
     if (link == undefined) {

          return false;

     }

     link.onreadystatechange = function() { response(url, target); }

     link.open("GET", url, true);

     link.send(null);

}

 
function response(url, target) {

     if (link.readyState == 4) {

         document.getElementById(target).innerHTML = (link.status == 200) ? link.responseText : "Kırık link, Hata MEsajı: " + link.status;

    }

}

 
function set_loading_message(msg) {

     please_wait = msg;

}

şimdiden yardımlarınız için teşekkürler

Birde deneme.ASP dosyasının içeriğini alabilirmiyiz acaba ?

**trancenergy** · 30.03.2007 15:16

deneme.ASP ile form ASP aynı zaten aynı sayfa icinde yapıyor ben ismini değiştirmeyi unutmuşum

**teknoemin** · 30.03.2007 18:17

trancenergy tarafından gönderilen mesaj:

deneme.ASP ile form ASP aynı zaten aynı sayfa icinde yapıyor ben ismini değiştirmeyi unutmuşum

İnan 45 dk dır denemeler yapıyorum ama js ile aram olmadığından dolayı bir ilerleme kaydedemedim. Ancak ASP sanıyorum ki js dosyasında bir eksik yada hata var. Kodlarını kendimce düzelttim sana düzgün hallerini vereyim.

form.ASP

Teknoemin tarafından gönderilen mesaj:

<% @Language=VBScript %>

<HTML>
<head>
<script type="text/JavaScript" src="ajax_navagation.js"></script>
<script type="text/JavaScript">set_loading_message("Lütfen bekleyiniz...");</script>
<meta http-equiv="Content-Type" content="text/HTML; charset=windows-1254" />
<title>Deneme</title>
</head>

<body>
<div id="my_site_content" align="center">
<form method=post action="JavaScript:void(0)" onsubmit="open_url('dene.ASP','my_site_content');" />
<div><p><input type="text" name="ad" size="30"></p></div><br />
<div><p><input type="text" name="soyad" size="30"></p></div><br />
<div><p><input type="submit" value="Tamam" name="B1" /></p></div>
</div>

<%
islem = request.querystring("islem")
if islem="tamam" then
%>

<h2><center>İşlem tamamdır

<%
end if
%>

Dene.ASP

Teknoemin tarafından gönderilen mesaj:

<%
Set Sur = server.CreateObject("ADODB.Connection")
bag = "Provider=Microsoft.JET.OLEDB.4.0;data source="&server.MapPath("db.mdb")&";"
Sur.open(bag)
%>

<%
Dim ad, soyad
ad = Request.form("ad")
soyad = Request.form("soyad")

Set deneme = server.CreateObject("ADODB.Recordset")
deneme.open "SELECT * FROM isimler",bag,1,3

deneme.addnew
deneme("ad") = ad
deneme("soyad") = soyad
deneme.update

Response.redirect "form.ASP?islem=tamam"
%>

Konu Başlığı: ajax ve asp kullanarak basit form yapmak

Konuyu Paylaş

Seçenekler

ajax ve asp kullanarak basit form yapmak

Re: ajax ve asp kullanarak basit form yapmak

Re: ajax ve asp kullanarak basit form yapmak

Re: ajax ve asp kullanarak basit form yapmak

Re: ajax ve asp kullanarak basit form yapmak

Re: ajax ve asp kullanarak basit form yapmak

Re: ajax ve asp kullanarak basit form yapmak

Re: ajax ve asp kullanarak basit form yapmak

Re: ajax ve asp kullanarak basit form yapmak

Re: ajax ve asp kullanarak basit form yapmak

Bu konu başlığı için etiketler

Mesaj Seçenekleri