ASP Konu Anlatımı ve Örnek Uygulamalar

Stripling · 16-10-2008

Konu : Veritabanından Bilgileri Sayfaya Dökmek
Seviye : Basit
Kaynak Dosyalar : http://rapidshare.com/files/3519402/ders.rar.html

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

Kod:
Alıntı:

Kod:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>Veritabanından kayıt okumak</title> <meta **********="Content-Type" *********"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ı:

Kod:

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ı:

Kod:

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ı:

Kod:

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ı:

Kod:

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ı:

ve kayıtsetine yüklemiş olduğumuz tüm bu parametrelere uygun bir şekilde açılış yaptık.

Alıntı:

Kod:

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ı:

Kod:

if objRs.EOF then

Boş olduğunu sayfaya yazıyoruz.

Alıntı:

Kod:

<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ı:

Kod:

objRs.MoveNext() loop

tblUye isimli tablonun boş olup olmadığını kontrol ettiğimiz kodu kapatıyoruz.

Alıntı:

Kod:

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ı:

Kod:

objRs.Close set objRs = Nothing

Bağlantı nesnesini de kapatıyor ve değerlerini boşaltıyoruz.

Alıntı:

Kod:

objConn.Close set objConn = Nothing

Stripling · 16-10-2008

Konu : Veritabanına (Access) Yeni Kayıt Girmek.
Seviye : Basit
Kaynak Dosyalar :http://rapidshare.com/files/4161156/ders02.rar.html

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

Kod:

Alıntı:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>Kayıt Formu</title><meta **********="Content-Type" *********"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> </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 = &H0001const 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 objConnset 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.Closeset 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...

Stripling · 16-10-2008

Konu : Veritabanından Bilgileri Silmek
Seviye : Basit
Kaynak Dosyalar :http://rapidshare.com/files/11224661...ilmek.rar.html

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
Kod:
<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ı:

Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>Veritabanından kayıt okumak</title><meta **********="Content-Type" *********"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 objConnset 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 = 0dim strRenk do while Not objRs.EOFif 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.MoveNextloopend if objRs.Closeset objRs = Nothing objConn.Closeset objConn = Nothing%> </table> </body></html>

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

Alıntı:

Kod:
<%'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 = &H00000080dim strConn strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb") dim objConnset objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn dim strSql strSql = "DELETE FROM tblUye WHERE UYE_ID = " & intID objConn.Execute(strSql),,adCmdText + adExecuteNoRecords objConn.Closeset objConn = Nothing Response.Redirect "kayit_oku.asp"%>

Stripling · 16-10-2008

Konu : Veritabanından Bilgileri Güncellemek
Seviye : Basit
Kaynak Dosyalar :http://rapidshare.com/files/16809713...guncelleme.rar

Öncelikle şema olarak anlatıyorum altta kodları vereceğim. Kodları zaman zaman açıklayacağım.

Güncellenecek bilgileri listeleyeğimiz sayfamız.
kayit_oku.asp
Kod:

Alıntı:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>Veritabanından kayıt okumak</title><meta **********="Content-Type" *********"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 objConnset 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 = 0dim strRenk do while Not objRs.EOFif intSayac mod 2 then strRenk = "#e8e8e8"else strRenk = "#ffffcc"end if%> <tr bgcolor="<% = strRenk %>"> <td><% = objRs("UYE_AD") %></td> <td><% = objRs("UYE_SOYAD") %></td> <td><a href="guncelle.asp?id=<% = objRs("UYE_ID") %>">Güncelle</a></td> </tr> <% intSayac = intSayac + 1 objRs.MoveNextloopend if objRs.Closeset objRs = Nothing objConn.Closeset objConn = Nothing%> </table> </body></html>

Güncellenecek veri bilgilerinin form elemanları içerisine alınıp değişiklik yapacağımız sayfa.
guncelle.asp
Kod:

Alıntı:

<% @ Language=VBScript CodePage="1254" %><%Option explicit Response.Buffer = true%><%dim intUyeIDif Request.QueryString("id") <> "" then intUyeID = Request.QueryString("id")else Response.Redirect("kayit_oku.asp")end ifdim strConn strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")dim objConnset objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn %><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title></title><style type="text/css"></style><meta **********="Content-Type" *********"text/html; charset=iso-8859-9"></head><body><table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td align="center"><% dim objRsset objRs = Server.CreateObject("ADODB.Recordset") objRs.CursorLocation = 3 objRs.CursorType = 0 objRs.LockType = 3 dim strSql strSql = "SELECT * FROM tblUye WHERE UYE_ID = " & intUyeID & "" objRs.Open strSql, objConn, , , &H0001if not objRs.EOF thendim strAd strAd = objRs("UYE_AD") dim strSoyad strSoyad = objRs("UYE_SOYAD") dim strMail strMail = objRs("UYE_MAIL") dim strSehir strSehir = objRs("UYE_SEHIR") dim strMesaj strMesaj = objRs("UYE_MESAJ")%> <table border="0" cellpadding="0" cellspacing="0" width="779"> <form action="guncelle_islem.asp" method="POST"> <input type="hidden" name="id" value="<% = intUyeID %>"> <tr> <td width="120">Ad :</td> <td><input type="text" name="ad" value="<% = strAd %>" size="20"></td> </tr> <tr> <td width="120">Soyad :</td> <td><input type="text" name="soyad" value="<% = strSoyad %>" size="20"></td> </tr> <tr> <td width="120">Mail :</td> <td><input type="text" name="mail" value="<% = strMail %>" size="20"></td> </tr> <tr> <td width="120">Şehir :</td> <td> <select name="sehir"><%dim arrIller arrIller = Array("Seçiniz","Adana","Adıyaman","Afyon","Ağrı", "Aksaray","Amasya","Ankara","Antalya","Ardahan ","A rtvin","Aydın","Balıkesir","Bartın","Batman","Bayb urt","Bilecik","Bingöl","Bitlis","Bolu","Burdur", " Bursa","Çanakkale","Çankırı","Çorum","Denizli","Di yarbakır","Düzce","Edirne","Elazığ","Erzincan","Er zurum","Eskişehir","Gaziantep","Giresun","Gümüşhan e","Hakkari","Hatay","Iğdır","Isparta","İstanbu l", "İzmir","K.Maraş","Karabük","Karaman","Kars"," Kast amonu","Kayseri","Kırıkkale","Kırklareli","Kırşehi r","Kilis","Kocaeli","Konya","Kütahya","Malatya "," Manisa","Mardin","Mersin","Muğla","Muş","Nevsehir" ,"Niğde","Ordu","Osmaniye","Rize","Sakarya","Sa msu n","Siirt","Sinop","Sivas","Şanlıurfa","Şırnak" ,"T ekirdağ","Tokat","Trabzon","Tunceli","Uşak","Van", "Yalova","Yozgat","Zonguldak")dim strSelecteddim intSayacfor intSayac = 0 to UBound(arrIller)if arrIller(intSayac) <> "" thenif arrIller(intSayac) = strSehir then strSelected=" selected" else strSelected=""end if Response.Write " <option value=""" & arrIller(intSayac) & """" & strSelected & ">" & arrIller(intSayac) & "</option>" & vbNewLinenext%> </select> </td> </tr> <tr> <td width="120" valign="top">Mesaj :</td> <td><textarea rows="5" cols="35" name="mesaj" class="input"><% = strMesaj %></textarea></td> </tr> <tr> <td width="120"> </td> <td><input type="submit" value="Güncelle"></td> </tr> </form> </table><% end if objRs.CloseSet objRs = Nothing %> </td> </tr> </table></body></html><% objConn.CloseSet objConn = Nothing%>

Değiştirilen bilgileri formdan alıp veritabanına kaydedecek olan sayfamız.
guncelle_islem.asp

Alıntı:

Kod:
<% intUyeID = Request.Form("id") strAd = Request.Form("ad") strSoyad = Request.Form("soyad") strMail = Request.Form("mail") strSehir = Request.Form("sehir") strMesaj = Request.Form("mesaj") const adCmdText = &H0001const 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 strSql = "UPDATE tblUye SET UYE_AD = '" & strAd & "', UYE_SOYAD = '" & strSoyad & "', UYE_MAIL = '" & strMail & "', UYE_SEHIR = '" & strSehir & "', UYE_MESAJ = '" & strMesaj & "' WHERE UYE_ID = " & intUyeID objConn.Execute(strSql),,adCmdText + adExecuteNoRecords objConn.CloseSet objConn = Nothing Response.Redirect "kayit_oku.asp"%>

Stripling · 16-10-2008

Konu : Sayfalama İşlemi
Seviye : Orta
Kaynak Dosyalar : http://rapidshare.com/files/6071967/...rnegi.rar.html

Alıntı:

Kod:
<% @ 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 intSayfaif Request.QueryString("s") = "" then intSayfa = 1else 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 **********="Content-Type" *********"text/html; charset=iso-8859-9"><style type="text/css"></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"> </td> </tr> <tr> <td width="179"> </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 objConnset objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConndim objRsset 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.PageCountif intSayfa > intToplamSayfa then intSayfa = intToplamSayfaif intSayfa < 1 then intSayfa = 1if 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 = 0do while intSayac01 < intHerSayfadaGosterilecekKayit And Not objRs.EOF%> <tr> <td><% = objRs("veri") %></td> </tr><% intSayac01 = intSayac01 + 1 objRs.MoveNextloop%> <tr> <td align="center"><%if intSayfa > 1 then%> <B><a href="sayfalama.asp?s=<%= intSayfa - 1 %>" class="link_01">[<< Geri]</a> </B> <%end ifdim intSayac02 for intSayac02 = 1 To intToplamSayfaif intSayac02 = intSayfa then%> <font class="sayfa"><%= intSayac02 %></font> <%else%> <B><a href="sayfalama.asp?s=<%= intSayac02 %>" class="link_01"><%= intSayac02 %></a></B> <%end ifnext if intSayfa < intToplamSayfa then%> <B> <a href="sayfalama.asp?s=<%= intSayfa + 1 %>" class="link_01">[ileri >>]</a></B> <%end if%> </td> </tr><%end if objRs.Closeset objRs = Nothing objConn.Closeset objConn = Nothing%> </table> </td> </tr> <tr> <td colspan="2" height="20"> </td> </tr> </table> </td> </tr></table></body></html>

Stripling · 16-10-2008

Konu : Veritabanındaki Bilgileri İki Sutun halinde Sayfaya Dökmek
Seviye : Orta
Kaynak Dosyalar :http://rapidshare.com/files/6080862/..._menu.rar.html

Alıntı:

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 **********="Content-Type" *********"text/html; charset=iso-8859-9"><style type="text/css"></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 objConnset objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn dim objRsKategori set objRsKategori = Server.CreateObject("ADODB.Recordset") objRsKategori.CursorLocation = 2 objRsKategori.CursorType = 1 objRsKategori.LockType = 3dim 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 elsedim intToplamVeri intToplamVeri = objRsKategori.RecordCount dim intSutun intSutun = 2 dim intSaydo while not objRsKategori.EOF intSay = intSay + 1if intSay Mod intSutun = 1 then Response.Write " <tr>" & vbNewLineend 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, , , &H0001if not objRsAltKategori.EOF thendo 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.MoveNextloopend if objRsAltKategori.Closeset objRsAltKategori = Nothing '///////////////////////////////////////////////////////////////////////////////////////////////////////// Response.Write "</td>" & vbNewLineif intSay Mod intSutun = 0 then Response.Write " </tr>" & vbNewLineend if objRsKategori.MoveNextloopif intToplamVeri mod intSutun <> 0 thendim ifor i = 1 to (intSutun - (intToplamVeri mod intSutun)) Response.Write " <td> </td>" & vbNewLinenextend if Response.Write " </tr>" & vbNewlineend if Response.Write " </table>" & vbNewline objRsKategori.Closeset objRsKategori = Nothing objConn.Closeset 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>

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 : http://rapidshare.com/files/6083185/...unlar.rar.html

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ı:

Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>Veritabanından kayıt okumak</title><meta **********="Content-Type" *********"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 objConnset 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 = 0dim strRenk do while Not objRs.EOFif 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.MoveNextloopend if objRs.Closeset objRs = Nothing objConn.Closeset objConn = Nothing%> </table> </body></html>

Stripling · 16-10-2008

Konu : Veritabanından Rastgele Veri Okumak.
Seviye : Basit
Kaynak Dosyalar : http://rapidshare.com/files/996201/randomize.rar.html

Kod:
<% @ Language=VBScript CodePage="1254" %><% strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb") set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn Response.Write "<table border=""1"" cellpadding=""0"" cellspacing=""0"" width=""250"">" & vbNewLine set objRs=server.createobject("adodb.recordset") strSql = "select * from tblSozler" objRs.open strSql, objConn, 1, 3 randomize intRastgelenKayit = Int((objRs.RecordCount * Rnd)+ 0) objRs.Move(intRastgelenKayit) Response.Write "<tr>" & vbNewLine & _ "<td height=""100"" valign=""top"">" & objRs("soz") & "</td>" & vbNewLine & _ "</tr>" & vbNewLine & _ "<tr>" & vbNewLine & _ "<td align=""right"">" & objRs("yazar") & "</td>" & vbNewLine & _ "</tr>" & vbNewLine objRs.closeset objRs = Nothing Response.Write "</table>" & vbNewLine objConn.closeset objConn = Nothing%>

Konu : Recursion İşlemi
Seviye : Üst Düzey
Kaynak Dosyalar : http://rapidshare.com/files/6087434/recursion.rar.html

Asp ile Kategoriler içeren Shop, Makale, Forum vb. script yazmak ve bunu profesyonel bir veritabanı mimarisi, sonsuz kategori ve en son sistem bir uygulama yapmak istiyorlar ise mutlaka bu işlemi kullanmalıdırlar. hipernex.com, hepsiburada.com ve bunlar gibi sitelerin kodlamaları asp.NET ile yapılmıştır ancak veritabanı mimarisi bu şekildedir...

Bu konuda TR çok fazla bir kaynak bulamazsınız. Bu konuda araştırmak kafa yormanız için bu bir başlangıç olsun...

Ekran çıktışı şöyle;
Elbette bu çok farklı şekillerde kullanılır ben en basit halini yaptım.

Orjinal Boyutunda Açmak İçin ( 1020x1428 ve 153KB ) Buraya Tıklayın

Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title></title><style type="text/css"></style><meta **********="Content-Type" *********"text/html; charset=iso-8859-9"></head><body><table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td align="center"> <table border="0" cellpadding="0" cellspacing="0" width="779"><%dim strConn strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn subRecursive 0, 0 objConn.Close Set objConn= Nothing %> </table> </td> </tr> </table></body></html><%sub subRecursive(ParentID, intLevel)dim objRsdim strSql strSql = "SELECT KATEGORI_ID, KATEGORI_AD FROM tblKategori WHERE KATEGORI_UST_ID = " & ParentID set objRs = objConn.Execute(strSql) if Not objRs.EOF then do while Not objRs.EOF Response.Write " <tr>" & vbNewLine & _ " <td><img src=""bosluk.gif"" border=""0"" width=""" & 25 * intLevel & """ height=""1""><a href=""01.asp?id=" & objRs("KATEGORI_ID") & """ class=""link_01"">" & objRs("KATEGORI_AD") & "</a></td>" & vbNewLine & _ " </tr>" & vbNewLine subRecursive objRs("KATEGORI_ID"), intLevel + 1 objRs.MoveNextloopend if if Not objRs Is Nothing then objRs.Closeend ifset objRs = Nothing end sub%>

Stripling · 16-10-2008

Konu : Dinamik Haber Başlıkları (Asp+JavaScript)
Seviye : Orta Düzey
Kaynak Dosyalar : http://rapidshare.com/files/6152754/...klari.rar.html

Görünüm

Kod:
<html><head><title>haber</title><meta **********="Content-Type" *********"text/html; charset=iso-8859-9" /><style type="text/css"></style><script type="text/javascript"></script></head><body><table border="1" cellpadding="0" cellspacing="0" width="550"><%dim strConn strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb") '---- CursorTypeEnum Values ----Const adOpenForwardOnly = 0'---- LockTypeEnum Values ----Const adLockReadOnly = 1'---- CommandTypeEnum Values ----Const adCmdText = &H0001'---- GetRowsOptionEnum Values ----Const adGetRowsRest = -1set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn strSql = "Select * From tblHaber"set objRs = Server.CreateObject("ADODB.Recordset") objRs.open strSql, objConn, adOpenForwardOnly, adLockReadOnly, adCmdText if objRs.EOF then intToplam = ""else arrTumVeriler = objRs.GetRows(adGetRowsRest) intToplam = UBound(arrTumVeriler,2)end if objRs.Closeset objRs = nothingif intToplam <> "" then intAlan01 = 0 intAlan02 = 1 intAlan03 = 2 intAlan04 = 3 intAlan05 = 4 Response.Write " <tr>" & vbNewLine & _ " <td height=""25"" class=""baslik"">"for intSayac = 0 to intToplamif intSayac <> 0 then strStil = "none"else strStil = "block" end if Response.Write "<div id=""tits" & intSayac & "-manset"" style=""DISPLAY: " & strStil & """>" & arrTumVeriler(intAlan02, intSayac) & "</div>" & vbNewLinenext Response.Write " </td>" & vbNewLine & _ " </tr>" & vbNewLine & _ " <tr>" & vbNewLine & _ " <td>" & vbNewLine & _ " <table border=""1"" cellpadding=""0"" cellspacing=""0"" width=""550"">" & vbNewLine & _ " <tr>" & vbNewLine & _ " <td valign=""top"" width=""300"">" & vbNewLine & _ " <table border=""1"" cellpadding=""0"" cellspacing=""0"" width=""100%"">" & vbNewLine & _ " <tr>" & vbNewLine & _ " <td width=""300"" height=""250"">" & vbNewLinefor intSayac = 0 to intToplamif intSayac <> 0 then strStil = "none"else strStil = "block" end if Response.Write " <div id=""tits" & intSayac & "-imaj"" style=""DISPLAY: " & strStil & """><img src=""resimler/" & arrTumVeriler(intAlan05, intSayac) & """ width=""300"" height=""250"" border=""1""></div>" & vbNewLinenext Response.Write " </td>" & vbNewLine & _ " </tr>" & vbNewLine & _ " <tr>" & vbNewLine & _ " <td class=""yazi_01"">" & vbNewLine for intSayac = 0 to intToplamif intSayac <> 0 then strStil = "none"else strStil = "block" end if Response.Write " <div id=""tits" & intSayac & "-spot"" style=""DISPLAY: " & strStil & """>" & arrTumVeriler(intAlan03, intSayac) & "</div>" & vbNewLinenext Response.Write " </td>" & vbNewLine & _ " </tr>" & vbNewLine & _ " </table>" & vbNewLine & _ " </td>" & vbNewLine%><script type="text/javascript"></script><% Response.Write " <td valign=""top"" width=""250"">" & vbNewLine & _ " <table border=""1"" cellpadding=""0"" cellspacing=""0"" width=""100%"">" & vbNewLine & _ " <tr>" & vbNewLine & _ " <td align=""center"" class=""yazi_02""><b>Haberler</b></td>" & vbNewLine & _ " </tr>" & vbNewLinefor intSayac = 0 to intToplamif intSayac <> 0 then strStil = "none"else strStil = "block" end if Response.Write " <tr>" & vbNewLine & _ " <td height=""20""> <a href=""urun.asp?id=" & arrTumVeriler(intAlan01, intSayac) & """ onmouseover=displayDiv(" & intSayac & ") class=""Link_01"">" & arrTumVeriler(intAlan02, intSayac) & "</a></td>" & vbNewLine & _ " </tr>" & vbNewLinenext Response.Write " </table>" & vbNewLine & _ " </td>" & vbNewLine & _ " </tr>" & vbNewLine & _ " </table>" & vbNewLine & _ " </td>" & vbNewLine & _ " </tr>" & vbNewLine else Response.Write " <tr>" & vbNewLine & _ " <td>Kayıt Yok!</td>" & vbNewLine & _ " </tr>" & vbNewLineend if objConn.Closeset objConn = Nothing%> </table></body></html>

Konu : Anket
Seviye : Basit
Kaynak Dosyalar : http://rapidshare.com/files/6153939/anket.rar.html

Anlaşılmasının kolay olması için çok basit mantık kullanılarak oluşturuldu.

Oy verme sayfası

Sonuç sayfası

Kod:
<%dim strConn strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("anket.mdb")set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn set objRs = Server.CreateObject("ADODB.Recordset") strSql = "SELECT TOP 1 * FROM tblAnket ORDER BY anket_tarihi DESC"objRs.open strSql, objConn, 3, 3 intAnketID = objRs("anket_id") strAnketSorusu = objRs("anket_sorusu")If Request.QueryString("islem") = "true" then strSql = "UPDATE tblSecenek SET secenek_oy = secenek_oy + 1 WHERE secenek_id= " & Request.QueryString("id") & ";"If Int(Request.Cookies("anket")("id")) <> intAnketID then objConn.Execute strSql Response.Cookies("anket").Expires = Now() + 7 Response.Cookies("anket")("id") = intAnketID Response.write "Teşekkürler"End ifEnd if strSql = "SELECT * FROM tblSecenek WHERE anket_id = " & intAnketIDset objRsSecenek = Server.CreateObject("ADODB.Recordset") objRsSecenek.Open strSql, objConn, 3, 3 intToplam = 0While Not objRsSecenek.EOF intToplam = intToplam + objRsSecenek("secenek_oy") objRsSecenek.MoveNextWend objRsSecenek.MoveFirstIf Request.QueryString("sonuc") = "true" OR Request.QueryString("islem") = "true" OR cInt(Request.Cookies("anket")("id")) = intAnketID then If intToplam = 0 then Response.write "sonuçlar"Else%><table width="250"> <tr> <td colspan="3"><%=strAnketSorusu%></td> </tr><%while not objRsSecenek.EOF intToplamOy = (objRsSecenek("secenek_oy") / intToplam) * 100%> <tr> <td><%=objRsSecenek("secenek")%></td> <td width='100'><img src='resimler/anket.gif' height='5' width='<%=Round(intToplamOy,0)%>'></td> <td><%=Round(intToplamOy,1)%> %</td> </tr><% objRsSecenek.movenextwend %></table><br><% Response.write intToplam & " oy"End IfElse %><table width="250"><form name="poll" action="anket.asp?sonuc=true" method="get"><input type="hidden" name="islem" value="true"> <tr> <td colspan="3"><%=strAnketSorusu%></td> </tr><%while not objRsSecenek.EOF %> <tr> <td><%=objRsSecenek("secenek")%></td> <td><input type="radio" name="id" value="<%=objRsSecenek("secenek_id")%>"></td> </tr><% objRsSecenek.movenextwend%> <tr> <td colspan="2"><input type="submit" value="Gönder"><br><a href="anket.asp?sonuc=true">Sonuçlar</a></td> </tr></form></table><%End if%>

Stripling · 16-10-2008

Konu : Sayfa Çözünürlüğü (Html)
Seviye : Basit
Kaynak Dosyalar : Yok

Çok güzel sayfalar yapabilirsiniz, Elinizde çok güzel içerikler bulunabilir ancak bunları sağa sola kayan ya da sayfa ve tablo düzeni olmayan bir halde sunmak etkiyi azaltır. Göze hoş gelmez.

Burada yapmak istediğimiz kısaca şu;

Üst ve sol tarafta default olarak verilen boşlukları css margin:0px ve padding:0px kodları ile sıfırlayacağız. Böylelikle sayfa alanımız genişlemiş olacak
%100 uzunlukta bir tablo açacağız. Böylece her çözünürlüğe göre bu tablo şekil alacak.
%100 değerli tablonun içerisine 779 pixel uzunluğunda/genişliğinde sabit bir tablo oluşturacağız.
Sabit tabloyu (779px) dinamik tablo(%100) içerisinde ortada ya da isteğe göre sol ya da sağa doğru yaslayıp içerisine sitemizi oluşturacağız.

Şimdi merhale merhale html kodlarımızı oluşturalım. Notpad dışında editör kullanmamanızı şiddetle öneririm.

En basit hali ile html kodlarımız. Bu iskeleti oluşturuyor.

Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title></title></head><body></body></html>
kullandığımız html kodlarının versiyonunu belirtiyoruz. HTML 4.01

Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
Bir Html sayfası bu iki kod arasında yazılan diğer html tagları ile oluşturulur.

Kod:
<html></html>

<head></head> arasına sayfa ile ilgili ayar kodlamaları yazılır. Örneğin <title>Deneme Sayfası</title> sayfanın başlığını gösterir. Bu yazı "Deneme Sayfası" açılan sayfamızın durum çubuğunda (Status bar) görünmesini sağlar. Sayfayı farklı kaydettiğimizde sayfanın adının oluşturulmasında kullanılır....

Kod:
<head><title></title></head>
<body></body> bu iki tag arasına yazılanlar sayfa içeriğini oluşturur.

Kod:
<body></body>

Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title></title><meta **********="Content-Type" *********"text/html; charset=iso-8859-9"></head><body></body></html>
Sayfamızda Türkçe Karakterlerin doğru bir şekilde görünmesini sağlar. Mutlaka her sayfada <head></head> tagları arasında yazılmalıdır.

Kod:
<meta **********="Content-Type" *********"text/html; charset=iso-8859-9">

şimdi <body></body> tagları arasında sayfamızı ve sayfamızın-sitenin iskeletini oluşturmaya başlayalım.

Sayfa uzunluğu/genişliği %100 değeri ile verilmiş dinamik bir tablo

Kod:
<table border="1" cellpadding="0" cellspacing="0" width="100%"> <tr> <td></td> </tr> </table>
kısaca açıklayayım
border="1" tabloya 1px lik çerçeve verir. Normalde bunu border="0" olarak yapacağız. Ancak sayfada yaptıklarımızı görebilmemiz açısından 1 değerini veriyoruz.
cellpadding="0" cellspacing="0" ile çerçevelerin kenarlarında boşluk vermeyeceğimizi belirtiyoruz siz bu değerleri oynayarak ne ğibi değişiklikler yaptığını deneyebilirsiniz..
width="100%" uzunluk sayfayı açan kişinin ekran çözünürlüğüne eşit demektir.

Kod:
<table border="1" cellpadding="0" cellspacing="0" width="100%"></table>

Satır oluşturur

Kod:
<tr></tr>

Sutun/hücre oluşturur.

Kod:
<td></td>

şimdi de 779px genişliğinde sabit bir tablo oluşturalım.

Kod:
<table border="1" cellpadding="0" cellspacing="0" width="779"> <tr> <td></td> </tr> </table>
Tablolama mantığı konusunda da biraz bilgi verirsek ilk yaptığınız tablo hücresi içine diğer tabloyu yazacaksınız. Editörlerin doldurduğu bir sürü anlamsız kodlardanda kurtulmuş ve sadece gerekli olan kodların olduğu tertemiz bir kodlamaya sahip olmuş olacaksınız.
Mantığı şu
her zaman <table> tagından sonra <tr> gelir. <tr> tagından sonra her zaman <td> gelir. <td> tagından sonra bir tablo daha eklemek istiyorsanız <table> tagı sonrada <tr> ve <td> gelir. Elbette açılma sırasına göre bunları kapatmamızda gerekiyor.

Kod:
<table> <tr> <td> <table> <tr> <td></td> </tr> </table> </td> </tr></table>

Dinamik tablomuz ile sabit tablomuzu iç içe yazabiliriz.

Kod:
<table border="1" cellpadding="0" cellspacing="0" width="100%"> <tr> <td> <table border="1" cellpadding="0" cellspacing="0" width="779"> <tr> <td> </td> </tr> </table> </td> </tr> </table>
bundan sonra sitemizi inşa edeceğimiz alanın sol, orta ya da sağa dayalı mı yapacağımıza karar vereceğiz. Sola dayalı yapacaksanız hiç bir şey yapmanıza gerek yok ancak ortada ya da sağda olmasını istiyorsanız sabit 779px lik tabloyu içine alan hücre <td> de bunu belirtmemiz gerekecek. <td align="center"> gibi..
left : sola hizalı yapar
center : ortaya hizalar.
right : sağa hizalar.

son hali şu şekilde ancak her şey bitmiş değil.

iskeleti oluşturmaya devam edelim.

bir sayfada genel olarak üst orta ve alt bölümler olmak üzere 3 satırdan oluşur.

Üst bölüm banner alanı olarak kullanılabilir.
Orta bölümde kendi içinde iki bölüm/sütundan oluşur. Sol tarafta linkler ve sağ tarafta da sayfa içeriği bulunur.
Alt Bölümde ise linkler ve copyrigth kısmı bulunur.

3 ana satırı ekleyelim.

Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title></title><style type="text/css"></style><meta **********="Content-Type" *********"text/html; charset=iso-8859-9"></head><body><table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td align="center"> <table border="1" cellpadding="0" cellspacing="0" width="779"> <tr> <td>üst</td> </tr> <tr> <td>orta</td> </tr> <tr> <td>alt</td> </tr> </table> </td> </tr> </table></body></html>
görünüm

2. Satır yani orta bölüm iki sutundan oluşuyordu. Bu sütunların sağda olanı genelde menü/link alanı sağ tarafta ise içerik bölümü yer alır. Kodumuza bunu ekliyorum.

Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title></title><style type="text/css"></style><meta **********="Content-Type" *********"text/html; charset=iso-8859-9"></head><body><table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td align="center"> <table border="1" cellpadding="0" cellspacing="0" width="779"> <tr> <td height="170">Üst Bölüm</td> </tr> <tr> <td> <table border="1" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="179" valign="top">Sol Menü Bölümü</td> <td width="600" valign="top" height="400">Orta İçerik Bölümü</td> </tr> </table> </td> </tr> <tr> <td height="25">Alt Bölüm</td> </tr> </table> </td> </tr> </table></body></html>
Görünümü,

Stripling · 16-10-2008

Konu : İclude Yöntemi
Seviye : Basit
Kaynak Dosyalar : http://rapidshare.com/files/6194416/include.rar.html

Genel olarak sayfanın 3 satırdan oluştuğunu (1. satır : Üst Bölüm, 2. satır : Orta Bölüm, 3. satır : Alt Bölüm) ve 2.satır'ın yani Orta bölümünde kendi içinde 2 sütundan (1. sütun : Menü/Link Bölümü, 2. sütun : Sayfa İçerik Bölümü) oluştuğunu söylemiştik.

Sayfa İçerik Bölümü dışında kalan bölümler pek değişmez sabit alanlardır. Bunları HTML ile her sayfada yapmak zorundayız. Ancak Asp de bu sayfaları ayrı sayfalar olarak yapar ve bunları kullanılacağı alanlarda include file yöntemi (bunun dışında include virtual ve server.execute yöntemleri var ancak biz burada onlara değinmeyeceğiz.) ile çağırırız.
Bu bize ne kazandırır.
Örneğin Üst bölümde bir banner var ve sitemizde toplam 50 sayfa olsun ve biz bu banneri değiştirecek olalım ozaman tüm bu 50 sayfayı tekrar tekrar düzenlememiz gerekir. Oysa bu sayfayı asp ile bir defa yapıp tüm sayfaların üstüne include ile eklersek bir sayfayı değiştirmekle tüm sitede bu değişikliği kazandırmış oluruz. Zaten sunucu taraflı (asp/php vb.) gibi dillerin önemide buradan kaynaklanmaktadır. Bu bize işlem yoğunluğunu azaltmamıza ve interaktif bir yapıya sahip olmamıza olanak sağlar.

Kullanacağımız kod "" çift tırnak içine çağıracağımız asp dosyasını yazıyoruz.

Kod:

kodlamayı bir önceki derste anlatılan son html kod üzerinden devam ederek geliştireceğim.

bir önceki derste ki kodumuzun sayfa içeriği kısmına bir tablo daha ekleyerek devam edelim.

Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title></title><style type="text/css"></style><meta **********="Content-Type" *********"text/html; charset=iso-8859-9"></head><body><table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td align="center"> <table border="1" cellpadding="0" cellspacing="0" width="779"> <tr> <td height="170">Üst Bölüm</td> </tr> <tr> <td> <table border="1" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="179" valign="top">Sol Menü Bölümü</td> <td width="600" valign="top"> <table border="1" cellpadding="0" cellspacing="0" width="100%"> <tr> <td height="400">Sayfa İçeriği Bölümü</td> </tr> </table> </td> </tr> </table> </td> </tr> <tr> <td height="25">Alt Bölüm</td> </tr> </table> </td> </tr> </table></body></html>
Sayfamız 3 satırdan oluşuyordu ve 2. satır 2 sütundan oluşuyordu.
Şimdi bu kodu ben yine 3 parçaya böleceğim ve üç ayrı asp sayfası olarak kaydedeceğim.

include edilen sayfalar olduğunu belirtmek için inc ekleyeceğim başına.

1. asp sayfamız
inc_ust.asp (üst bölümü ve menü/link bölümünü içerecek)
2. asp sayfamız
default.asp (sayfa içerik bölümünü içerecek ve inc_ust.asp ile inc_alt.asp sayfaları include edilecek)
3. asp sayfamız
inc_alt.asp (alt bölümü içerecek)
edecek...

inc_ust.asp

Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title></title><style type="text/css"></style><meta **********="Content-Type" *********"text/html; charset=iso-8859-9"></head><body><table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td align="center"> <table border="1" cellpadding="0" cellspacing="0" width="779"> <tr> <td height="170">Üst Bölüm</td> </tr> <tr> <td> <table border="1" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="179" valign="top">Sol Menü Bölümü</td> <td width="600" valign="top">

default.asp

Kod:
 <table border="1" cellpadding="0" cellspacing="0" width="100%"> <tr> <td height="400">Sayfa İçeriği Bölümü</td> </tr> </table> 

inc_alt.asp

Kod:
</td> </tr> </table> </td> </tr> <tr> <td height="25">Alt Bölüm</td> </tr> </table> </td> </tr> </table></body></html>

Konu : Her Mail Bileşeninden Html Mail Göndermek
Seviye : Orta
Kaynak Dosyalar : http://rapidshare.com/files/6203306/html_mail.rar.html

3 adet sayfamız olacak.

Bilgileri alacak olan form sayfası (mail.html)
Formdan gelen bilgileri işleyecek sayfa (mail.asp)
Mail bileşenlerini kullanan fonksiyon sayfamız (inc_mail.asp)

mail.html

Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title></title><style type="text/css"></style><meta **********="Content-Type" *********"text/html; charset=iso-8859-9"></head><body><table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td align="center"> <table border="1" cellpadding="0" cellspacing="0" width="779"> <tr> <td width="179"> <td> <td width="600"> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td height="25" valign="top"><span class="hata">* Doldurulması Gerekli Alanlar</span></td> </tr> <tr> <td> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <form action="mail.asp" method="post"> <input type="hidden" name="islem" value="gonder"> <tr> <td width="145" class="baslik_01">Adınız <font class="hata"><b>*</b></font> : </td> <td><input type="text" name="ad" size="37" maxlength="30" value=""></td> </tr> <tr> <td width="145" class="baslik_01">Soyadınız <font class="hata"><b>*</b></font> : </td> <td><input type="text" name="soyad" size="37" maxlength="30" value=""></td> </tr> <tr> <td width="145" class="baslik_01">E-Mail : </td> <td><input type="text" name="mail" size="37" maxlength="30" value=""></td> </tr> <tr> <td width="145" class="baslik_01">Konu <font class="hata"><b>*</b></font> : </td> <td><input type="text" name="konu" size="37" maxlength="30" value=""></td> </tr> <tr> <td width="145" valign="top" class="baslik_01">Mesajınız <font class="hata"><b>*</b></font> : </td> <td><textarea rows="10" cols="50" name="mesaj"></textarea></td> </tr> <tr> <td width="145"><img src="resimler/bosluk.gif" alt="" width="1" height="1" border="0" /></td> <td><input type="image" src="resimler/dugme_gonder.jpg" /></td> </tr> </form> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table></body></html>

mail.asp

Kod:
<% @ Language=VBScript CodePage="1254" %><%'///////////////////////////////////////////////////////////////////////////////////////////////////////'/////////////////////////////////// DEĞİŞTİRECEĞİNİZ ALANLAR //////////////////////////////////////////'///////////////////////////////////////////////////////////////////////////////////////////////////////dim strSiteAdres'mutlaka domainin sonuna / ekleyiniz. strSiteAdres = "http://www.domain.com/" '///////////////////////////////////////////////////////////////////////////////////////////////////////dim strSiteResimDizin'mail sayfasında kullanılan jpg ve gif dosyalarının bulunduğu klasörün adı strSiteResimDizin = "resimler"'///////////////////////////////////////////////////////////////////////////////////////////////////////dim strMailBilesen'CDOSYS'CDONTS'Jmail'AspEmail'AspMai l'Yukarıdaki bileşenlerden birini aşağıya yazınız. strMailBilesen = "Jmail"'///////////////////////////////////////////////////////////////////////////////////////////////////////dim strMailSmtp strMailSmtp = "mail.domain.com"'///////////////////////////////////////////////////////////////////////////////////////////////////////dim strMail strMail = "mail@domain.com"'///////////////////////////////////////////////////////////////////////////////////////////////////////dim blnHtmlMail'True = Html Mail Formatı'False = Text Mail Formatı blnHtmlMail = True '///////////////////////////////////////////////////////////////////////////////////////////////////////dim strAliciAd strAliciAd = "Alıcı Ad ya da Kurum Adı"'///////////////////////////////////////////////////////////////////////////////////////////////////////dim strDonusSayfasi'mail gönderildikten sonra gidilecek sayfa. strDonusSayfasi = "default.asp"'///////////////////////////////////////////////////////////////////////////////////////////////////////'/////////////////////////////////////////////////////////////////////////////////////////////////////// if Request.form("islem") = "gonder" thendim strAd, strSoyad, strIsim, strGonderenMail, strKonu, strMesaj strAd = Request.Form("ad") strSoyad = Request.Form("soyad") strIsim = strAd & " " & strSoyad strGonderenMail = Request.Form("mail") strKonu = Request.Form("konu") strMesaj = Request.Form("mesaj")dim strHtml strHtml = strHtml & "<html>" & vbNewLine strHtml = strHtml & "<head>" & vbNewLine strHtml = strHtml & "<title>Html Mail</title>" & vbNewLine strHtml = strHtml & "<meta **********=""Content-Type"" *********""text/html; charset=iso-8859-9"">" & vbNewLine strHtml = strHtml & "</head>" & vbNewLine strHtml = strHtml & "<body leftmargin=""0"">" & vbNewLine strHtml = strHtml & "<table align=""center"" border=""0"" cellspacing=""0"" cellpadding=""0"" width=""100%"">" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td> " & vbNewLine strHtml = strHtml & " <table align=""center"" border=""0"" cellspacing=""0"" cellpadding=""0"" width=""779"">" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td><a href=""" & strSiteAdres & "default.asp""><img src=""" & strSiteAdres & strSiteResimDizin & "/banner.jpg"" border=""0"" alt="""" height=""175"" width=""779""></a></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td> " & vbNewLine strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""5"" border=""0"" /></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td>" & vbNewLine strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_ust_sol.gif"" width=""35"" height=""20""></td>" & vbNewLine strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_ust_ort****if"" width=""100%"" height=""20""></td>" & vbNewLine strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_ust_sag.gif"" width=""15"" height=""20""></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_sol.gif"" width=""35""><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""35"" height=""1"" border=""0"" /></td>" & vbNewLine strHtml = strHtml & " <td>" & vbNewLine strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""20"" border=""0"" /></td> " & vbNewLine strHtml = strHtml & " </tr> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td align=""center""><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:bold; color: #ffcc66;"">" & strKonu & "</font></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""20"" border=""0"" /></td> " & vbNewLine strHtml = strHtml & " </tr> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td>" & vbNewLine strHtml = strHtml & " <table align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""90%""> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td>" & vbNewLine strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td width=""50%"" style=""text-indent:30px""><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:notmal; color: #000000;"">" & strIsim & "</font></td>" & vbNewLine strHtml = strHtml & " <td align=""right"" width=""50%""><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:notmal; color: #000000;"">" & Day(Now) & " " & Month(Now) & " " & Year(Now) & "</font></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""20"" border=""0"" /></td> " & vbNewLine strHtml = strHtml & " </tr> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td>" & vbNewLine strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td style=""text-align:justify; text-indent:30px""><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:normal; color: #000000;"">" & strMesaj & "</font></td></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""20"" border=""0"" /></td> " & vbNewLine strHtml = strHtml & " </tr> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td>" & vbNewLine strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td width=""50%""><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:notmal; color: #000000;"">" & Request.ServerVariables("REMOTE_ADDR") & "</font></td>" & vbNewLine strHtml = strHtml & " <td align=""right"" width=""50%""><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:bold; color: #ffcc66;""></font><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:notmal; color: #000000;"">" & strMail & "</font></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""20"" border=""0"" /></td> " & vbNewLine strHtml = strHtml & " </tr> " & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_sag.gif"" width=""15""><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""15"" height=""1"" border=""0"" /></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_alt_sol.gif"" width=""35"" height=""20""></td>" & vbNewLine strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_alt_ort****if"" width=""100%"" height=""20""></td>" & vbNewLine strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_alt_sag.gif"" width=""15"" height=""20""></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""5"" border=""0"" /></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td> " & vbNewLine strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td bgcolor=""#ff9900"" height=""24"" style=""FILTER: progid

XImageTransform.Microsoft.Gradient(gradien tType=0,startColorStr=#ffcc00,endColorStr=#ff9900) ;""> " & vbNewLine strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td width=""220""><span style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff;""> Domain.Com © 2006</span></td> " & vbNewLine strHtml = strHtml & " <td align=""center""><a href=""" & strSiteAdres & "default.asp"" rel="nofollow" target=""_blank"" style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff; text-decoration: none;"">Ana Sayfa</a> <font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff;"">|</font> <a href=""" & strSiteAdres & "hakkimizda.asp"" rel="nofollow" target=""_blank"" style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff; text-decoration: none;"">Hakkımızda</a> <font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff;"">|</font> <a href=""" & strSiteAdres & "linkler.asp"" rel="nofollow" target=""_blank"" style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff; text-decoration: none;"">Linkler</a> <font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff;"">|</font> <a href=""" & strSiteAdres & "konuk.asp"" rel="nofollow" target=""_blank"" style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff; text-decoration: none;"">Konuk Defteri</a> <font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff;"">|</font> <a href=""" & strSiteAdres & "iletisim.asp"" rel="nofollow" target=""_blank"" style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff; text-decoration: none;"">İletişim</a></td> " & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""10"" border=""0"" /></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & "</table>" & vbNewLine strHtml = strHtml & "</body>" & vbNewLine strHtml = strHtml & "</html>" & vbNewLine call SendMail(strHtml, strAliciAd, strMail, strIsim, strGonderenMail, strKonu, strMailBilesen, strMailSmtp, blnHtmlMail)end if Response.Redirect strDonusSayfasi%>

inc_mail.asp

Kod:
<%function SendMail(strMailIcerik, strAliciAd, strAliciMail, strGonderenAd, strGonderenMail, strKonu, strMailKomponent, strSmtpAdres, blnHtmlMail)Dim objCDOSYSMailDim objCDOMailDim objJMailDim objAspEmailDim objAspMail'if blnHtmlMail = True then'else'end ifselect case strMailKomponentcase "CDOSYS" set objCDOSYSMail = server.createobject("CDO.Message") objCDOSYSMail.From = strGonderenAd & " <" & strGonderenMail & ">" objCDOSYSMail.To = strAliciAd & " <" & strAliciMail & ">"'objCDOSYSMail.Cc = ""'objCDOSYSMail.BCC = "" objCDOSYSMail.Subject = strKonuif blnHtmlMail = True then objCDOSYSMail.HTMLBody = strMailIcerikelse objCDOSYSMail.TextBody = strMailIcerikend ifdim objConfigSet objConfig = Server.CreateObject("CDO.Configuration")'objCDOSYS Mail.Importance = 1 '(0=Low, 1=Normal, 2=High)'objCDOSYSMail.AddAttachment = "file://G:\_DDDDDD\_binboga\ftp\stil.css" 'objCDOSYSMail.AttachFile "G:\_DDDDDD\_binboga\ftp\stil.css", "stil.css"'objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup" objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '1=SendUsingPickupDirectory objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpAdres objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '1=cdoBasic objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60'objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mail@domain.com"'objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"objConfig.Fields.UpdateSet objCDOSYSMail.Configuration = objConfig objCDOSYSMail.SendSet objConfig = Nothingset objCDOSYSMail = Nothingcase "CDONTS"set objCDOMail = Server.CreateObject("CDONTS.NewMail")with objCDOMail .From = strGonderenAd & " <" & strGonderenMail & ">" .To = strAliciAd & " <" & strAliciMail & ">" .Subject = strKonu .Body = strMailIcerikif blnHtmlMail = True then .BodyFormat = 0else .BodyFormat = 1end if .MailFormat = 0 .Importance = 1 .Sendend withset objCDOMail = Nothingcase "Jmail"set objJMail = Server.CreateObject("JMail.SMTPMail")with objJMail .ServerAddress = strSmtpAdres .Sender = strGonderenMail .SenderName = strGonderenAd .AddRecipient strAliciMail .Subject = strKonuif blnHtmlMail = True then .HTMLBody = strMailIcerikelse .Body = strMailIcerikend if .Priority = 3if NOT strSmtpAdres = "" then .Executeend withset objJMail = Nothingcase "AspEmail"set objAspEmail = Server.CreateObject("Persits.MailSender")with objAspEmail .Host = strSmtpAdres .From = strGonderenMail .FromName = strGonderenAd .AddAddress strAliciMail .Subject = strKonuif blnHtmlMail = True then .IsHTML = Trueend if .Body = strMailIcerikif NOT strSmtpAdres = "" then .Sendend withset objAspEmail = Nothingcase "AspMail"set objAspMail = Server.CreateObject("SMTPsvg.Mailer")with objAspMail .RemoteHost = strSmtpAdres .FromAddress = strGonderenMail .FromName = strGonderenAd .AddRecipient " ", strAliciMail .Subject = strKonuif blnHtmlMail = True then .ContentType = "text/HTML"end if .BodyText = strMailIcerikif NOT strSmtpAdres = "" then .SendMailend withset objAspMail = Nothingend Select SendMail = Trueend Function%>

16-10-2008	#1 (permalink)
Stripling Op (@) Giriş Tarihi: 15-10-2008 Mesajlar: 404 İtibar Gücü: 4 Rep Puanı : 10 Rep Derecesi :	ASP Konu Anlatımı ve Örnek Uygulamalar Konu : Veritabanından Bilgileri Sayfaya Dökmek Seviye : Basit Kaynak Dosyalar : http://rapidshare.com/files/3519402/ders.rar.html 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 Kod: Alıntı: Kod: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>Veritabanından kayıt okumak</title> <meta ********="Content-Type" ******"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ı: Kod: 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ı: Kod: 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ı: Kod: 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ı: Kod: 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ı: ve kayıtsetine yüklemiş olduğumuz tüm bu parametrelere uygun bir şekilde açılış yaptık. Alıntı: Kod: 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ı: Kod: if objRs.EOF then Boş olduğunu sayfaya yazıyoruz. Alıntı: Kod: <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ı: Kod: objRs.MoveNext() loop tblUye isimli tablonun boş olup olmadığını kontrol ettiğimiz kodu kapatıyoruz. Alıntı: Kod: 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ı: Kod: objRs.Close set objRs = Nothing Bağlantı nesnesini de kapatıyor ve değerlerini boşaltıyoruz. Alıntı: Kod: objConn.Close set objConn = Nothing

16-10-2008	#9 (permalink)
Stripling Op (@) Giriş Tarihi: 15-10-2008 Mesajlar: 404 İtibar Gücü: 4 Rep Puanı : 10 Rep Derecesi :	Konu : Sayfa Çözünürlüğü (Html) Seviye : Basit Kaynak Dosyalar : Yok Çok güzel sayfalar yapabilirsiniz, Elinizde çok güzel içerikler bulunabilir ancak bunları sağa sola kayan ya da sayfa ve tablo düzeni olmayan bir halde sunmak etkiyi azaltır. Göze hoş gelmez. Burada yapmak istediğimiz kısaca şu; Üst ve sol tarafta default olarak verilen boşlukları css margin:0px ve padding:0px kodları ile sıfırlayacağız. Böylelikle sayfa alanımız genişlemiş olacak %100 uzunlukta bir tablo açacağız. Böylece her çözünürlüğe göre bu tablo şekil alacak. %100 değerli tablonun içerisine 779 pixel uzunluğunda/genişliğinde sabit bir tablo oluşturacağız. Sabit tabloyu (779px) dinamik tablo(%100) içerisinde ortada ya da isteğe göre sol ya da sağa doğru yaslayıp içerisine sitemizi oluşturacağız. Şimdi merhale merhale html kodlarımızı oluşturalım. Notpad dışında editör kullanmamanızı şiddetle öneririm. En basit hali ile html kodlarımız. Bu iskeleti oluşturuyor. Kod: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title></title></head><body></body></html> kullandığımız html kodlarının versiyonunu belirtiyoruz. HTML 4.01 Kod: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> Bir Html sayfası bu iki kod arasında yazılan diğer html tagları ile oluşturulur. Kod: <html></html> <head></head> arasına sayfa ile ilgili ayar kodlamaları yazılır. Örneğin <title>Deneme Sayfası</title> sayfanın başlığını gösterir. Bu yazı "Deneme Sayfası" açılan sayfamızın durum çubuğunda (Status bar) görünmesini sağlar. Sayfayı farklı kaydettiğimizde sayfanın adının oluşturulmasında kullanılır.... Kod: <head><title></title></head> <body></body> bu iki tag arasına yazılanlar sayfa içeriğini oluşturur. Kod: <body></body> Kod: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title></title><meta ********="Content-Type" *****"text/html; charset=iso-8859-9"></head><body></body></html> Sayfamızda Türkçe Karakterlerin doğru bir şekilde görünmesini sağlar. Mutlaka her sayfada <head></head> tagları arasında yazılmalıdır. Kod: <meta ******="Content-Type" *****"text/html; charset=iso-8859-9"> şimdi <body></body> tagları arasında sayfamızı ve sayfamızın-sitenin iskeletini oluşturmaya başlayalım. Sayfa uzunluğu/genişliği %100 değeri ile verilmiş dinamik bir tablo Kod: <table border="1" cellpadding="0" cellspacing="0" width="100%"> <tr> <td></td> </tr> </table> kısaca açıklayayım border="1" tabloya 1px lik çerçeve verir. Normalde bunu border="0" olarak yapacağız. Ancak sayfada yaptıklarımızı görebilmemiz açısından 1 değerini veriyoruz. cellpadding="0" cellspacing="0" ile çerçevelerin kenarlarında boşluk vermeyeceğimizi belirtiyoruz siz bu değerleri oynayarak ne ğibi değişiklikler yaptığını deneyebilirsiniz.. width="100%" uzunluk sayfayı açan kişinin ekran çözünürlüğüne eşit demektir. Kod: <table border="1" cellpadding="0" cellspacing="0" width="100%"></table> Satır oluşturur Kod: <tr></tr> Sutun/hücre oluşturur. Kod: <td></td> şimdi de 779px genişliğinde sabit bir tablo oluşturalım. Kod: <table border="1" cellpadding="0" cellspacing="0" width="779"> <tr> <td></td> </tr> </table> Tablolama mantığı konusunda da biraz bilgi verirsek ilk yaptığınız tablo hücresi içine diğer tabloyu yazacaksınız. Editörlerin doldurduğu bir sürü anlamsız kodlardanda kurtulmuş ve sadece gerekli olan kodların olduğu tertemiz bir kodlamaya sahip olmuş olacaksınız. Mantığı şu her zaman <table> tagından sonra <tr> gelir. <tr> tagından sonra her zaman <td> gelir. <td> tagından sonra bir tablo daha eklemek istiyorsanız <table> tagı sonrada <tr> ve <td> gelir. Elbette açılma sırasına göre bunları kapatmamızda gerekiyor. Kod: <table> <tr> <td> <table> <tr> <td></td> </tr> </table> </td> </tr></table> Dinamik tablomuz ile sabit tablomuzu iç içe yazabiliriz. Kod: <table border="1" cellpadding="0" cellspacing="0" width="100%"> <tr> <td> <table border="1" cellpadding="0" cellspacing="0" width="779"> <tr> <td> </td> </tr> </table> </td> </tr> </table> bundan sonra sitemizi inşa edeceğimiz alanın sol, orta ya da sağa dayalı mı yapacağımıza karar vereceğiz. Sola dayalı yapacaksanız hiç bir şey yapmanıza gerek yok ancak ortada ya da sağda olmasını istiyorsanız sabit 779px lik tabloyu içine alan hücre <td> de bunu belirtmemiz gerekecek. <td align="center"> gibi.. left : sola hizalı yapar center : ortaya hizalar. right : sağa hizalar. son hali şu şekilde ancak her şey bitmiş değil. iskeleti oluşturmaya devam edelim. bir sayfada genel olarak üst orta ve alt bölümler olmak üzere 3 satırdan oluşur. Üst bölüm banner alanı olarak kullanılabilir. Orta bölümde kendi içinde iki bölüm/sütundan oluşur. Sol tarafta linkler ve sağ tarafta da sayfa içeriği bulunur. Alt Bölümde ise linkler ve copyrigth kısmı bulunur. 3 ana satırı ekleyelim. Kod: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title></title><style type="text/css"><!-- body { margin:0px; padding:0px;} --></style><meta ******="Content-Type" *****"text/html; charset=iso-8859-9"></head><body><table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td align="center"> <table border="1" cellpadding="0" cellspacing="0" width="779"> <tr> <td>üst</td> </tr> <tr> <td>orta</td> </tr> <tr> <td>alt</td> </tr> </table> </td> </tr> </table></body></html> görünüm 2. Satır yani orta bölüm iki sutundan oluşuyordu. Bu sütunların sağda olanı genelde menü/link alanı sağ tarafta ise içerik bölümü yer alır. Kodumuza bunu ekliyorum. Kod: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title></title><style type="text/css"><!-- body { margin:0px; padding:0px;} --></style><meta ******="Content-Type" *******"text/html; charset=iso-8859-9"></head><body><table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td align="center"> <table border="1" cellpadding="0" cellspacing="0" width="779"> <tr> <td height="170">Üst Bölüm</td> </tr> <tr> <td> <table border="1" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="179" valign="top">Sol Menü Bölümü</td> <td width="600" valign="top" height="400">Orta İçerik Bölümü</td> </tr> </table> </td> </tr> <tr> <td height="25">Alt Bölüm</td> </tr> </table> </td> </tr> </table></body></html> Görünümü,

16-10-2008	#10 (permalink)
Stripling Op (@) Giriş Tarihi: 15-10-2008 Mesajlar: 404 İtibar Gücü: 4 Rep Puanı : 10 Rep Derecesi :	Konu : İclude Yöntemi Seviye : Basit Kaynak Dosyalar : http://rapidshare.com/files/6194416/include.rar.html Genel olarak sayfanın 3 satırdan oluştuğunu (1. satır : Üst Bölüm, 2. satır : Orta Bölüm, 3. satır : Alt Bölüm) ve 2.satır'ın yani Orta bölümünde kendi içinde 2 sütundan (1. sütun : Menü/Link Bölümü, 2. sütun : Sayfa İçerik Bölümü) oluştuğunu söylemiştik. Sayfa İçerik Bölümü dışında kalan bölümler pek değişmez sabit alanlardır. Bunları HTML ile her sayfada yapmak zorundayız. Ancak Asp de bu sayfaları ayrı sayfalar olarak yapar ve bunları kullanılacağı alanlarda include file yöntemi (bunun dışında include virtual ve server.execute yöntemleri var ancak biz burada onlara değinmeyeceğiz.) ile çağırırız. Bu bize ne kazandırır. Örneğin Üst bölümde bir banner var ve sitemizde toplam 50 sayfa olsun ve biz bu banneri değiştirecek olalım ozaman tüm bu 50 sayfayı tekrar tekrar düzenlememiz gerekir. Oysa bu sayfayı asp ile bir defa yapıp tüm sayfaların üstüne include ile eklersek bir sayfayı değiştirmekle tüm sitede bu değişikliği kazandırmış oluruz. Zaten sunucu taraflı (asp/php vb.) gibi dillerin önemide buradan kaynaklanmaktadır. Bu bize işlem yoğunluğunu azaltmamıza ve interaktif bir yapıya sahip olmamıza olanak sağlar. Kullanacağımız kod "" çift tırnak içine çağıracağımız asp dosyasını yazıyoruz. Kod: <!--#include file="" --> kodlamayı bir önceki derste anlatılan son html kod üzerinden devam ederek geliştireceğim. bir önceki derste ki kodumuzun sayfa içeriği kısmına bir tablo daha ekleyerek devam edelim. Kod: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title></title><style type="text/css"><!-- body { margin:0px; padding:0px;} --></style><meta ********="Content-Type" *****"text/html; charset=iso-8859-9"></head><body><table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td align="center"> <table border="1" cellpadding="0" cellspacing="0" width="779"> <tr> <td height="170">Üst Bölüm</td> </tr> <tr> <td> <table border="1" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="179" valign="top">Sol Menü Bölümü</td> <td width="600" valign="top"> <table border="1" cellpadding="0" cellspacing="0" width="100%"> <tr> <td height="400">Sayfa İçeriği Bölümü</td> </tr> </table> </td> </tr> </table> </td> </tr> <tr> <td height="25">Alt Bölüm</td> </tr> </table> </td> </tr> </table></body></html> Sayfamız 3 satırdan oluşuyordu ve 2. satır 2 sütundan oluşuyordu. Şimdi bu kodu ben yine 3 parçaya böleceğim ve üç ayrı asp sayfası olarak kaydedeceğim. include edilen sayfalar olduğunu belirtmek için inc ekleyeceğim başına. 1. asp sayfamız inc_ust.asp (üst bölümü ve menü/link bölümünü içerecek) 2. asp sayfamız default.asp (sayfa içerik bölümünü içerecek ve inc_ust.asp ile inc_alt.asp sayfaları include edilecek) 3. asp sayfamız inc_alt.asp (alt bölümü içerecek) edecek... inc_ust.asp Kod: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title></title><style type="text/css"><!-- body { margin:0px; padding:0px;} --></style><meta ******="Content-Type" *****"text/html; charset=iso-8859-9"></head><body><table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td align="center"> <table border="1" cellpadding="0" cellspacing="0" width="779"> <tr> <td height="170">Üst Bölüm</td> </tr> <tr> <td> <table border="1" cellpadding="0" cellspacing="0" width="100%"> <tr> <td width="179" valign="top">Sol Menü Bölümü</td> <td width="600" valign="top"> default.asp Kod: <!--#include file="inc_ust.asp" --> <table border="1" cellpadding="0" cellspacing="0" width="100%"> <tr> <td height="400">Sayfa İçeriği Bölümü</td> </tr> </table> <!--#include file="inc_alt.asp" --> inc_alt.asp Kod: </td> </tr> </table> </td> </tr> <tr> <td height="25">Alt Bölüm</td> </tr> </table> </td> </tr> </table></body></html> Konu : Her Mail Bileşeninden Html Mail Göndermek Seviye : Orta Kaynak Dosyalar : http://rapidshare.com/files/6203306/html_mail.rar.html 3 adet sayfamız olacak. Bilgileri alacak olan form sayfası (mail.html) Formdan gelen bilgileri işleyecek sayfa (mail.asp) Mail bileşenlerini kullanan fonksiyon sayfamız (inc_mail.asp) mail.html Kod: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title></title><style type="text/css"><!-- body { margin:0px; padding:0px;} --></style><meta ******="Content-Type" ******"text/html; charset=iso-8859-9"></head><body><table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td align="center"> <table border="1" cellpadding="0" cellspacing="0" width="779"> <tr> <td width="179"> <td> <td width="600"> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td height="25" valign="top"><span class="hata"> Doldurulması Gerekli Alanlar</span></td> </tr> <tr> <td> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <form action="mail.asp" method="post"> <input type="hidden" name="islem" value="gonder"> <tr> <td width="145" class="baslik_01">Adınız <font class="hata"><b></b></font> : </td> <td><input type="text" name="ad" size="37" maxlength="30" value=""></td> </tr> <tr> <td width="145" class="baslik_01">Soyadınız <font class="hata"><b></b></font> : </td> <td><input type="text" name="soyad" size="37" maxlength="30" value=""></td> </tr> <tr> <td width="145" class="baslik_01">E-Mail : </td> <td><input type="text" name="mail" size="37" maxlength="30" value=""></td> </tr> <tr> <td width="145" class="baslik_01">Konu <font class="hata"><b></b></font> : </td> <td><input type="text" name="konu" size="37" maxlength="30" value=""></td> </tr> <tr> <td width="145" valign="top" class="baslik_01">Mesajınız <font class="hata"><b></b></font> : </td> <td><textarea rows="10" cols="50" name="mesaj"></textarea></td> </tr> <tr> <td width="145"><img src="resimler/bosluk.gif" alt="" width="1" height="1" border="0" /></td> <td><input type="image" src="resimler/dugme_gonder.jpg" /></td> </tr> </form> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table></body></html> mail.asp Kod: <% @ Language=VBScript CodePage="1254" %><!--#include file="inc_mail.asp" --><%'///////////////////////////////////////////////////////////////////////////////////////////////////////'/////////////////////////////////// DEĞİŞTİRECEĞİNİZ ALANLAR //////////////////////////////////////////'///////////////////////////////////////////////////////////////////////////////////////////////////////dim strSiteAdres'mutlaka domainin sonuna / ekleyiniz. strSiteAdres = "http://www.domain.com/" '///////////////////////////////////////////////////////////////////////////////////////////////////////dim strSiteResimDizin'mail sayfasında kullanılan jpg ve gif dosyalarının bulunduğu klasörün adı strSiteResimDizin = "resimler"'///////////////////////////////////////////////////////////////////////////////////////////////////////dim strMailBilesen'CDOSYS'CDONTS'Jmail'AspEmail'AspMai l'Yukarıdaki bileşenlerden birini aşağıya yazınız. strMailBilesen = "Jmail"'///////////////////////////////////////////////////////////////////////////////////////////////////////dim strMailSmtp strMailSmtp = "mail.domain.com"'///////////////////////////////////////////////////////////////////////////////////////////////////////dim strMail strMail = "mail@domain.com"'///////////////////////////////////////////////////////////////////////////////////////////////////////dim blnHtmlMail'True = Html Mail Formatı'False = Text Mail Formatı blnHtmlMail = True '///////////////////////////////////////////////////////////////////////////////////////////////////////dim strAliciAd strAliciAd = "Alıcı Ad ya da Kurum Adı"'///////////////////////////////////////////////////////////////////////////////////////////////////////dim strDonusSayfasi'mail gönderildikten sonra gidilecek sayfa. strDonusSayfasi = "default.asp"'///////////////////////////////////////////////////////////////////////////////////////////////////////'/////////////////////////////////////////////////////////////////////////////////////////////////////// if Request.form("islem") = "gonder" thendim strAd, strSoyad, strIsim, strGonderenMail, strKonu, strMesaj strAd = Request.Form("ad") strSoyad = Request.Form("soyad") strIsim = strAd & " " & strSoyad strGonderenMail = Request.Form("mail") strKonu = Request.Form("konu") strMesaj = Request.Form("mesaj")dim strHtml strHtml = strHtml & "<html>" & vbNewLine strHtml = strHtml & "<head>" & vbNewLine strHtml = strHtml & "<title>Html Mail</title>" & vbNewLine strHtml = strHtml & "<meta ********=""Content-Type"" *****""text/html; charset=iso-8859-9"">" & vbNewLine strHtml = strHtml & "</head>" & vbNewLine strHtml = strHtml & "<body leftmargin=""0"">" & vbNewLine strHtml = strHtml & "<table align=""center"" border=""0"" cellspacing=""0"" cellpadding=""0"" width=""100%"">" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td> " & vbNewLine strHtml = strHtml & " <table align=""center"" border=""0"" cellspacing=""0"" cellpadding=""0"" width=""779"">" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td><a href=""" & strSiteAdres & "default.asp""><img src=""" & strSiteAdres & strSiteResimDizin & "/banner.jpg"" border=""0"" alt="""" height=""175"" width=""779""></a></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td> " & vbNewLine strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""5"" border=""0"" /></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td>" & vbNewLine strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_ust_sol.gif"" width=""35"" height=""20""></td>" & vbNewLine strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_ust_ortif"" width=""100%"" height=""20""></td>" & vbNewLine strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_ust_sag.gif"" width=""15"" height=""20""></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_sol.gif"" width=""35""><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""35"" height=""1"" border=""0"" /></td>" & vbNewLine strHtml = strHtml & " <td>" & vbNewLine strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""20"" border=""0"" /></td> " & vbNewLine strHtml = strHtml & " </tr> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td align=""center""><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:bold; color: #ffcc66;"">" & strKonu & "</font></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""20"" border=""0"" /></td> " & vbNewLine strHtml = strHtml & " </tr> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td>" & vbNewLine strHtml = strHtml & " <table align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""90%""> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td>" & vbNewLine strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td width=""50%"" style=""text-indent:30px""><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:notmal; color: #000000;"">" & strIsim & "</font></td>" & vbNewLine strHtml = strHtml & " <td align=""right"" width=""50%""><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:notmal; color: #000000;"">" & Day(Now) & " " & Month(Now) & " " & Year(Now) & "</font></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""20"" border=""0"" /></td> " & vbNewLine strHtml = strHtml & " </tr> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td>" & vbNewLine strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td style=""text-align:justify; text-indent:30px""><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:normal; color: #000000;"">" & strMesaj & "</font></td></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""20"" border=""0"" /></td> " & vbNewLine strHtml = strHtml & " </tr> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td>" & vbNewLine strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td width=""50%""><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:notmal; color: #000000;"">" & Request.ServerVariables("REMOTE_ADDR") & "</font></td>" & vbNewLine strHtml = strHtml & " <td align=""right"" width=""50%""><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:bold; color: #ffcc66;""></font><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:notmal; color: #000000;"">" & strMail & "</font></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""20"" border=""0"" /></td> " & vbNewLine strHtml = strHtml & " </tr> " & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_sag.gif"" width=""15""><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""15"" height=""1"" border=""0"" /></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_alt_sol.gif"" width=""35"" height=""20""></td>" & vbNewLine strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_alt_ortif"" width=""100%"" height=""20""></td>" & vbNewLine strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_alt_sag.gif"" width=""15"" height=""20""></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""5"" border=""0"" /></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td> " & vbNewLine strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td bgcolor=""#ff9900"" height=""24"" style=""FILTER: progidXImageTransform.Microsoft.Gradient(gradien tType=0,startColorStr=#ffcc00,endColorStr=#ff9900) ;""> " & vbNewLine strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine strHtml = strHtml & " <tr> " & vbNewLine strHtml = strHtml & " <td width=""220""><span style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff;""> Domain.Com © 2006</span></td> " & vbNewLine strHtml = strHtml & " <td align=""center""><a href=""" & strSiteAdres & "default.asp"" rel="nofollow" target=""_blank"" style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff; text-decoration: none;"">Ana Sayfa</a> <font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff;"">\|</font> <a href=""" & strSiteAdres & "hakkimizda.asp"" rel="nofollow" target=""_blank"" style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff; text-decoration: none;"">Hakkımızda</a> <font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff;"">\|</font> <a href=""" & strSiteAdres & "linkler.asp"" rel="nofollow" target=""_blank"" style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff; text-decoration: none;"">Linkler</a> <font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff;"">\|</font> <a href=""" & strSiteAdres & "konuk.asp"" rel="nofollow" target=""_blank"" style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff; text-decoration: none;"">Konuk Defteri</a> <font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff;"">\|</font> <a href=""" & strSiteAdres & "iletisim.asp"" rel="nofollow" target=""_blank"" style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff; text-decoration: none;"">İletişim</a></td> " & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " <tr>" & vbNewLine strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""10"" border=""0"" /></td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & " </table>" & vbNewLine strHtml = strHtml & " </td>" & vbNewLine strHtml = strHtml & " </tr>" & vbNewLine strHtml = strHtml & "</table>" & vbNewLine strHtml = strHtml & "</body>" & vbNewLine strHtml = strHtml & "</html>" & vbNewLine call SendMail(strHtml, strAliciAd, strMail, strIsim, strGonderenMail, strKonu, strMailBilesen, strMailSmtp, blnHtmlMail)end if Response.Redirect strDonusSayfasi%> inc_mail.asp** Kod: <%function SendMail(strMailIcerik, strAliciAd, strAliciMail, strGonderenAd, strGonderenMail, strKonu, strMailKomponent, strSmtpAdres, blnHtmlMail)Dim objCDOSYSMailDim objCDOMailDim objJMailDim objAspEmailDim objAspMail'if blnHtmlMail = True then'else'end ifselect case strMailKomponentcase "CDOSYS" set objCDOSYSMail = server.createobject("CDO.Message") objCDOSYSMail.From = strGonderenAd & " <" & strGonderenMail & ">" objCDOSYSMail.To = strAliciAd & " <" & strAliciMail & ">"'objCDOSYSMail.Cc = ""'objCDOSYSMail.BCC = "" objCDOSYSMail.Subject = strKonuif blnHtmlMail = True then objCDOSYSMail.HTMLBody = strMailIcerikelse objCDOSYSMail.TextBody = strMailIcerikend ifdim objConfigSet objConfig = Server.CreateObject("CDO.Configuration")'objCDOSYS Mail.Importance = 1 '(0=Low, 1=Normal, 2=High)'objCDOSYSMail.AddAttachment = "file://G:\_DDDDDD\_binboga\ftp\stil.css" 'objCDOSYSMail.AttachFile "G:\_DDDDDD\_binboga\ftp\stil.css", "stil.css"'objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup" objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '1=SendUsingPickupDirectory objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpAdres objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '1=cdoBasic objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60'objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mail@domain.com"'objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"objConfig.Fields.UpdateSet objCDOSYSMail.Configuration = objConfig objCDOSYSMail.SendSet objConfig = Nothingset objCDOSYSMail = Nothingcase "CDONTS"set objCDOMail = Server.CreateObject("CDONTS.NewMail")with objCDOMail .From = strGonderenAd & " <" & strGonderenMail & ">" .To = strAliciAd & " <" & strAliciMail & ">" .Subject = strKonu .Body = strMailIcerikif blnHtmlMail = True then .BodyFormat = 0else .BodyFormat = 1end if .MailFormat = 0 .Importance = 1 .Sendend withset objCDOMail = Nothingcase "Jmail"set objJMail = Server.CreateObject("JMail.SMTPMail")with objJMail .ServerAddress = strSmtpAdres .Sender = strGonderenMail .SenderName = strGonderenAd .AddRecipient strAliciMail .Subject = strKonuif blnHtmlMail = True then .HTMLBody = strMailIcerikelse .Body = strMailIcerikend if .Priority = 3if NOT strSmtpAdres = "" then .Executeend withset objJMail = Nothingcase "AspEmail"set objAspEmail = Server.CreateObject("Persits.MailSender")with objAspEmail .Host = strSmtpAdres .From = strGonderenMail .FromName = strGonderenAd .AddAddress strAliciMail .Subject = strKonuif blnHtmlMail = True then .IsHTML = Trueend if .Body = strMailIcerikif NOT strSmtpAdres = "" then .Sendend withset objAspEmail = Nothingcase "AspMail"set objAspMail = Server.CreateObject("SMTPsvg.Mailer")with objAspMail .RemoteHost = strSmtpAdres .FromAddress = strGonderenMail .FromName = strGonderenAd .AddRecipient " ", strAliciMail .Subject = strKonuif blnHtmlMail = True then .ContentType = "text/HTML"end if .BodyText = strMailIcerikif NOT strSmtpAdres = "" then .SendMailend withset objAspMail = Nothingend Select SendMail = Trueend Function%>

Seçenekler
Yazdırılabilir şekli göster Bu sayfayı e-postayla gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Cerrahi Uygulamalar	Stripling	Aile Evlilik ve Çocuklar	0	16-10-2008 17:22
ircservices KuruLumu (ResimLi) - Türkce diL ve Authcode Status AnLatımı	buSra	Servisler	1	01-07-2008 00:37
Konu acmadan önce Okuyun	Crazy	Geyik	0	13-05-2008 20:50
Bu bölüme konu açacakların dikkatine	Crazy	Sunuculardaki Son Gelişmeler	0	13-05-2008 20:24
Bu bölüme konu acacaklarin Dikkatine	Crazy	Sunucu Duyuruları - Görev / Yetki Dağıtımları	0	13-05-2008 20:22

16-10-2008	#7 (permalink)
Stripling Op (@) Giriş Tarihi: 15-10-2008 Mesajlar: 404 İtibar Gücü: 4 Rep Puanı : 10 Rep Derecesi :	Konu : Veritabanından Rastgele Veri Okumak. Seviye : Basit Kaynak Dosyalar : http://rapidshare.com/files/996201/randomize.rar.html Kod: <% @ Language=VBScript CodePage="1254" %><% strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb") set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn Response.Write "<table border=""1"" cellpadding=""0"" cellspacing=""0"" width=""250"">" & vbNewLine set objRs=server.createobject("adodb.recordset") strSql = "select * from tblSozler" objRs.open strSql, objConn, 1, 3 *randomize intRastgelenKayit = Int((objRs.RecordCount Rnd)+ 0) objRs.Move(intRastgelenKayit) Response.Write "<tr>" & vbNewLine & _ "<td height=""100"" valign=""top"">" & objRs("soz") & "</td>" & vbNewLine & _ "</tr>" & vbNewLine & _ "<tr>" & vbNewLine & _ "<td align=""right"">" & objRs("yazar") & "</td>" & vbNewLine & _ "</tr>" & vbNewLine objRs.closeset objRs = Nothing Response.Write "</table>" & vbNewLine objConn.closeset objConn = Nothing%> Konu : Recursion İşlemi Seviye : Üst Düzey Kaynak Dosyalar : http://rapidshare.com/files/6087434/recursion.rar.html Asp ile Kategoriler içeren Shop, Makale, Forum vb. script yazmak ve bunu profesyonel bir veritabanı mimarisi, sonsuz kategori ve en son sistem bir uygulama yapmak istiyorlar ise mutlaka bu işlemi kullanmalıdırlar. hipernex.com, hepsiburada.com ve bunlar gibi sitelerin kodlamaları asp.NET ile yapılmıştır ancak veritabanı mimarisi bu şekildedir... Bu konuda TR çok fazla bir kaynak bulamazsınız. Bu konuda araştırmak kafa yormanız için bu bir başlangıç olsun... Ekran çıktışı şöyle; Elbette bu çok farklı şekillerde kullanılır ben en basit halini yaptım. Orjinal Boyutunda Açmak İçin ( 1020x1428 ve 153KB ) Buraya Tıklayın Kod: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title></title><style type="text/css"><!-- body { margin:0px; padding:0px;}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><meta ******="Content-Type" *****"text/html; charset=iso-8859-9"></head><body><table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td align="center"> <table border="0" cellpadding="0" cellspacing="0" width="779"><%dim strConn strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn subRecursive 0, 0** objConn.Close Set objConn= Nothing %> </table> </td> </tr> </table></body></html><%sub subRecursive(ParentID, intLevel)dim objRsdim strSql strSql = "SELECT KATEGORI_ID, KATEGORI_AD FROM tblKategori WHERE KATEGORI_UST_ID = " & ParentID set objRs = objConn.Execute(strSql) if Not objRs.EOF then do while Not objRs.EOF Response.Write " <tr>" & vbNewLine & _ " <td><img src=""bosluk.gif"" border=""0"" width=""" & 25 * intLevel & """ height=""1""><a href=""01.asp?id=" & objRs("KATEGORI_ID") & """ class=""link_01"">" & objRs("KATEGORI_AD") & "</a></td>" & vbNewLine & _ " </tr>" & vbNewLine subRecursive objRs("KATEGORI_ID"), intLevel + 1 objRs.MoveNextloopend if if Not objRs Is Nothing then objRs.Closeend ifset objRs = Nothing end sub%>

16-10-2008	#8 (permalink)
Stripling Op (@) Giriş Tarihi: 15-10-2008 Mesajlar: 404 İtibar Gücü: 4 Rep Puanı : 10 Rep Derecesi :	Konu : Dinamik Haber Başlıkları (Asp+JavaScript) Seviye : Orta Düzey Kaynak Dosyalar : http://rapidshare.com/files/6152754/...klari.rar.html Görünüm Kod: <html><head><title>haber</title><meta ********="Content-Type" ******"text/html; charset=iso-8859-9" /><style type="text/css"><!-- a.Link_01:link { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:bold; color: #FF9900; text-decoration: none}a.Link_01:visited { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:bold; color: #FF9900; text-decoration: none}a.Link_01:active { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:bold; color: #FF9900; text-decoration: none}a.Link_01:hover { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:bold; color: #CB2300; text-decoration: underline}.baslik{ color: #FF9900; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 13px; font-weight: bold}.yazi_01 { font-family: Verdana, sans-serif, Helvetica, Arial; font-size: 10px; line-height: 16px;}.yazi_02 { color: #CB2300; font-family: Verdana, sans-serif, Helvetica, Arial; font-size: 14px; }--></style><script type="text/javascript"><!--function hide(divID){ document.getElementById(''+divID+'').style.display = 'none';}function displayCatDiv(divID){ document.getElementById(''+divID+'').style.display = 'block';}// --></script></head><body><table border="1" cellpadding="0" cellspacing="0" width="550"><%dim strConn strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb") '---- CursorTypeEnum Values ----Const adOpenForwardOnly = 0'---- LockTypeEnum Values ----Const adLockReadOnly = 1'---- CommandTypeEnum Values ----Const adCmdText = &H0001'---- GetRowsOptionEnum Values ----Const adGetRowsRest = -1set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn strSql = "Select From tblHaber"set objRs = Server.CreateObject("ADODB.Recordset") objRs.open strSql, objConn, adOpenForwardOnly, adLockReadOnly, adCmdText if objRs.EOF then intToplam = ""else arrTumVeriler = objRs.GetRows(adGetRowsRest) intToplam = UBound(arrTumVeriler,2)end if objRs.Closeset objRs = nothingif intToplam <> "" then intAlan01 = 0 intAlan02 = 1 intAlan03 = 2 intAlan04 = 3 intAlan05 = 4 Response.Write " <tr>" & vbNewLine & _ " <td height=""25"" class=""baslik"">"for intSayac = 0 to intToplamif intSayac <> 0 then strStil = "none"else strStil = "block" end if Response.Write "<div id=""tits" & intSayac & "-manset"" style=""DISPLAY: " & strStil & """>" & arrTumVeriler(intAlan02, intSayac) & "</div>" & vbNewLinenext Response.Write " </td>" & vbNewLine & _ " </tr>" & vbNewLine & _ " <tr>" & vbNewLine & _ " <td>" & vbNewLine & _ " <table border=""1"" cellpadding=""0"" cellspacing=""0"" width=""550"">" & vbNewLine & _ " <tr>" & vbNewLine & _ " <td valign=""top"" width=""300"">" & vbNewLine & _ " <table border=""1"" cellpadding=""0"" cellspacing=""0"" width=""100%"">" & vbNewLine & _ " <tr>" & vbNewLine & _ " <td width=""300"" height=""250"">" & vbNewLinefor intSayac = 0 to intToplamif intSayac <> 0 then strStil = "none"else strStil = "block" end if Response.Write " <div id=""tits" & intSayac & "-imaj"" style=""DISPLAY: " & strStil & """><img src=""resimler/" & arrTumVeriler(intAlan05, intSayac) & """ width=""300"" height=""250"" border=""1""></div>" & vbNewLinenext Response.Write " </td>" & vbNewLine & _ " </tr>" & vbNewLine & _ " <tr>" & vbNewLine & _ " <td class=""yazi_01"">" & vbNewLine for intSayac = 0 to intToplamif intSayac <> 0 then strStil = "none"else strStil = "block" end if Response.Write " <div id=""tits" & intSayac & "-spot"" style=""DISPLAY: " & strStil & """>" & arrTumVeriler(intAlan03, intSayac) & "</div>" & vbNewLinenext Response.Write " </td>" & vbNewLine & _ " </tr>" & vbNewLine & _ " </table>" & vbNewLine & _ " </td>" & vbNewLine%><script type="text/javascript"><!--function displayDiv(divID){<%for intSayac = 0 to intToplam Response.Write "hide('tits" & intSayac & "-manset');hide('tits" & intSayac & "-spot');hide('tits" & intSayac & "-imaj');" & vbNewLinenext %> document.getElementById('tits'+divID+'-manset').style.display = 'block'; document.getElementById('tits'+divID+'-spot').style.display = 'block'; document.getElementById('tits'+divID+'-imaj').style.display = 'block';}// --></script><% Response.Write " <td valign=""top"" width=""250"">" & vbNewLine & _ " <table border=""1"" cellpadding=""0"" cellspacing=""0"" width=""100%"">" & vbNewLine & _ " <tr>" & vbNewLine & _ " <td align=""center"" class=""yazi_02""><b>Haberler</b></td>" & vbNewLine & _ " </tr>" & vbNewLinefor intSayac = 0 to intToplamif intSayac <> 0 then strStil = "none"else strStil = "block" end if Response.Write " <tr>" & vbNewLine & _ " <td height=""20""> <a href=""urun.asp?id=" & arrTumVeriler(intAlan01, intSayac) & """ onmouseover=displayDiv(" & intSayac & ") class=""Link_01"">" & arrTumVeriler(intAlan02, intSayac) & "</a></td>" & vbNewLine & _ " </tr>" & vbNewLinenext Response.Write " </table>" & vbNewLine & _ " </td>" & vbNewLine & _ " </tr>" & vbNewLine & _ " </table>" & vbNewLine & _ " </td>" & vbNewLine & _ " </tr>" & vbNewLine else Response.Write " <tr>" & vbNewLine & _ " <td>Kayıt Yok!</td>" & vbNewLine & _ " </tr>" & vbNewLineend if objConn.Closeset objConn = Nothing%> </table></body></html> Konu : Anket Seviye : Basit Kaynak Dosyalar : http://rapidshare.com/files/6153939/anket.rar.html Anlaşılmasının kolay olması için çok basit mantık kullanılarak oluşturuldu. Oy verme sayfası Sonuç sayfası Kod: <%dim strConn strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("anket.mdb")set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn set objRs = Server.CreateObject("ADODB.Recordset") strSql = "SELECT TOP 1 * FROM tblAnket ORDER BY anket_tarihi DESC"objRs.open strSql, objConn, 3, 3 intAnketID = objRs("anket_id") strAnketSorusu = objRs("anket_sorusu")If Request.QueryString("islem") = "true" then strSql = "UPDATE tblSecenek SET secenek_oy = secenek_oy + 1 WHERE secenek_id= " & Request.QueryString("id") & ";"If Int(Request.Cookies("anket")("id")) <> intAnketID then objConn.Execute strSql Response.Cookies("anket").Expires = Now() + 7 Response.Cookies("anket")("id") = intAnketID Response.write "Teşekkürler"End ifEnd if strSql = "SELECT * FROM tblSecenek WHERE anket_id = " & intAnketIDset objRsSecenek = Server.CreateObject("ADODB.Recordset") objRsSecenek.Open strSql, objConn, 3, 3 intToplam = 0While Not objRsSecenek.EOF intToplam = intToplam + objRsSecenek("secenek_oy") objRsSecenek.MoveNextWend objRsSecenek.MoveFirstIf Request.QueryString("sonuc") = "true" OR Request.QueryString("islem") = "true" OR cInt(Request.Cookies("anket")("id")) = intAnketID then If intToplam = 0 then Response.write "sonuçlar"Else%><table width="250"> <tr> <td colspan="3"><%=strAnketSorusu%></td> </tr><%while not objRsSecenek.EOF intToplamOy = (objRsSecenek("secenek_oy") / intToplam) * 100%> <tr> <td><%=objRsSecenek("secenek")%></td> <td width='100'><img src='resimler/anket.gif' height='5' width='<%=Round(intToplamOy,0)%>'></td> <td><%=Round(intToplamOy,1)%> %</td> </tr><% objRsSecenek.movenextwend %></table><br><% Response.write intToplam & " oy"End IfElse %><table width="250"><form name="poll" action="anket.asp?sonuc=true" method="get"><input type="hidden" name="islem" value="true"> <tr> <td colspan="3"><%=strAnketSorusu%></td> </tr><%while not objRsSecenek.EOF %> <tr> <td><%=objRsSecenek("secenek")%></td> <td><input type="radio" name="id" value="<%=objRsSecenek("secenek_id")%>"></td> </tr><% objRsSecenek.movenextwend%> <tr> <td colspan="2"><input type="submit" value="Gönder"><br><a href="anket.asp?sonuc=true">Sonuçlar</a></td> </tr></form></table><%End if%>

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