Asp'de Kayıt Ekleme, Silme, Düzeltme, Listeleme İşlemleri

BLUE_AZ · 24 Eki 2008

Şimdi acceses de vt.mdb şeklinde bir veritabani oluşturalım.

tablo ya ismini UYELER yaptık ve kaydettik

şimdi veritabanina kayıt işlemi için

kaydet.asp mizi tasarlıyoruz

Kod:

<table width="98%" border="0" cellpadding="0" cellspacing="0" id="table6">
                                        <tr>
                                          <td align="center" >
<form action="uyekaydet.asp" method="post">
 
 <table width="560" border="0" cellpadding="3" cellspacing="1" bgcolor="#cacbcd" style="font-family:Tahoma; font-size:11px; " id="table8" height="40">
  <tr height="31">
    <td width="120" height="19" align="right" bgcolor="#f8f8f8" class="linestyle4">
    Ad : </td>
    <td width="425" height="19" align="left" bgcolor="#f8f8f8" class="linestyle4">
 
 
 
 
                            <input type="text" name="ad" size="22" style="border: 1px solid #C0C0C0; font-family:Verdana" value=""></td>
  </tr>
 
 
 
  <tr>
    <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="right">
 
 
 
 
    Soyad : </td>
    <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="left">
 
 
 
 
                            <input type="text" name="soyad" size="22" style="border: 1px solid #C0C0C0; font-family:Verdana"></td>
    </tr>
 
 
 
  <tr>
    <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="right" valign="top">
 
 
 
 
    Yaş :</td>
    <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="left">
 
 
 
 
                            <input type="text" name="yas" size="22" style="border: 1px solid #C0C0C0; font-family:Verdana"></td>
 
    </tr>
 
 
 
  <tr>
    <td height="18" bgcolor="#F8F8F8" class="linestyle4" align="right">
 
 
 
 
     </td>
    <td height="18" bgcolor="#F8F8F8" class="linestyle4" align="left">
 
 
 
 
 
 
     </td>
    </tr>
 
 
 
 
    </td>
 
 
 
  <tr>
    <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="center">
 
 
 
 
     </td>
    <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="center">
 
 
 
 
    <p align="right">
                <input type="submit" value="Uye Kaydet !" style="border:1px solid #C0C0C0; font-family: Verdana; float:right; background-color:#F2F2F2" tabindex="13" name="gonder" onClick="form.gonder.disabled=true; form.gonder.value='Kaydediliyor Lütfen Bekleyiniz...'; form.submit()"></td>
    </tr>
 
  </table>
                                          </td>
</form>                                            
                                        </tr>
            </table>

şimdi post medhodu ile gönderdiğimiz bilgileri uyekaydet.asp ile veritabanina kayıt işlemini sağlıklı biçimde kaydedelim.

Kod:

<%
Set baglanti = server.createobject("adodb.connection")
baglanti.open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & Server.MapPath("vt.mdb")
%>
 
 
<%
 
ad = Request.Form("ad")
soyad = Request.Form("soyad")
yas = Request.Form("yas")
 
 
 
IF ad="" or soyad="" Then
Response.Write "<script language='JavaScript'>alert('Bilgileri Eksiksiz Doldurunuz...' );history.back(-1 );</script>" 
Response.End 
END IF 
 
Set Kaydet = Server.CreateObject("adodb.recordset")
sql="Select * From uyeler"
Kaydet.open sql , Baglanti ,1,3
 
 
Kaydet.AddNew
Kaydet("ad") = ad
Kaydet("soyad") = soyad
Kaydet("yas") = yas
 
 
 
Kaydet.Update
Kaydet.Close
Set Kaydet = Nothing
Baglanti.Close
Set Baglanti = Nothing
%>
 
 
<%
Response.Write "<script language='JavaScript'>alert('Başarı İle Kaydedildi... Yönlendiriliyorsunuz.');</script>"
Response.Write "<**** http-equiv='Refresh' content='1; URL=default.asp'>" 
%>

------------------- evett veri kayıt işlemi bu şekilde.

şimdi verilerimizi listeleyeceğimiz ve işlemlerin kısayollarını belirteceğimiz sayfa default.asp yi tasarlıyalım

Kod:

<table width="76%" border="0" cellpadding="0" cellspacing="0" id="table1">
          <tr>
            <td >
 
<%
Set baglanti = server.createobject("adodb.connection")
baglanti.open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & Server.MapPath("vt.mdb")
%>
           
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
StrSql = "Select * from uyeler "
Rs.Open StrSql, baglanti, 1, 3
%>

 <table width="765" border="0" cellpadding="3" cellspacing="1" bgcolor="#cacbcd" style="font-family:Tahoma; font-size:11px; " id="table3" height="40">
  <tr height="31">
    <td width="119" height="19" align="left" bgcolor="#f8f8f8" class="linestyle4">
 <b>   Ad</b></td>
    <td width="239" align="left" valign="top" bgcolor="#f8f8f8" class="linestyle4" height="19">
 <b>   Soyad</b></td>
    <td width="100" align="left" valign="top" bgcolor="#f8f8f8" class="linestyle4" height="19">
 <b>   Yaş</b></td>
    <td width="89" align="center" valign="top" bgcolor="#f8f8f8" class="linestyle4" height="19">
 <b>İşlemler</b></td>
  </tr>
  
<% i=0 : Do While Not rs.EOF %> 
<% If i Mod 2=0 Then TrRenk="#F1F1F1" Else TrRenk="#FFFFFF" %> 
 
 
  <tr>
    <td height="18" bgcolor="<%=TrRenk%>" class="linestyle4" align="center">
 
 <table border="0" width="100%" id="table5">
  <tr>
   
  </tr>
  
 </table>
 <font color="#CC0066">
 <%=rs("ad")%></font></td>
    <td height="18" bgcolor="<%=TrRenk%>" class="linestyle4" align="center">
 <%=rs("soyad")%></td>
    <td height="18" bgcolor="<%=TrRenk%>" class="linestyle4" align="center" width="100">
 <font color="#008080">
 <%=rs("yas")%></font></td>
    <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="center">
 <table border="0" width="100%" id="table6">
  <tr>
   <td onmouseover="bgColor='#EFF4F8'" onmouseout="bgColor='#FFFFFF'" align="left" width="59" style="border-style: solid; border-width: 1px">
   <b><font size="1"> <a href="sil.asp?id=<%=rs("id")%>"><span style="text-decoration: none"><font color="#000000">Sil</font></span></a></font></b></td>
  </tr>
  <tr>
   <td onmouseover="bgColor='#FFF2F2'" onmouseout="bgColor='#FFFFFF'" align="left" width="59" style="border-style: solid; border-width: 1px" height="23">
   <b><font size="1"> <a href="duzenle.asp?id=<%=rs("id")%>"><span style="text-decoration: none"><font color="#000000">Düzenle</font></span></a></font></b></td>
  </tr>
  </table>
 </td>
    </tr>
<% i=i+1 : rs.MoveNext : Loop %>   
  </table>
               </td>
           
          </tr>
   </table>

şimdi sil.asp mizi tasarlıyoruz

Kod:

<% Response.Buffer = True %>

<%
Set Rs = Server.CreateObject("ADODB.Connection")
Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("vt.mdb")

id = Request("id")
Set silgitsin = Server.CreateObject("ADODB.RecordSet")
SQL_delete = "DELETE from uyeler WHERE id="&id&""
silgitsin.open SQL_delete,Rs,1,3

Response.Redirect Request.serverVariables("HTTP_REFERER")
%>

şimdide duzenle.asp mizi yapalım bitsin bu iş bea =)

Kod:

<% Response.Buffer = True %>

<%
Set baglanti = server.createobject("adodb.connection")
baglanti.open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & Server.MapPath("vt.mdb")
%>

<%
if Request("islem") = "degistir" then
	Call degistir
End if
%>

<%
id = Request.QueryString("id")
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = ("Select * from uyeler where id = "& id &" ")
rs.Open sql, baglanti, 1, 3
%>

<form action="duzenle.asp?islem=degistir&id=<%=rs("id")%>" method="post" name="hab">

<table width="98%" border="0" cellpadding="0" cellspacing="0" id="table6">
										<tr>
										  <td align="center" >


	


 <table width="756" border="0" cellpadding="3" cellspacing="1" bgcolor="#cacbcd" style="font-family:Tahoma; font-size:11px; " id="table8" height="40">
  <tr height="31">
    <td width="120" height="19" align="right" bgcolor="#f8f8f8" class="linestyle4">
	Ad : </td>
    <td width="621" height="19" align="left" bgcolor="#f8f8f8" class="linestyle4">
				

	
	
							<input type="text" name="ad" size="22" style="border: 1px solid #C0C0C0; font-family:Verdana" value="<%=Rs("ad")%>"></td>
  </tr>
  
 
  
  <tr>
    <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="right">
	

	
	
	Soyad : </td>
    <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="left">
	

	
	
							<input type="text" name="soyad" size="22" style="border: 1px solid #C0C0C0; font-family:Verdana" value="<%=Rs("soyad")%>"></td>
    </tr>
  
 
  
  <tr>
    <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="right" valign="top">
	

	
	
	Yas :</td>
    <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="left">
	
	
<input type="text" name="yas" size="22" style="border: 1px solid #C0C0C0; font-family:Verdana" value="<%=Rs("yas")%>"></td>

    </tr>
  
 
  
  <tr>
    <td height="18" bgcolor="#F8F8F8" class="linestyle4" align="right">
	

	
	
	 </td>
    <td height="18" bgcolor="#F8F8F8" class="linestyle4" align="left">
	

	
	

	
	 </td>
    </tr>
  
 
  
	
	</td>
  
 
  
  <tr>
    <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="center">
	

	
	
	 </td>
    <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="center">
	

	
	
	<p align="right">
                <input type="submit" value="Uye Düzenle !" style="border:1px solid #C0C0C0; font-family: Verdana; float:right; background-color:#F2F2F2" tabindex="13" name="hab" onClick="form.gonder.disabled=true; form.gonder.value='Kaydediliyor Lütfen Bekleyiniz...'; form.submit()"></td>
    </tr>
  
  </table></form>
									      </td>
										</tr>
			</table>
			
			
			<%
Sub degistir
ad = Request.Form("ad")
soyad = Request.Form("soyad")
yas = Request.Form("yas")


if ad = "" or soyad = "" then
	Response.Redirect Request.ServerVariables ("HTTP_REFERER")
Else
id = Request.QueryString("id")
Set Kaydet = Server.CreateObject ("ADODB.RecordSet")
StrSql2 = ("Select * From uyeler where id = "& id &" ")
Kaydet.Open StrSql2, baglanti, 1, 3

Kaydet("ad") = ad
Kaydet("soyad") = soyad
Kaydet("yas") = yas


Kaydet.Update


Response.Write "<script language='JavaScript'>alert('Değişiklikler Başarı İle Kaydedildi...');</script>"
Response.Write "<**** http-equiv='Refresh' content='1; URL=default.asp'>" 

End if
End Sub
%>

test edilmiş ve geliştirmeniz açısından basitçe hazırlanmıştır hiç bilmeyen arkadaşlara ilaçç gibi geleceğini düşündüğüm için hazırladım çünkü ben ilk başladığımda bunu bulabilmem çok zor olmuştu :=)
neyse arkadaşlar isteyen olursa dosyayıda upload edebilirim ben localhostta denedim çalışıyor sorun yok + veritabanina yazma izni vermezseniz hatalar alırsınız doğal olarak unutmayın.

( aslında vt.asp oluşturup tek bir sayfayı include yöntemi ile veritabani bağlantılarımızı yapabilirddikki kesinlikle tavsiyemdir arkadaşlar temiz programlama ve sağlıklı progamlama için en temel sart tek veritabani bağlantısıdır. )

bir şey olursa yazın cevaplarım ...

zozz · 6 Kas 2008

guzel çalışma, asp de yeni olanların incelemesi gerekli
hadi ben de bir ekleme yapayım,

değerli, saygıdeğer ama bir o kadarda cimri access veritabanımız (') karakterini veritabanına yazmıyor.
ad=request. satırından sonra
ad=replace (ad,"'" ,chr(96) )
eklenebilir.

herdem · 9 Ara 2008

Allah razı olsun.Konunun devamını merakla bekliyorum.
Sizden ricam
-basiit haber sitesi yapma
-ilan sistemi
-kategori oluşturma
...
gibi örnekler verirseniz makbule geçer.

fsargun · 25 Ocak 2009

vt uyeler tablosundan tc kimliğe göre sorgulayıp listeleyecek bir asp kodu lazım, yardımcı olursanız sevinirim.

dizaynplus · 2 Şub 2009

güzel paylaşım. aslında bi eksiğiniz var onuda ben söyliyeyim. veri değişkenlerinide ekleyin daha güzel olur

güvenlik açığı olmayan site yapar arkadaşlarımız. <> % + - = gibi bazı karakterleri kodları ile değiştirerek db ye yazmalıyız sanırım.

tugays17 · 2 Mar 2009

fsargun' Alıntı:
vt uyeler tablosundan tc kimliğe göre sorgulayıp listeleyecek bir asp kodu lazım, yardımcı olursanız sevinirim.

hala lazımmı yoksa buldunuzmu ?

w@rriorhckr · 9 Mar 2009

paylaşımiçin teşekkürler kardeş

:

emregs · 14 Haz 2009

Kardeş SağoLasın.Ancak Bn Bu İşLere Yeni BaşLadım ve Pek AnLamıyorum .Adım Adım UyguLadım Ve OLdu ÇaLışıyo Fakat YönLendiriLiyorsunuz a Tamam Dediğim Vakit <**** http-equiv='*******' content='1; URL=default.asp'> böyle bi hadise geliyo.Yapmam GerekenLer Nedir ?.şimdiden sağoLun. .

emregs · 14 Haz 2009

Ya Kardeş Bide duzenle.asp de bi sorun var galiba

emregs · 14 Haz 2009

Kardeşim Bi Ricam Daha OLucak .şimdi herşey çok güzel bahsettiğim sorunları da çözdüm.index.asp sayfama üye giriş panelini ve üye girişini nasıl yaparım bu elimdekilerle ? Şimdiden SağoL

zadi01 · 15 Haz 2009

merhaba uyekaydet.asp vs dosyalarını kodlarını nasıl buluyorum yani ben sıfırdan yamak istiyorum tümünü elle mi yazacaz

BLUE_AZ · 9 Tem 2009

arkadaşlar kodları tekrar denedim sıkıntısız çalışıyor uzun zamandır girmiyorum forma ksbkmayın isteklerinizi teker teker yapalım yeni isteği olan yazsın birdahaki derste login.asp ve üye sistemlerini öğreteceğim.

birde zozz kardeşim söylediğin şey acsess içinmiydi ben hiç dikkat etmedim ya mysql de söylediğiniz gibi ' (tektırnak) verisini kaydetmiyor.
birde şuan başlangıç seviyesi diye arkadaşlara bunlardan en sonunda bahsetmek akıllarını karıştırmamak gerekiyor diye düşünüyorum.

dizaynplus kardeşim güvenlik olaylarını ayrı bir konuda işlemek daha mantıklı çok kod demek arkadaşları boğmak demek bence.

zadi01 kardeşim kodalrı .asp olarak kaydedersen değiştirip kullanabilirsin tekrardan yazmaya gerek yok ama asp öğrenecem diyorsan ozaman sadece <%
%>
kodlarını kullanmanı tavsiye ederim.

ilginiz için tşkrederim arkadaşlar

tsnz · 13 Ocak 2010

merhaba arkadasim benim bir sorunum var bu sil.asp de ben veri tabanina kayit ekliyorum yapiyorum yanliz hepsini birden siliyor tekini silmem icin ne yapmaliyim

BLUE_AZ · 7 Tem 2010

tsnz' Alıntı:
merhaba arkadasim benim bir sorunum var bu sil.asp de ben veri tabanina kayit ekliyorum yapiyorum yanliz hepsini birden siliyor tekini silmem icin ne yapmaliyim

aman naptın sen TSNZ =)))

kardeşim şimdi sen sil komutunu

Kod:

DELETE from uyeler

şeklinde verirsen üyeler forumundaki tüm verileri sildirirsin bu yüzden ID ataması yapıyor her veriye bir kimlik kazandırıyoruz ya nedir bu id nin işlevi dersen o veriye bir numara veriyoruz ve numarayı söylediğimizde o veri çıkıyor karşımıza basit bir mantıkla bu şekilde anlatılabilir şimdi silme işleminde veya görüntüleme işlemin de herzaman ID ye göre çağırma işlemi yaparız

Kod:

id = Request("id")
Set silgitsin = Server.CreateObject("ADODB.RecordSet")
SQL_delete = "DELETE from uyeler WHERE id="&id&""

bak bu kodda sil.asp?id=3

gibi gelen linklerden ID numarası 3 olan veriyi sildirme işlemi yapıyoruz.

gereken kod aşağıda var.

Kod:

<%
Set Rs = Server.CreateObject("ADODB.Connection")
Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("vt.mdb")

id = Request("id")
Set silgitsin = Server.CreateObject("ADODB.RecordSet")
SQL_delete = "DELETE from uyeler WHERE id="&id&""
silgitsin.open SQL_delete,Rs,1,3

Response.Redirect Request.serverVariables("HTTP_REFERER")
%>

KARLI · 19 Tem 2010

güzel konu ancak yanlıs anlama ben çok seçiciyim bunları yaparken güvenlikdende biraz değinsen iyi olurdu

BLUE_AZ · 19 Tem 2010

KARLI' Alıntı:
güzel konu ancak yanlıs anlama ben çok seçiciyim bunları yaparken güvenlikdende biraz değinsen iyi olurdu

yanlış anlayacak birşey yok emin ol senin kadar bende seçiciyim ama bu kodlar zaten baktığında anlayabileceğin gibi aspdeki işlemlerin en basit halleri yeni başlayanlar sade ve temiz kod bulsunlar diye yazdım.

ben başladığımda o güvenlik için de olsa bür sürü kodlarla uğraşmış çözmem zaman almıştı...

Vaktinden önce çiçek açmıyor... değil mi?

xice · 22 Tem 2010

asp hakkında aradığını çok dersi web hocam net adresinden görüntülü video dersleri ile öğrene bilirsiniz kolay gelsin iyi çalışmalar

kelebeknehir · 19 Ağu 2010

vay be üç dört ay önce ne aramıştım bu kodu meğerse burada burnumun dibindeymiş

)))))) Bu kodu ben kendim yazdım fakat listem binlerce data içerdiğinden onları görüntülemek sorun oldu. Onun için de bayağı uğraştım aklınızda bulunsun "sayfalama" diye aratınca bunun cevabıda bulunuyor.

KARLI · 21 Ağu 2010

BLUE_AZ' Alıntı:
yanlış anlayacak birşey yok emin ol senin kadar bende seçiciyim ama bu kodlar zaten baktığında anlayabileceğin gibi aspdeki işlemlerin en basit halleri yeni başlayanlar sade ve temiz kod bulsunlar diye yazdım.

ben başladığımda o güvenlik için de olsa bür sürü kodlarla uğraşmış çözmem zaman almıştı...

Vaktinden önce çiçek açmıyor... değil mi?

Tamamdır ozaman

AKWEBTAS · 29 Ara 2010

emregs' Alıntı:
Kardeş SağoLasın.Ancak Bn Bu İşLere Yeni BaşLadım ve Pek AnLamıyorum .Adım Adım UyguLadım Ve OLdu ÇaLışıyo Fakat YönLendiriLiyorsunuz a Tamam Dediğim Vakit <**** http-equiv='*******' content='1; URL=default.asp'> böyle bi hadise geliyo.Yapmam GerekenLer Nedir ?.şimdiden sağoLun. .

Arkadaşım orası şu şekilde olacak ;

<meta http-equiv='*******'

bu şekilde yap çalışır

	Benzer konular	Forum			Tarih
G	Bitcoin ile Kazanma! Binance Kayıt Olma&Bitcoin Alım Satım - Dünyanın En Güvenilir, En Büyük Borsası	Ürün Tanıtımı	0	4K	3 Ağu 2020
	CorelDRAW'da layerli psd kayıt - Object Manager	Corel Draw	0	1K	6 Şub 2020
E	CorelDraw versiyon düşürme kayıt.	Corel Draw Soru ve Sorunlarınız	2	1K	28 Ocak 2020
	Parlama Efekti Png Kayıtta Siyah Gölge Sorunu	Illustrator	7	958	21 Ocak 2020
A	CorelDraw 2019 dosya kayıt sorunu	Corel Draw	1	1K	12 Tem 2019
	corel draw'da dosyayı fontlarıyla beraber kayıt etmek	Corel Draw	0	1K	5 Şub 2019
	ASP'den anlayan hiç mi kimse yok?	Php, Asp, Perl, Html	2	845	1 Tem 2012
	ASP'de FFMPEG Kurulumu ve Anlatımı	Php, Asp, Perl, Html	0	1K	20 Tem 2009

Asp'de Kayıt Ekleme, Silme, Düzeltme, Listeleme İşlemleri

Benzer konular