ForumTayfa  

Go Back   ForumTayfa > Güvenlik & Bilgisayar & İnternet & Webmaster & Programlama Bölümü > Güvenlik & Bilgisayar & İnternet & Webmaster & Programlama > ASP, Perl, Php, Html

ASP, Perl, Php, Html ASP, Perl, Php, Html, Java gibi her tür programcılık dili için yardım alabilceğimiz bölüm...

Yeni Konu aç  Cevapla
 
LinkBack Seçenekler Stil
Alt 17.01.07, 11:15   #1 (permalink)
Banned
 
Murat_1995 - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Jan 2007
Mesaj Sayısı: 767
Konu Sayısı: 253
Rep Gücü: 0
Rep Puanı: 2341
Rep Derecesi : Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000
Ruh Hali:

Standart ASP Konu Anlatımı ve Örnek Uygulamalar [Güncellenen İçerik]




Konu : Sayfalama İşlemi
Seviye : Orta
Kaynak Dosyalar : [Sadece Kayıtlı Kullanıcılar Linkleri Görebilir.Kayıt Olmak İçin Tıklayınız...]

Alıntı:
<% @ Language = VBScript CodePage = 1254 %>
<%
'/////////////////////////////////////////////////////////////////
Option Explicit
Response.Buffer = True
Response.Expires = -1
'/////////////////////////////////////////////////////////////////
'---- CursorTypeEnum Values ----
Const adOpenStatic = 3
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
'---- CommandTypeEnum Values ----
Const adCmdText = &H0001
'/////////////////////////////////////////////////////////////////
Dim intHerSayfadaGosterilecekKayit
intHerSayfadaGosterilecekKayit = 20
'intHerSayfadaGosterilecekKayit (Her sayfada göstereceğiniz kayıt sayısı ile değiştirebilirsiniz.)


Dim intSayfa
if Request.QueryString("s") = "" then
intSayfa = 1
else
intSayfa = CInt(Request.QueryString("s"))
end if
'intSayfa (Açık olan sayfa sayısını alırız. Sayfa "s" değişkeninin değeri yok ise 1 değeri atanır. Bu değer boş değil ise sayfadan gönderilen sayı alınır.)
'/////////////////////////////////////////////////////////////////
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title>ornek</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
<style type="text/css">
<!--
body {
margin:0px;
padding:0px;
}
.sayfa {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight:bold;
color: #ffcc00;
}
A.link_01:link {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight:bold;
color: #0077b5;
text-decoration: none
}
A.link_01:visited {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight:bold;
color: #0077b5;
text-decoration: none
}
A.link_01:active {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight:bold;
color: #0077b5;
text-decoration: none
}
A.link_01:hover {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight:bold;
color: #ffcc00;
text-decoration: none
}
-->
</style>
</head>
<body>

<table align="center" border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="779">
<tr>
<td colspan="2" height="80">&nbsp;</td>
</tr>
<tr>
<td width="179">&nbsp;</td>
<td width="600">
<table border="1" cellpadding="0" cellspacing="0" width="100%">
<%
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")

dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

dim objRs
set objRs = Server.CreateObject("ADODB.Recordset")

dim strSql
strSql = "SELECT * FROM tblVeri"

objRs.PageSize = intHerSayfadaGosterilecekKayit '(Bir sayfada görüntülenecek kayıt sayısını belirtir.)
objRs.CacheSize = intHerSayfadaGosterilecekKayit

objRs.Open strSql, objConn, adOpenStatic, adLockReadOnly, adCmdText

dim intToplamSayfa
intToplamSayfa = objRs.PageCount

if intSayfa > intToplamSayfa then intSayfa = intToplamSayfa
if intSayfa < 1 then intSayfa = 1

if objRs.EOF then
'if intToplamSayfa = 0 then
%>
<tr>
<td align="center" valign="middle" height="200" class="sayfa">Kayıt yok</td>
</tr>
<%
else
objRs.AbsolutePage = intSayfa '(kayıtsetine hangi sayfada olduğunu bildirir.)
%>
<tr>
<td align="center" class="sayfa">Toplam <%= intToplamSayfa %> sayfa bulunmakta ve siz <%= intSayfa %>. sayfadasınız.</td>
</tr>
<%
dim intSayac01
intSayac01 = 0
do while intSayac01 < intHerSayfadaGosterilecekKayit And Not objRs.EOF
%>
<tr>
<td><% = objRs("veri") %></td>
</tr>
<%
intSayac01 = intSayac01 + 1
objRs.MoveNext
loop
%>
<tr>
<td align="center">
<%
if intSayfa > 1 then
%>
<B><a href="sayfalama.asp?s=<%= intSayfa - 1 %>" class="link_01">[&lt;&lt; Geri]</a>&nbsp;</B>
<%
end if

dim intSayac02
for intSayac02 = 1 To intToplamSayfa
if intSayac02 = intSayfa then
%>
<font class="sayfa"><%= intSayac02 %></font>
<%
else
%>
<B><a href="sayfalama.asp?s=<%= intSayac02 %>" class="link_01"><%= intSayac02 %></a></B>
<%
end if
next

if intSayfa < intToplamSayfa then
%>
<B>&nbsp;<a href="sayfalama.asp?s=<%= intSayfa + 1 %>" class="link_01">[ileri &gt;&gt;]</a></B>
<%
end if
%>
</td>
</tr>
<%
end if

objRs.Close
set objRs = Nothing

objConn.Close
set objConn = Nothing
%>
</table>
</td>
</tr>
<tr>
<td colspan="2" height="20">&nbsp;</td>
</tr>
</table>
</td>
</tr>
</table>

</body>
</html>


Murat_1995 isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 17.01.07, 11:22   #2 (permalink)
Banned
 
Murat_1995 - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Jan 2007
Mesaj Sayısı: 767
Konu Sayısı: 253
Rep Gücü: 0
Rep Puanı: 2341
Rep Derecesi : Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000
Ruh Hali:

Standart Cevap: ASP Konu Anlatımı ve Örnek Uygulamalar [Güncellenen İçerik]




Konu : Veritabanından Bilgileri Sayfaya Dökmek
Seviye : Basit
Kaynak Dosyalar : [Sadece Kayıtlı Kullanıcılar Linkleri Görebilir.Kayıt Olmak İçin Tıklayınız...]
bu dosyaları
C:\Inetpub\wwwroot dizini içinde ders adında bir klasör oluşturun ve içerisine koyun. Bundan sonra yazdığım kodlarıda buraya koyarsınız.





kayit_oku.asp

Alıntı:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Veritabanından kayıt okumak</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
</head>
<body>

<table border="1" cellpadding="0" cellspacing="0" width="100%">
<%
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")

dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

dim objRs
set objRs = Server.CreateObject("ADODB.Recordset")
objRs.CursorType = 0
objRs.CursorLocation = 2
objRs.LockType = 1

dim strSql
strSql = "SELECT * FROM tblUye"
objRs.Open strSql, objConn, , , &H0001

if objRs.EOF then
%>
<tr>
<td>Veritabanı boş</td>
</tr>
<%
else
do while Not objRs.EOF
%>
<tr>
<td><% = objRs("UYE_ID") %></td>
<td><% = objRs("UYE_AD") %></td>
<td><% = objRs("UYE_SOYAD") %></td>
<td><% = objRs("UYE_MAIL") %></td>
<td><% = objRs("UYE_SEHIR") %></td>
<td><% = objRs("UYE_MESAJ") %></td>
</tr>
<%
objRs.MoveNext()
loop
end if

objRs.Close
set objRs = Nothing

objConn.Close
set objConn = Nothing
%>
</table>

</body>
</html>
kısaca açıklayacak olursak;
strConn isimli bir değişken tanımladık ve bu değişkene veritabanı bağlantı cümlesini atadık. Başına str eki koyduk ki bu değişkenin bir string olduğunu bize her zaman hatırlatsın...

Alıntı:
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")
objConn isimli bir değişken tanımladık ve bu değişkene veritabanı bağlantımızı sağlayacak olan Connection nesnesini atadık. Başına obj eki koyduk ki bu değişkenin bir Server Object (Sunucu Nesnesi) olduğunu bize her zaman hatırlatsın...
Veritabanına bağlantı sağladık...

Alıntı:
dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
objRs isimli bir değişken tanımladık ve bu değişkene Recordset kayıtseti (kayıt dizisi) nesnesini atadık. Başına obj eki koyduk ki bu değişkenin bir Server Object (Sunucu Nesnesi) olduğunu bize her zaman hatırlatsın...

Alıntı:
dim objRs
set objRs = Server.CreateObject("ADODB.Recordset")
kayıtsetinin CursorType değerini 0 parametresi verdik.
kayıtsetinin CursorLocation değerini 2 parametresi verdik.
kayıtsetinin LockType değerini 1 parametresi verdik.

Alıntı:
objRs.CursorType = 0
objRs.CursorLocation = 2
objRs.LockType = 1
Kayıtseti için verilebilecek bu değerler adovbs.inc dosyasında tanımlanmıştır.
Kayıtsetinde onlarca farklı opsiyon ve bu opsiyonların birer nümerik karşılığı vardır. Normalde bu nümerik değerler yazılıdır.
Nümerik ifadeleri akılda tutmak zor olduğu için bu nümerik ifadelerin karşılığını veren adovbs.inc kullanılır
"1" yazmak yerine hatırlanması daha kolay olan "adOpenKeyset" yazabiliriz.

Kayıtsetini açarken kullanabileceğimiz değerler aşağıdadır.

<%
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0 <=== Biz bunu kullandık
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3


'---- CursorLocationEnum Values ----
Const adUseServer = 2 <=== Biz bunu kullandık
Const adUseClient = 3


'---- LockTypeEnum Values ----
Const adLockReadOnly = 1 <=== Biz bunu kullandık
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4


'---- EditModeEnum Values ----
Const adEditNone = &H0000
Const adEditInProgress = &H0001 <=== Biz bunu kullandık
Const adEditAdd = &H0002
Const adEditDelete = &H0004
%>

Alıntı:
Yukarıdaki sabit değerleri biraz açıklayalım.
'---- CursorTypeEnum Values ----
Recordset içindeki hareketi kontrol eden bir özelliktir. Varsayılan olarak Forward-only kullanılır. Dört değişik tipten biri seçilebilir.
  • Forward-only (adOpenForwardOnly ya da 0)
  • Keyset (adOpenKeyset ya da 1)
  • Dynamic (adOpenDynamic ya da 2)
  • Static (adOpenStatic ya da 3)
Forward-only Cursor (adOpenForwardOnly ya da 0)
Forward only : (Sadece ilerle)
Varsayılan kürsördür.
Static Cursor'e benzer fakat kayıtlar arasında sadece ileriye doğru harekete izin verir.
Yeni kayıt ekleyemeyiz ve yapılan değişiklikler kayıtsetini yeniden açıncaya kadar göremeyiz. Bu kürsörü listeleme işlemlerinde kullanarak performans artışı sağlayabiliriz.

Keyset Cursor (adOpenKeyset ya da 1)
Kayıtseti içindeki her tütlü harekete izin verir.
Diğer kullanıcıların eklediği kayıtların görünmesini engeller.
Diğer kullanıcıların sildiği kayıtlara erişilmez.
Diğer kullanıcıların kayıtlar üzerinde yaptığı veri değişiklikleri anında yansıtılır.

Dynamic Cursor (adOpenDynamic ya da 2)
Dynamic : (Dinamik) Diğer kullanıcılar tarafından yapılan eklemelerin, değişikliklerin ve silmelerin anında görülmesini sağlar ve kayıtseti üzerindeyapılacak tüm hareketlere izin verir.

Static Cursor (adOpenStatic ya da 3)
Static : (Duragan) Belli verilerin bulunması ya da raporların üretilmesi için kullanılacak kayıtsetinin değişmeyen bir kopyasını oluşturur. Veri üzerinde her türlü harekete izin verir. Diğer kullanıcılar tarafından yapılan değişiklikler kayıtsetine yansıtılmaz.





'---- LockTypeEnum Values ----
Kayıtsetinin kilitlenmesi için kullanılır. Dört farklı değer alabilir.

adLockReadOnly ya da 1
Veriler sadece okunur şekildedir, değiştirilemez.

adLockPessimistic ya da 2
Üzerinde işlem yapılan veriler satır bazında kilitlenir. Başka kullanıcıların erişimi engellenir.

adLockOptimistic ya da 3
Kayıtseti üzerinde işlem yapıp bunu tekrar veritabanına gönderene kadar kayıtseti üzerinde herhangi bir kilit yoktur.
Veritabanının yenilenme (Update) süreci içinde kayıtseti kilitlenir.

adLockBatchOptimistic ya da 4
Değişiklikler toplu yapılır.



kayıtseti dediğimiz nedir? Resme bakarsanız daha iyi anlayacaksınız. Okunan kayıtların üstünde gezinen o ok'a recordset denir...



strSql isimli bir değişken tanımladık ve bu değişkene veritabanı içindeki tablomuza bağlantıyı sağlayacak ifadeyi atadık.

Alıntı:
dim strSql
strSql = "SELECT * FROM tblUye"
ve kayıtsetine yüklemiş olduğumuz tüm bu parametrelere uygun bir şekilde açılış yaptık.

Alıntı:
objRs.Open strSql, objConn, , , &H0001
if = Eğer
objRs = Kayıtseti (Nesnesi)
EOF (End Of File) = Dosyanın, kuyruğun sonu..
Kayıtsetinin sonunu gösterir.

Türkçesi kayıtseti boş ise... demek. Accesste en son kayıt herzaman boştur. Hiç bir veri okunmadıysa kayıtseti bu satırdadır ve değeri false'dir. Tam türkçe ile veritabanı içindeki tblUye Boş ise demektir.

Alıntı:
if objRs.EOF then
Boş olduğunu sayfaya yazıyoruz.

Alıntı:
<tr>
<td>Veritabanı boş</td>
</tr>
üst tarafta if objRs.EOF then ile veritabanı boş ise demiştik else ile burada boş değilse demek istedik yani tabloya herhangi bir veri yazılmış ise bu koddan sonrası icra edilir...
Alıntı:
else
do = yap, icra et, uygula
while = ...ıncaya kadar...
Not = ... Değilse(olumsuzluk) ...
objRs = Kayıtseti (Nesnesi)
EOF (End Of File) = Dosyanın, kuyruğun sonu..

Tam türkçesi en son veriye kadar bu ilemi tekrar tekrar yap demektir.

Alıntı:
do while Not objRs.EOF
tblUye isimli tablo içindeki alanlara verdiğimiz isimleri buradan çağırıyor ve içindekileri sayfaya aktarıyoruz. <% = %> bu Response.Write demektir.

Alıntı:
<tr>
<td><% = objRs("UYE_ID") %></td>
<td><% = objRs("UYE_AD") %></td>
<td><% = objRs("UYE_SOYAD") %></td>
<td><% = objRs("UYE_MAIL") %></td>
<td><% = objRs("UYE_SEHIR") %></td>
<td><% = objRs("UYE_MESAJ") %></td>
</tr>

veiratanındaki ilk kayıt okunur. Kod buraya gelince aşağıdaki komut ile, hemen üstteki kısma do while Not objRs.EOF döner ve bu işi son verinin okunmasına ve kayıtsetinin boş satıra gelmesine kadar döner durur ve <tr> ile </tr> arasını her dönüşte bir alttaki satır içinde bulunan değerler ile doldurarak dönmeye devam eder.

Alıntı:
objRs.MoveNext()
loop
tblUye isimli tablonun boş olup olmadığını kontrol ettiğimiz kodu kapatıyoruz.

Alıntı:
end if
Kayıtseti nesnesini kapatıyor ve değerlerini boşaltıyoruz. Bunu yapmazsak kodumuz onlarca kullanıcı ile çalıştığında hem sayfanın geç açılmasına hemde sunucuyu boşa meşgul ederek sunucuyu yormaya ve performansını düşürmemize sebep oluruz.

Alıntı:
objRs.Close
set objRs = Nothing
Bağlantı nesnesini de kapatıyor ve değerlerini boşaltıyoruz.

Alıntı:
objConn.Close
set objConn = Nothing


Murat_1995 isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 17.01.07, 11:24   #3 (permalink)
Banned
 
Murat_1995 - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Jan 2007
Mesaj Sayısı: 767
Konu Sayısı: 253
Rep Gücü: 0
Rep Puanı: 2341
Rep Derecesi : Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000
Ruh Hali:

Standart Cevap: ASP Konu Anlatımı ve Örnek Uygulamalar [Güncellenen İçerik]




Konu : Veritabanından Bilgileri Sayfaya Dökmek
Seviye : Basit
Kaynak Dosyalar :
[Sadece Kayıtlı Kullanıcılar Linkleri Görebilir.Kayıt Olmak İçin Tıklayınız...]


wwwroot içine DERS isimli Klasöre koyun ve unutmayın DERS klasörüne yazma izni verin.
Yazma izni nasıl veririm?
DERS klasörüne sağ tıklayın ve özelliklerden Web Paylaşımı sekmesine geçin. Bu klasörü Paylaşın radio düğmesini işaretleyiniz bir sihirbaz açılacak oradaki yazma vb. seçenekleri seçip uygulayın...



İlk önce bir form sayfasına ihtiyacımız var.

kayit_form.html

Alıntı:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title>Kayıt Formu</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
</head>
<body>

<table align="center" border="0" cellpadding="0" cellspacing="0" width="300">

<form action="kayit_kaydet.asp" method="post">

<tr>
<td>Ad :</td>
<td><input type="text" name="txtAd" size="20" maxlength="15" value=""></td>
</tr>

<tr>
<td>Soyad :</td>
<td><input type="text" name="txtSoyad" size="20" maxlength="25" value=""></td>
</tr>

<tr>
<td>Mail :</td>
<td><input type="text" name="txtMail" size="20" maxlength="30" value=""></td>
</tr>

<tr>
<td>Şehir :</td>
<td>
<select name="txtSehir">
<option value="Adana">Adana</option>
<option value="Adıyaman">Adıyaman</option>
<option value="Afyon">Afyon</option>
<option value="Ağrı">Ağrı</option>
<option value="Amasya">Amasya</option>
<option value="Ankara">Ankara</option>
</select>
</td>
</tr>

<tr>
<td>Mesaj :</td>
<td><textarea rows="5" cols="30" name="txtMesaj"></textarea></td>
</tr>

<tr>
<td>&nbsp;</td>
<td><input type="submit" value="Kaydet"></td>
</tr>

</form>

</table>

</body>
</html>

formdan gelen bilgileri veritabanına kaydedecek asp sayfamız.

kayit_kaydet.asp

Alıntı:
<%
'Adovbs.inc dosyası içindeki sabitlerimiz. Kayıt işlemi yaparken lazım olacak....
const adCmdText = &H0001
const adExecuteNoRecords = &H00000080


'Form içindeki name="txtAd" isimli form elemanımızdan içine yazılmış olan ismi alıyor ve bu değeri strAd değişkenine atıyoruz(yüklüyoruz).
dim strAd
strAd = Request.Form("txtAd")

'Form içindeki name="txtSoyad" isimli form elemanımızdan içine yazılmış olan soyismi alıyor ve bu değeri strSoyad değişkenine atıyoruz(yüklüyoruz).
dim strSoyad
strSoyad = Request.Form("txtSoyad")

'Form içindeki name="txtMail" isimli form elemanımızdan içine yazılmış olan Mail adresini alıyor ve bu değeri strMail değişkenine atıyoruz(yüklüyoruz).
dim strMail
strMail = Request.Form("txtMail")

'Form içindeki name="txtSehir" isimli form elemanımızdan içine yazılmış olan Sehir ismini alıyor ve bu değeri strSehir değişkenine atıyoruz(yüklüyoruz).
dim strSehir
strSehir = Request.Form("txtSehir")

'Form içindeki name="txtMesaj" isimli form elemanımızdan içine yazılmış olan Mesajı alıyor ve bu değeri strMesaj değişkenine atıyoruz(yüklüyoruz).
dim strMesaj
strMesaj = Request.Form("txtMesaj")

'Veritabanına Bağlanıyoruz.
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")

'Bağlantıyı açıyoruz.
dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn


strSql = "INSERT INTO tblUye(UYE_AD, UYE_SOYAD, UYE_MAIL, UYE_SEHIR, UYE_MESAJ) VALUES('" & strAd & "', '" & strSoyad & "', '" & strMail & "', '" & strSehir & "', '" & strMesaj & "')"


objConn.Execute(strSql),,adCmdText + adExecuteNoRecords


'Bağlantıyı kapatıyoruz.
objConn.Close
set objConn = Nothing

'Yazdığımız kaydı gösteren sayfaya "kayit_oku.asp" yönlendiriyoruz..
Response.Redirect "kayit_oku.asp"
konuyu açıklayıcı resimler aşağıda...







Murat_1995 isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 17.01.07, 11:26   #4 (permalink)
Banned
 
Murat_1995 - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Jan 2007
Mesaj Sayısı: 767
Konu Sayısı: 253
Rep Gücü: 0
Rep Puanı: 2341
Rep Derecesi : Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000
Ruh Hali:

Standart Cevap: ASP Konu Anlatımı ve Örnek Uygulamalar [Güncellenen İçerik]




Konu : Veritabanından Bilgileri Silmek
Seviye : Basit
Kaynak Dosyalar :
[Sadece Kayıtlı Kullanıcılar Linkleri Görebilir.Kayıt Olmak İçin Tıklayınız...]

Veritabanından verileri silebilmek için öncelikle silme işlemi yapacağımız verileri sayfaya dökmemiz lazım ki istediklerimizi seçip silebilelim.
Veritabanından kayıtları sayfaya dökme konusunu bir üst konuda açıklamıştım
onu küçük bir

Alıntı:
<a href="sil.asp?id=<% = objRs("UYE_ID") %>">Sil</a>
ek yaparak silme işlemini eklemiş olacağız. Bu ek ile yapmak istediğimiz silinecek kaydın id numarasını alıp silme işlemi yapan asp dosyasına taşımaktan ibarettir.



kayit_oku.asp (veritabanındaki silme işlemini uygulayacağımız kayıtların tümünü burada sergiliyoruz.)

Alıntı:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Veritabanından kayıt okumak</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
</head>
<body>

<table border="1" cellpadding="0" cellspacing="0" width="100%">
<%
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")
'strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb")

dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

dim objRs
set objRs = Server.CreateObject("ADODB.Recordset")
objRs.CursorType = 0
objRs.CursorLocation = 2
objRs.LockType = 1

dim strSql
strSql = "SELECT * FROM tblUye"
objRs.Open strSql, objConn, , , &H0001

if objRs.EOF then
%>
<tr>
<td>Veritabanı boş</td>
</tr>
<%
else

dim intSayac
intSayac = 0

dim strRenk
do while Not objRs.EOF
if intSayac mod 2 then
strRenk = "#e8e8e8"
else
strRenk = "#ffffcc"
end if
%>
<tr bgcolor="<% = strRenk %>">
<td><% = objRs("UYE_ID") %></td>
<td><% = objRs("UYE_AD") %></td>
<td><% = objRs("UYE_SOYAD") %></td>
<td><% = objRs("UYE_MAIL") %></td>
<td><% = objRs("UYE_SEHIR") %></td>
<td><% = objRs("UYE_MESAJ") %></td>
<td><a href="sil.asp?id=<% = objRs("UYE_ID") %>">Sil</a></td>
</tr>
<%
intSayac = intSayac + 1
objRs.MoveNext
loop
end if

objRs.Close
set objRs = Nothing

objConn.Close
set objConn = Nothing
%>
</table>

</body>
</html>


sil.asp (silme işlemini yapacak sayfamız)

Alıntı:
<%
'Veritabanından silinecek olan verinin id numarasını alıyoruz. Bu gelen id numarasına sahip satırı sileceğiz.
dim intID
intID = Request.QueryString("id")


'---- CommandTypeEnum Values ----
const adCmdText = &H0001
'---- ExecuteOptionEnum Values ----
Const adExecuteNoRecords = &H00000080


dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")

dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

dim strSql
strSql = "DELETE FROM tblUye WHERE UYE_ID = " & intID

objConn.Execute(strSql),,adCmdText + adExecuteNoRecords

objConn.Close
set objConn = Nothing

Response.Redirect "kayit_oku.asp"
%>


Murat_1995 isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 17.01.07, 11:27   #5 (permalink)
Banned
 
Murat_1995 - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Jan 2007
Mesaj Sayısı: 767
Konu Sayısı: 253
Rep Gücü: 0
Rep Puanı: 2341
Rep Derecesi : Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000
Ruh Hali:

Standart Cevap: ASP Konu Anlatımı ve Örnek Uygulamalar [Güncellenen İçerik]




devamı gelecek arkadaşlar


Murat_1995 isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 17.01.07, 18:47   #6 (permalink)
Banned
 
Murat_1995 - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Jan 2007
Mesaj Sayısı: 767
Konu Sayısı: 253
Rep Gücü: 0
Rep Puanı: 2341
Rep Derecesi : Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000
Ruh Hali:

Standart Cevap: ASP Konu Anlatımı ve Örnek Uygulamalar [Güncellenen İçerik]




Konu : Veritabanındaki Bilgileri İki Sutun halinde Sayfaya Dökmek
Seviye : Orta
Kaynak Dosyalar :
[Sadece Kayıtlı Kullanıcılar Linkleri Görebilir.Kayıt Olmak İçin Tıklayınız...]


Kod:
<% @ Language=VBScript CodePage="1254" %>
<%
Option explicit
 Response.Buffer = true
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>ornek</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
<style type="text/css">
<!-- 
body {
 margin:0px;
 padding:0px;
} 
.sayfa {
 font-family: Verdana, Arial, Helvetica, sans-serif; 
 font-size: 12px; 
 font-weight:normal; 
 color: #ffcc00; 
}
A.link_01:link {
 font-family: Verdana, Arial, Helvetica, sans-serif; 
 font-size: 12px; 
 font-weight:normal; 
 color: #0077b5; 
 text-decoration: none
}
A.link_01:visited {
 font-family: Verdana, Arial, Helvetica, sans-serif; 
 font-size: 12px; 
 font-weight:normal; 
 color: #0077b5; 
 text-decoration: none
}
A.link_01:active {
 font-family: Verdana, Arial, Helvetica, sans-serif; 
 font-size: 12px; 
 font-weight:normal; 
 color: #0077b5; 
 text-decoration: none
}
A.link_01:hover {
 font-family: Verdana, Arial, Helvetica, sans-serif; 
 font-size: 12px; 
 font-weight:normal; 
 color: #ffcc00; 
 text-decoration: none
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
 <tr>
  <td>
   <table align="center" border="0" cellpadding="0" cellspacing="0" width="769" bgcolor="#ffffff">
    <tr>
     <td align="center" height="120">üst banner alanı</td>
    </tr>
    <tr>
     <td>
      <table border="0" cellpadding="0" cellspacing="0" width="100%">
      <tr>
       <td width="1"><img src="resimler/bosluk.gif" alt="" width="1" height="1" border="0"></td>
       <td align="center" width="160" valign="top">Sol menu</td>
       <td width="1"><img src="resimler/bosluk.gif" alt="" width="4" height="1" border="0"></td>
       <td width="600" valign="top">
<%
dim strConn 
 strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")
 
dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
 objConn.Open strConn 

dim objRsKategori 
set objRsKategori = Server.CreateObject("ADODB.Recordset")
 objRsKategori.CursorLocation = 2
 objRsKategori.CursorType = 1
 objRsKategori.LockType = 3

dim strSqlKategori
 strSqlKategori = "SELECT * FROM tblKategori"
 objRsKategori.Open strSqlKategori, objConn, , , &H0001

 Response.Write "<table align=""center"" border=""1"" cellpadding=""3"" cellspacing=""0""  width=""100%"">" & vbNewLine 

if objRsKategori.EOF and objRsKategori.BOF then
 Response.Write "         <tr>" & vbNewLine & _
 "          <td height=""400"" align=""center"" valign=""middle"">Kayıt Yok!</td>" & vbNewLine & _ 
 "         </tr>" & vbNewLine 

else

dim intToplamVeri
 intToplamVeri = objRsKategori.RecordCount
 
dim intSutun
 intSutun = 2
 
dim intSay
do while not objRsKategori.EOF

 intSay = intSay + 1
if intSay Mod intSutun = 1 then 
 Response.Write "         <tr>" & vbNewLine
end if
 
 Response.Write "          <td valign=""top""><a href=""kategori.asp?id=" & objRsKategori("KATEGORI_ID") & """ class=""link_01""><b>" & objRsKategori("KATEGORI_AD") & "</b></a><br>"
'/////////////////////////////////////////////////////////////////////////////////////////////////////////
dim objRsAltKategori 
set objRsAltKategori = Server.CreateObject("ADODB.Recordset")
 objRsAltKategori.CursorLocation = 2
 objRsAltKategori.CursorType = 1
 objRsAltKategori.LockType = 3
 
dim strSqlAltKategori 
 strSqlAltKategori = "SELECT * FROM tblKategoriAlt WHERE KATEGORI_ID = " & objRsKategori("KATEGORI_ID")
 objRsAltKategori.Open strSqlAltKategori, objConn, , , &H0001
if not objRsAltKategori.EOF then
do while not objRsAltKategori.EOF
 Response.Write "<a href=""altkategori.asp?kategori=" & objRsKategori("KATEGORI_ID") & "&altkategori=" & objRsAltKategori("KATEGORI_ALT_ID") & """ class=""link_01"">" & objRsAltKategori("KATEGORI_ALT_AD") & "</a><br>"
 objRsAltKategori.MoveNext
loop
end if
 objRsAltKategori.Close
set objRsAltKategori = Nothing	  
'/////////////////////////////////////////////////////////////////////////////////////////////////////////
 Response.Write "</td>" & vbNewLine

if intSay Mod intSutun = 0 then 
 Response.Write "         </tr>" & vbNewLine
end if

 objRsKategori.MoveNext
loop

if intToplamVeri mod intSutun <> 0 then
dim i
for i = 1 to (intSutun - (intToplamVeri mod intSutun))
 Response.Write "          <td>&nbsp;</td>" & vbNewLine
next
end if
 Response.Write "         </tr>" & vbNewline
end if 
 Response.Write "			  </table>" & vbNewline

 
 objRsKategori.Close
set objRsKategori = Nothing	 		

 objConn.Close
set objConn = Nothing
%>				
			 </td>		
       <td width="1"><img src="resimler/bosluk.gif" alt="" width="4" height="1" border="0"></td>
       </tr>
      </table>	 
		 </td>
    </tr>		
    <tr>
     <td align="center" height="40">sayfa altı</td>
    </tr>			
   </table>
  </td>
 </tr>
</table>
</body>
</html>


Murat_1995 isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 17.01.07, 18:49   #7 (permalink)
Banned
 
Murat_1995 - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Jan 2007
Mesaj Sayısı: 767
Konu Sayısı: 253
Rep Gücü: 0
Rep Puanı: 2341
Rep Derecesi : Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000Murat_1995 0-250000
Ruh Hali:

Standart Cevap: ASP Konu Anlatımı ve Örnek Uygulamalar [Güncellenen İçerik]




Konu : Veritabanından Alınan Kayıtların Her Satırını Bir Önceki Satırdan Farklı Bir Renkle Sayfaya Dökmek.
Seviye : Basit
Kaynak Dosyalar : [Sadece Kayıtlı Kullanıcılar Linkleri Görebilir.Kayıt Olmak İçin Tıklayınız...]

Bu örneği veritabanından bilgileri sayfaya döktüğümüz örnek üzerinden göstereceğim.

Yapacağımız Uygulamanın görüntüsü


Bu işlemi yapan kodları kırmızı ile seçiyorum.
Alıntı:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Veritabanından kayıt okumak</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
</head>
<body>

<table border="1" cellpadding="0" cellspacing="0" width="100%">
<%
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")
'strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb")

dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

dim objRs
set objRs = Server.CreateObject("ADODB.Recordset")
objRs.CursorType = 0
objRs.CursorLocation = 2
objRs.LockType = 1

dim strSql
strSql = "SELECT * FROM tblUye"
objRs.Open strSql, objConn, , , &H0001

if objRs.EOF then
%>
<tr>
<td>Veritabanı boş</td>
</tr>
<%
else

dim intSayac
intSayac = 0


dim strRenk
do while Not objRs.EOF
if intSayac mod 2 then
strRenk = "#e8e8e8"
else
strRenk = "#ffffcc"
end if

%>
<tr bgcolor="<% = strRenk %>">
<td><% = objRs("UYE_ID") %></td>
<td><% = objRs("UYE_AD") %></td>
<td><% = objRs("UYE_SOYAD") %></td>
<td><% = objRs("UYE_MAIL") %></td>
<td><% = objRs("UYE_SEHIR") %></td>
<td><% = objRs("UYE_MESAJ") %></td>
</tr>
<%
intSayac = intSayac + 1
objRs.MoveNext
loop
end if

objRs.Close
set objRs = Nothing

objConn.Close
set objConn = Nothing
%>
</table>

</body>
</html>


Murat_1995 isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 06:30.


Powered by vBulletin® Version 3.8.0
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO 3.6.0
User Alert System provided by Advanced User Tagging v3.0.6 (Lite) - vBulletin Mods & Addons Copyright © 2020 DragonByte Technologies Ltd.
ForumTayfa

Arşiv: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 16 22 23 24 25 26 27 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 95 96 97 98 99 100 102 103 104 105 106 155 156 157 158 159 160 161 162 163 164 167 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271


ForumTayfa - Link Değişimi
Telinka İletişim | Voip Ürünleri | Link Değişimine Katılın |

Sitemiz bir forum sitesi olduğundan dolayı, kullanıcılar her türlü görüşlerini önceden onay olmadan anında siteye yazabilmektedir. ForumTayfa Yöneticileri mesajları itina ile kontrol etse de, bu yazılardan dolayı doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Yine de sitemizde yasalara aykırı unsurlar bulursanız [email protected] email adresine bildirebilirsiniz, şikayetiniz incelendikten sonra en kısa sürede gereken yapılacaktır.

Any member of our web site has the right of adding comments instantly without getting permisson due to the forum structure of our site basis. Althought, our site modarators check comments with care, all the responsibilities sourced from these comments directly belong to the members. If you still find any illegal content in our site ( A.buse, H.arassment, S.camming, H.acking, W.arez, C.rack, D.ivx, Mp.3 or any Illegal Activity ), please report us via [email protected] .Your reports will be evaluated as soon as the arrival of your e-mail.