Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
İnternet Güvenliğine Giriş 
[Beyaz Tahribat] Asp De 4 İşlem { Ekleme, Silme, Düzenleme, Sayfalama } [Beyaz Tahribat] Asp De 4 İşlem { Ekleme, Silme, Düzenleme, Sayfalama }
-
Beyaz Tahribat uygulaması için elceğizlerime yazmaya başladığım bu dökümanın bi index ini yazıyım önce. bunları sırasıyla yazacağım açıklamalı olarak.b
1)Asp & Access
- Veri Ekleme * yazıldı-hatta okuyorsun
- Veri Düzenleme
- Veri Silme
- Sayfalama
2)Asp & MySql
- Veri Ekleme
- Veri Düzenleme
- Veri Silme
- Sayfalama
evet şimdi 1.1 den başlayalım asp nin ne olduğu konusuna girmeyeceğim. konumuz asp da veri tabanına (Access) veri ekleme;
herşey den önce bir veritabanımız olmalı veri tabanı oluşturmayı ve tablo oluşturmayı Burada anlatmıştım. gerçi bu yazdıklarımı kendi sitem dede anlatmıştım ama 0 dan daha detaylı bir biçimde beyaz tahribat için yazıyorum. verdiğim linkten vertabanı oluşturmayı ve tablo oluşturmayı öğrenebilirsiniz tekrar buraya yazmayacağım.
öncelikle veri girmemiz için bir textarea lazım tabi sadece textarea ile olmuyor. bunu kendi ihtiyaçlarınıza göre karşılamalısınız.
diyelim biz bir başlık ve altınada bir yazı yazacağız.
Başlık : <input type="text" name="baslik" size="40"> [ bu başlığı gireceğimiz alan ]
Yazı : <textarea rows="4" name="yazi" cols="45"></textarea> [ buda yazımızı gireceğimiz alan ]
bir de buton lazım bize
<input type="submit" value="Gönder" name="B1">
buraya kadar sorun yok. bunlar tabi böylle bir işe yaramaz. form lazım
<form method="POST" action="?islem=ekle">Başlık : <input type="text" name="baslik" size="40"> [ bu başlığı gireceğimiz alan ]
Yazı : <textarea rows="4" name="yazi" cols="45"></textarea> [ buda yazımızı gireceğimiz alan ]
<input type="submit" value="Gönder" name="B1">
</form>
koyu renkli yazı butona bastığımızda bizi gönderecek sayfa. aynı sayfaya gideceğimiz için ? ile başladık.
şimdi buraya kadar kısmın zaten asp ile ilgisi yok. html.
işte şimdi 1.1 e giriyoruz. veri ekleme
butona bastığımız anda db ye veri eklenecek.
öncelikle yapmamız gereken bir querystring ( google dan arayabilirsiniz ) çünkü urldeki isteği çekmeliyiz
<%
islem=request.querystring("islem
%>
sonra veritabanına bağlanıyoruz.
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb") ' veri tabanı adımız burada.
%>veritabanımıza bağlandık sıra tablomuzda
<%
Set foxxly=Server.CreateObject("ADODB.Recordset")
kayit = "SELECT * FROM beyaztahribat" 'burada beyaztahribar kısmına tablo adınızı yazacaksınız
foxxly.Open kayit,sur,1,3
%>şimdi gönder butonuna bastığımızda o alanlarda olan veriyi çekmek için request.form objesini kullanacağız ( bkz: google.com - asp request.form )
<%
baslik=request.form("baslik") ' baslik isimli alandan gelen veri
yazi=request.form("yazi") ' yazi isimli alandan gelen veri
%>şimdi formdan gelen veriyi çektik. şimdi bunu veritabanına yazmaya geldi sıra.
<%
foxxly.addnew ' yeni veri ekliyoruz
foxxly("baslik")=baslik
foxxly("yazi")=yazi
foxxly.update
foxxly.close
set foxxly= Nothing ' işimiz bitti luzumsuzsa söndürelim
response.write("Beyaz Tahribat Projesi Foxxly 1.1 Başarılı !")
%>evet Beyaz tAhribAt projesinin Asp & Access ayağının 1. kısmı bitti :) baya uzun oldu :| bu kadar tutacağını sanmıyordum :-/
umarım birilerine faydalı olmuşumdur :) ilgi alanım asp olduğu için ancak bunu yazabiliyorum :D
neyse bir sonraki sefere görüşmek üzere. sıraca 1.2"Veri Düzenleme" var
-
bazı yerleri eksik yazmışsım şimdi okuyunca şey ettim
request.querystring ile islemi çekiyoruz fakat onun ekle olduğunu belirtmemişsiz.
oda söyle
<%
islem=request.querystring("islem")
%><% if islem="ekle" then ' eğer islem = ekle ise %>
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb") ' veri tabanı adımız burada.
%>veritabanımıza bağlandık sıra tablomuzda
<%
Set foxxly=Server.CreateObject("ADODB.Recordset")
kayit = "SELECT * FROM beyaztahribat" 'burada beyaztahribar kısmına tablo adınızı yazacaksınız
foxxly.Open kayit,sur,1,3
%>şimdi gönder butonuna bastığımızda o alanlarda olan veriyi çekmek için request.form objesini kullanacağız ( bkz: google.com - asp request.form )
<%
baslik=request.form("baslik") ' baslik isimli alandan gelen veri
yazi=request.form("yazi") ' yazi isimli alandan gelen veri
%>şimdi formdan gelen veriyi çektik. şimdi bunu veritabanına yazmaya geldi sıra.
<%
foxxly.addnew ' yeni veri ekliyoruz
foxxly("baslik")=baslik
foxxly("yazi")=yazi
foxxly.update
foxxly.close
set foxxly= Nothing ' işimiz bitti luzumsuzsa söndürelim
response.write("Beyaz Tahribat Projesi Foxxly 1.1 Başarılı !")
%><% end if %>
bu kadar eğer islem= ekle ise veri tabanına verimizi ekliyoruz
-
boyayı çok buldunuz boyuna boyuyorsunuz :D güzel olmuş hacı veritabanı olaylarının anlatılması açısından güzel örnek
-
heh seni yakalamışken fox sana bi soru sorem :)
<%
set sepet = Server.CreateObject("ADODB.RecordSet")
SQL_sepet ="SELECT * FROM sepet where uyeid =" & id
sepet.open SQL_sepet,sur,1,3
do while not sepet.eof
%><%=sepet("fiyati")%>
<%sepet.movenext
loop
%>şimdi hacı olay bu veri tabanındaki sepet tablosundaki fiyat sutununu sagırıyom hepsi geliyo buraya kadar sorun yok ama toplam rakamı elde etmeye çalışınca sorun veriyo yani şöleki 10 ürün varsa müşterinin sepetinde bunların toplam fiyatını alıp yazdırmak istiyom nasıl olur bu?
-
<%
Set foxxly= Server.CreateObject("ADODB.recordset")
sor = "Select sum(fiyat) from sepet where id falan filan devamı getir"
foxxly.open sor, Sur,1,3
Response.Write foxxly(0)
%> -
<%
toplam = 0
set sepet = Server.CreateObject("ADODB.RecordSet")
SQL_sepet ="SELECT * FROM sepet where uyeid =" & id
sepet.open SQL_sepet,sur,1,3
do while not sepet.eof
toplam = toplam + sepet("fiyati")
sepet.movenext
loop
'Herhangi bir yerde yazdırmak için Response.write toplam demen yeterlidir.
%> -
edit : onedici sum varken neden kasıyosun ki :)
örneği indirmek için
www.aspdepo.org/beyaz-tbt.rar
-
sontedi değin gibi oluyo fakat ondalıklı bi sayı toluyacak oldugunda mesela 10+10,5=20,5 diemiyo hata veriyo
Microsoft VBScript runtime error '800a000d'
Type mismatch
verdiği hata bu
yada cint kullandım o zamanda haklı olarak ondalıkları görmedi
-
foxxly sen kral bi adamsın cennete gidicen biliyon dimi ?
-
bide pe haş pe anlatacak adam yokmu?
-
bende asp.net ile ilgili hazırlıyorum
biri asp.net'e giriş
diğeride valitidation uygulamaları :D
2 tane beyaztahribatta benden gelecek yani :P
bu arada eline sağlık foxxlyim
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla