Sniper » sayfalama

ASP ile MS Access verilerini sayfalama

Sniper — Tue, 10 Mar 2009 18:23:10 +0000

MS Access veritabanından gelen verileri sayfalamak, MySQL veritabanına oranla çok daha basittir. Bu basitliğin nedeni Recordset nesnesi tarafından desteklenmesinden kaynaklanmaktadır. Bu yazımda sizlere MS Access vertabanından gelen verileri, Recordset nesnesini kullanarak sayfalama konusundan bahsedeceğim. Aşağıdaki kodlardan faydalanmak için sniper.mdb.zip dosyasını indirip kodlarla aynı dizine eklemeniz gerekmektedir. Lafı fazla uzatmadan hemen kodlara giriyorum.

Öncelikle her zaman olduğu gibi değişkenlerimizi tanımlıyoruz, bağlantı ve Recordset nesnemizi açarak sayfalamak istediğimiz verilerimizi çekiyoruz:

^?View Code ASP

Option Explicit
Dim Bag, Rs, i, s, Sayfa, SQL
 
Set Bag = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
 
Bag.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("sniper.mdb")
 
SQL = "SELECT * FROM tblSiteler"
Rs.Open SQL, Bag, 1, 3

Bağlantımızı açtıktan sonra kayıt setimizden veri dönüp dönmediğini kontrol etmeliyiz. Bu sayfalama kodunda kullanacağımız Recordset nesnesinin AbsolutePage özelliğinin hata vermemesi için önemlidir. AbsolutePage özelliği, kayıtsetine hangi sayfada olduğumuzu söyleyen kontrolümüzdür. Kontrolümüzü yaptıktan sonra nesnemizin PageSize özelliğiyle bir sayfada görüntülenecek kayıt sayısını belirleyip tablomuzu sayfamıza çizdiriyoruz.

^?View Code ASP

< %
If Not Rs.EOF Then
  'Bir sayfada gösterilecek kayıt sayısını belirliyoruz
  Rs.PageSize = 2
 
  'Eğer QueryString'de sayfa değişkeni tanımlanmışsa
  If Request.QueryString("s") <> "" Then
    'Bulunduğumuz sayfayı bu değişkenin değeri olarak atayalım
    Sayfa = CInt(Request.QueryString< font>("s"))
  Else
    'Değilse başlangıç sayfa numaramızı 1 olarak atayalım
    Sayfa = 1
  End If
 
  ' ve Kayıtsetimize hangi sayfada bulunduğumuzu söyleyelim.
  Rs.AbsolutePage = Sayfa
%>
<table border"1" bordercolor="#C0C0C0" style="border-collapse:collapse; font:normal normal normal 11px verdana;" width="500">
  <tr>
  <td width="5" bgcolor="#FFFBDF"><b>Sb>td><>
  <td width="245" bgcolor="#FFFBDF"><b>Site Adıb>td>
  <td width="250" bgcolor="#FFFBDF"><b>URL
b>td>
  tr>
table>

Şimdi elimizdekileri verileri, bir sayfada gösterilecek kayıt sayısınca sayfamıza bastıracak olan döngümüzü yazıyoruz:

^?View Code ASP

< %
  i=0
  'Kayıtsetimizi bir sayfada gösterilecek kayıt sayısı adedince döndürelim.
 
  Do While Not Rs.EOF And i<Rs.PageSize
%>
  <tr>
  <td align="center">< %=i+1%>td>
  <td><b>< %=Rs("fldSiteAdi")%>b>td>
  <td><a href="<%=Rs("fldURL")%>" style="color:#0000FF" target="_blank">< %=Rs("fldURL")%>a>td>
  tr>
< %
  i=i+1
  Rs.MoveNext
Loop
%>

Veriler istediğimiz sayıda sayfaya yazıldı. Şimdi sıra sayfa numaralarını linklendirmeye geldi:

^?View Code ASP

  <tr>
  <td colspan="3" align="right">
< %
  ' ve son olarak ta sayfaların linklerini sayfamıza bastıralım.
  If Rs.PageCount > 0 Then
    For s=1 To Rs.PageCount
      Response.Write ""?s=" & s & """>" & s & " "
    Next
  End If
%>
  td>
  tr>
 
< %
  ' Bitti, hayırlı olsun...
End If
%>

Ms Access ile sayfalama işlemi bu kadar basit. Kaliteli sitelerde kullanmanız dileğinde bulunduktan sonra yazımı kodların tamamıyla kapatıyorum…

^?View Code ASP

< %
Option Explicit
Dim Bag, Rs, i, s, Sayfa, SQL
 
Set Bag = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
 
Bag.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("sniper.mdb")
 
SQL = "SELECT * FROM tblSiteler"
Rs.Open SQL, Bag, 1, 3
If Not Rs.EOF Then
 
'Bir sayfada gösterilecek kayıt sayısını belirliyoruz   Rs.
PageSize = 2
 
'Eğer QueryString'de sayfa değişkeni tanımlanmışsa  
If Request.QueryString("s") <> "" Then    
'Bulunduğumuz sayfayı bu değişkenin değeri olarak atayalım     Sayfa =
CInt(Request.QueryString< font>("s"))  
Else    
'Değilse başlangıç sayfa numaramızı 1 olarak atayalım     Sayfa = 1
 
End If
 
' ve Kayıtsetimize hangi sayfada bulunduğumuzu söyleyelim.   Rs.
AbsolutePage = Sayfa
%> <table border"1" bordercolor="#C0C0C0" style="border-collapse:collapse; font:normal normal normal 11px verdana;" width="500">
<tr>
<td width="5" bgcolor="#FFFBDF"><b>Sb>td><>   <td width="245" bgcolor="#FFFBDF"><b>Site Adıb>td>
<td width="250" bgcolor="#FFFBDF"><b>URL
b>td>
tr>
< %
i=0
'Kayıtsetimizi bir sayfada gösterilecek kayıt sayısı adedince döndürelim.
 
Do While Not Rs.EOF And i<Rs.PageSize %>
<tr>
<td align="center">< %=i+1%>td>   <td><b>< %=Rs("fldSiteAdi")%>b>td>
<td><a href="<%=Rs("fldURL")%>" style="color:#0000FF" target="_blank">< %=Rs("fldURL")%>a>td>
tr>
< %
i=i+1
Rs.MoveNext
Loop %>
<tr>
<td colspan="3" align="right"> < %
' ve son olarak ta sayfaların linklerini sayfamıza bastıralım.
If Rs.PageCount > 0 Then
For s=1 To Rs.PageCount
Response.Write ""?s=" & s & """>" & s & " "
Next
End If
%>
td>
tr>
table>
< %
' Bitti, hayırlı olsun...
End If
%>

ASP ile MySQL verilerini sayfalama

Sniper — Tue, 10 Mar 2009 18:22:30 +0000

ASP veya diğer programlama dilleriyle çalışmaya yeni başlayanların sıklıkla karşılaştıkları bir sorundur veri sayfalama. Veritabanına bağlantı kurulur ilk önce. Bu web programlamaya başlangıç için en önemli adım sayılır çoğumuzun gözünde. Daha sonra bağlanılan veritabanından verileri çekip sayfaya bastırılır. Bundan sonra, artık kendimizi web programcısı olarak görmeye başlarız. Zaman ilerledikçe veritabanına eklediğimiz veriler çoğalır, çoğalır… Artık yeni bir sıkıntı peyda olmak üzeredir. VERİ SAYFALAMA! Bu sıkıntıyı gidermek için yazımda sizlere MySQL veritabanındaki verileri, istediğimiz sayıda kayıtlara bölerek sitelerimizde nasıl kullanacağımızı bildiğim kadarıyla anlatacağım. Yazımda yer alan kodların düzgün çalışabilmesi için sniper.zip dosyasını indirip MySQL´e veritabanı olarak eklemeniz gerekmektedir.

İşe değişkenlerimizi tanımlayarak başlayalım:

^?View Code ASP

Dim Bag, Siteler, SQLTop, TopKayit
Dim KayitSayisi, SayfaSayisi, Sayfa, i

Bag = Veritabanımıza bağlantımızı sağlayacak değişken.
Siteler = Kayıtseti değişkeni.
TopKayit = Talep edeceğimiz kriterlere uyan kayıtların toplam sayısını tutan değişken.
KayitSayisi = Bir sayfada gösterilecek kayıt sayısını belirleyeceğimiz değişken.
SayfaSayisi = Talep ettiğimiz verilere ve kayıt sayısına göre toplam kaç sayfa veri oluşacağını tutan değişken.
Sayfa = O anda içinde bulunduğumuz sayfanın numarasını öğreneceğimiz değişken.
i = HTML tablomuzda kayıtların sıra sayılarını yazdıracağımız değişken.

Değişkenlerimizi tanımladıktan sonra sıra geldi bağlantımızı oluşturmaya:

^?View Code ASP

Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open = "DRIVER={MySQL ODBC 3.51 Driver};database=sniper;server=localhost;uid=sniper;password=tuncay;"

Bağlantı string´imizin parametrelerinin alacağı değerler kısaca şöyledir:
database = Bağlantı kuracağımız MySQL veritabanımızın adı.
server = Bağlantı kuracağımız MySQL veritabanımızın bulunduğu server.
uid = Veritabanına ulaşmak için gerekli kullanıcı adı.
password = Kullanıcı adına ait şifre.

Bağlantımızı kurduktan sonra, bir sayfada kaç adet kaydın gösterileceğini KayitSayisi isimli değişkenimizde belirtiyoruz ve hangi sayfada olduğumuzu Sayfa değişkenine atıyoruz:

^?View Code ASP

KayitSayisi = 2
 
'Eğer QueryString´de sayfa değişkeni tanımlanmışsa
If Request.QueryString("s") <> "" Then
  'Bulunduğumuz sayfayı bu değişkenin değeri olarak atayalım
  Sayfa = CInt(Request.QueryString("s"))
Else
  'Değilse başlangıç sayfa numaramızı 1 olarak atayalım
  Sayfa = 1
End If

Önemli değişkenlerimizi de tanımladığımıza göre artık kayıt setimizi oluşturabiliriz. Kayıt setimizi oluşturmadan önce MySQL´de var olan bir kalıptan da kısaca bahsetmek istiyorum: LIMIT. Bu kalıp bize, sorgumuzda dönen kayıtlarından istediğimiz aralıktaki verileri süzerek dönmesini sağlar. Şöyle ki, LIMIT 5,10 şeklinde bir kullanım bize, istediğimiz sorguda dönen verilerin beşincisinden başlayarak 10 tanesinin iletilmesini sağlar. İkinci parametre kullanılmazsa (LIMIT 10 gibi) verilerin sadece ilk 10 tanesi geri döner. Bu da Access sorgularımızda kullandığımız TOP 10 a eşittir. Biz bu kalıbı kullanarak verilerimizi rahatlıkla sayfalayabileceğiz. Şimdi bu kalıbı da kullanarak kayıt setimizi açalım:

^?View Code ASP

Set Siteler = Bag.Execute("SELECT * FROM tblSiteler ORDER BY fldID DESC LIMIT " & (KayitSayisi*Sayfa)-(KayitSayisi) & "," & KayitSayisi)

Yukarıdaki SQL sorgumuz, KayitSayisi değişkeninin değerini “2″, Sayfa değişkeninin değerini de “3″ olarak kabul ettiğimizde aşağıdaki şekilde çıktı verdiğini kabul edebiliriz:

“SELECT * FROM tblSiteler ORDER BY fldID DESC LIMIT 4, 2″

Bu da bize 4. kayıttan itibaren 2 kaydın döndürülmesini istediğimiz anlamına gelmektedir. Kayıt setimizden gerekli kayıtları aldıktan sonra sayfalama linklerini yazdırabilmemiz için gerekli olan, sorgumuza eşit toplam kaç kayıt olduğunu öğrenmeliyiz:

^?View Code ASP

Set SQLTop = Bag.Execute("SELECT COUNT(fldID) FROM tblSiteler")
TopKayit = SQLTop(0)

Verilerimizi sayfamıza yazdırmamız için gerekli tüm hazırlıkları tamamladık. Artık yazdırmaya başlayalım:

^?View Code ASP

< %
If Not Siteler.EOF Then
 
  'HTML tablomuzu oluşturuyoruz.
%>
<table border="1" bordercolor="#C0C0C0" style="border-collapse:collapse; font:normal normal normal 11px verdana;" width="500">
  <tr>
  <td width="5" bgcolor="#FFFBDF"><b>Sb>td>
  <td width="245" bgcolor="#FFFBDF"><b>Site Adıb>td>
  <td width="250" bgcolor="#FFFBDF"><b>URLb>td>
  tr>
< %
  'Tablodaki sıra numarasını belirlemek için değişkenimizi tanımlıyoruz
  i=1
 
  'Talep ettiğimiz kayıtların sonuna kadar...
  Do While Not Siteler.EOF
 
    '... tüm kayıtları sayfamıza bastırıyoruz
%>
  <tr>
  <td align="center">< %=i%>td>
  <td><b>< %=Siteler("fldSiteAdi")%>b>td>
  <td><a href="<%=Siteler("fldURL")%>" style="color:#0000FF" target="_blank">< %=Siteler("fldURL")%>a>td>
  tr>
< %
    'Sıra numarasını 1 arttırıyoruz
    i=i+1
 
    'Kayıtsetimize sonraki kayda geçmesini söylüyoruz
    Siteler.MoveNext
 
    'Yukarıdaki işlemin, verilerin sonuncusuna gelene kadar devam etmesi için döngümüzü çeviriyoruz
Loop
%>
table>

Verilerimizi yazdırdıktan sonra sıra geldi sayfa numaralarını yazdırmaya:

^?View Code ASP

  <tr>
  <td colspan="3" align="right">
< %
  'Toplam kayıt sayısı gösterilecek kayıt sayısından büyükse...
If CInt(TopKayit) > CInt(KayitSayisi) Then
  'Link verilecek kaç sayfamız olduğunu hesaplıyoruz
  SayfaSayisi = CInt(TopKayit) / CInt(KayitSayisi)
  If InStr(1,SayfaSayisi,",",1) > 0 Then SayfaSayisi = CInt(Left(SayfaSayisi,InStr(1,SayfaSayisi,",",1))) + 1
 
  'Ve yine elimizdeki sayfa sayısı 1´den büyükse
  If SayfaSayisi > 1 Then
    'Her sayfa numarası için sayfamıza linkimizi yazdırıyoruz
    For i=1 To SayfaSayisi
      Response.Write ""?s=" & i & """ style=""color:#0000FF"">" & i & " "
    Next
  End If
 
  'Sayfa numarası yazdırma işlemi bitti...
End If
%>
  td>
  tr>

Ve final! Artık tablomuzdaki veriler, sayfalara ayrılmış ve linkleri oluşturulmuş bir şekilde HTML sayfamıza basıldı. Son olarak kodların tamamını yazdıktan sonra yazımı bitiriyorum. Kaliteli sitelerde kullanmanız dileğiyle…

^?View Code ASP

< %
'Her iyi programcı değişken tanımlarmış, ben ilk defa yapıyorum :)
Dim Bag, Siteler, SQLTop, TopKayit
Dim KayitSayisi, SayfaSayisi, Sayfa, i
 
'Bağlantımızı oluşturup açıyoruz
Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open = "DRIVER={MySQL ODBC 3.51 Driver};database=sniper;server=localhost;uid=sniper;password=tuncay;"
 
'Bir sayfada gösterilecek kayıt sayısı
KayitSayisi = 2
 
'Eğer QueryString´de sayfa değişkeni tanımlanmışsa
If Request.QueryString("s") <> "" Then
'Bulunduğumuz sayfayı bu değişkenin değeri olarak atayalım
Sayfa = CInt(Request.QueryString("s"))
Else
'Değilse başlangıç sayfa numaramızı 1 olarak atayalım
Sayfa = 1
End If
 
'Kayıt sayımız ve sayfa numaramıza göre veritabanından verilerimizi talep ediyoruz
Set Siteler = Bag.Execute("SELECT * FROM tblSiteler ORDER BY fldID DESC LIMIT " & (KayitSayisi*Sayfa)-(KayitSayisi) & "," & KayitSayisi)
 
'Veritabanında kriterlerimize uygun kayıtların toplam sayısını alıyoruz
'Bu sayfa numaralarını doğru yazdırabilmemiz için şart
Set SQLTop = Bag.Execute("SELECT COUNT(fldID) FROM tblSiteler")
TopKayit = SQLTop(0)
 
'Eğer veritabanımızdan kayıt dönüyorsa
If Not Siteler.EOF Then
 
'HTML tablomuzu oluşturuyoruz.
%>
<table border="1" bordercolor="#C0C0C0" style="border-collapse:collapse; font:normal normal normal 11px verdana;" width="500">
<tr>
<td width="5" bgcolor="#FFFBDF"><b>Sb>td>
<td width="245" bgcolor="#FFFBDF"><b>Site Adıb>td>
<td width="250" bgcolor="#FFFBDF"><b>URLb>td>
tr>
< %
'Tablodaki sıra numarasını belirlemek için değişkenimizi tanımlıyoruz
i=1
 
'Talep ettiğimiz kayıtların sonuna kadar...
Do While Not Siteler.EOF
 
'... tüm kayıtları sayfamıza bastırıyoruz
%>
<tr>
<td align="center">< %=i%>td>
<td><b>< %=Siteler("fldSiteAdi")%>b>td>
<td><a href="<%=Siteler("fldURL")%>" style="color:#0000FF" target="_blank">< %=Siteler("fldURL")%>a>td>
tr>
< %
'Sıra numarasını 1 arttırıyoruz
i=i+1
 
'Kayıtsetimize sonraki kayda geçmesini söylüyoruz
Siteler.MoveNext
 
'Yukarıdaki işlemin, verilerin sonuncusuna gelene kadar devam etmesi için döngümüzü çeviriyoruz
Loop
 
'Şimdi sayfa sayımız 1'den fazlaysa sayfa sayılarımızı yazdırıyoruz
%>
<tr>
<td colspan="3" align="right">
< %
'Toplam kayıt sayısı gösterilecek kayıt sayısından büyükse...
If CInt(TopKayit) > CInt(KayitSayisi) Then
'Link verilecek kaç sayfamız olduğunu hesaplıyoruz
SayfaSayisi = CInt(TopKayit) / CInt(KayitSayisi)
If InStr(1,SayfaSayisi,",",1) > 0 Then SayfaSayisi = CInt(Left(SayfaSayisi,InStr(1,SayfaSayisi,",",1))) + 1
 
'Ve yine elimizdeki sayfa sayısı 1´den büyükse
If SayfaSayisi > 1 Then
'Her sayfa numarası için sayfamıza linkimizi yazdırıyoruz
For i=1 To SayfaSayisi
Response.Write ""?s=" & i & """ style=""color:#0000FF"">" & i & " "
Next
End If
 
'Sayfa numarası yazdırma işlemi bitti...
End If
%>
td>
tr>
table>
< %
'Artık kodumuzu deneyebiliriz
End If
%>

Javascript ile sayfalama

Sniper — Tue, 10 Mar 2009 18:21:42 +0000

Elinizde çok uzun bir yazı var, bu yazıyı sitenizde yayınlamak istiyorsunuz ama çok uzun olduğu için sitenizin görünümünü bozacak endişesiyle bir türlü ekleyemiyorsunuz. ASP veya PHP gibi dilleri kullanarak bu yazıyı sayfalara bölebilirsiniz fakat bu sefer de her sayfa için sitenin yeniden yüklenmesi gerektiğinden bu durumun kullanıcıyı iteceğini düşündüğünüz için bunu da istemiyorsunuz. O zaman çözüm JavaScript´te. Aşağıdaki fonksiyonu tarif edildiği şekilde kullanacak olursanız, yazınızı istediğiniz boyutta hazırlamış olduğunuz DIV katmanı içine ekleyebilir ve sayfalar arasında tekrar yüklemeye gerek olmadan gezinebilirsiniz. Önce kodumuzun tamamını yazıp daha sonra satır satır ayrıntılarına girelim.

^?View Code JAVASCRIPT

<div id="icerik" style="font:normal normal normal 11px verdana;border:1px solid #000000; width:400px;height:300px;padding:4px">&nbsp;div>
<div id="sayfalar" style="font:normal normal normal 11px verdana;border:1px solid #000000;width:400px;padding:4px;text-align:right">Sayfalar = div>
<script language="JavaScript">
var metin = "Birinci sayfada okunacak yazı İkinci sayfada okunacak yazıÜçüncü sayfada okunacak yazıDördüncü sayfada okunacak yazı"
var bolum = ""
 
function bol(metin) {
bolum = metin.split("")
 
for(i=0;i<bolum .length;i++) {
document.getElementById("sayfalar").innerHTML += "" onclick="sayfaGoster("+(i)+")">"+(i+1)+" "
}
}
 
function sayfaGoster(syf) {
document.getElementById("icerik").innerHTML = bolum[syf]
}
 
bol(metin)
sayfaGoster(0) //Javascript´in saymaya sıfırdan başladığını unutmuyoruz.
 
bolum>script>

Öncelikle ilk iki satırı ele alalım:

^?View Code JAVASCRIPT

1
2

<div id="icerik" style="font:normal normal normal 11px verdana;border:1px solid #000000; width:400px;height:300px;padding:4px">&nbsp;div>
<div id="sayfalar" style="font:normal normal normal 11px verdana;border:1px solid #000000;width:400px;padding:4px;text-align:right">Sayfalar = div>

Buradaki DIV katmanlarının sadece ID özelliklerine dikkat edilmeli. Yazının ekleneceği katmanın ID´si “icerik”, sayfa sayılarının yazdırılacağı katmanın ID´sinin de “sayfalar” olması gereklidir. Diğer tüm görsel değişiklikleri kendi isteğinize göre değiştirebilirsiniz.

Şimdi de scriptimize geçelim:

^?View Code JAVASCRIPT

4 5	var metin = "Birinci sayfada okunacak yazı İkinci sayfada okunacak yazıÜçüncü sayfada okunacak yazıDördüncü sayfada okunacak yazı" var bolum = ""

4. satır işleyiş için çok önemli. Elinizde bulunan yazıya uygulamanız gereken bir kural var. Yazınızı bölmek istediğiniz yerlere “” ayracı koymanız gereklidir. Bu ayraçlar sayesinde yazınız bol() fonksiyonu kullanılarak sayfalara bölünecektir.

5. satırdaki “bolum” isimli değişkenimiz ise bol() fonksiyonu tarafından kullanılacaktır. bol() fonksiyonu, yazımızı belirttiğimiz yerlerden bölecek, bu değişkenimizin veri tipini dizi değişkeni türüne çevirecek ve bulduğu her sayfayı bu değişkenimizin içinde saklayacaktır. Nitekim 8. satırda bu işlem gerçekleşiyor:

^?View Code JAVASCRIPT

8	bolum = metin.split("")

10. satırda bulunan “for” döngüsü, “bolum” değişkeni sayesinde, “sayfalar” katmanına değişkenin dizi sayısınca sayfa linki ekler.

11. satırda eklenen link etiketlerinin “onclick” olaylarında; yazının görüntüleneceği “icerik” katmanında gösterilecek kısımların numaraları sayfaGoster() fonksiyonuna parametre olarak gönderilerek bu fonksiyon tetiklenir ve 12. satırda döngümüzün sınırı belirlenerek kapatılır.

^?View Code JAVASCRIPT

for(i=0;i<bolum .length;i++) {
document.getElementById("sayfalar").innerHTML += "" onclick="sayfaGoster("+(i)+")">"+(i+1)+" "
}
bolum>

15 ve 17. satırlar arasındaki sayfaGoster() fonksiyonu, kendisine parametre olarak gönderilen numarayı alır, “bolum” dizi değişkeninde bu sayıya denk gelen veriyi bulur ve “icerik” katmanının innerHTML özelliği kullanılarak bulunan veri bu katmana yazdırır.

^?View Code JAVASCRIPT

15
16
17

function sayfaGoster(syf) {
document.getElementById("icerik").innerHTML = bolum[syf]
}

Son olarak sayfanın ilk yüklendiğinde sayfalama işleminin yapılabilmesi için scriptimizin bol() fonksiyonunu çağırıp yazımızı böldürmeli ve çıkan sonucun ilk değerini katmanımıza yazdırmalıyız. Bu, kullanıcı sayfayı açtığında ilk sayfayı görmesini sağlamak anlamına geliyor. 19. satırda “metin” değişkenimize atadığımız veriyi bol() fonksiyonu ile işletiyoruz:

^?View Code JAVASCRIPT

19	bol(metin)

Ve 20. satırda da sayfaGoster() fonksiyonu ile elimizdeki ilk değeri “icerik” kısmına yazdırıyoruz (Bunu yapmazsak açılışta “icerik” katmanımız boş görünecektir).

^?View Code JAVASCRIPT

20	sayfaGoster(0) //Javascript´in saymaya sıfırdan başladığını unutmuyoruz.

Artık yazımız istediğimiz boyutlarda ayarlanmış ve istediğimiz yerlerden kesilmiş vaziyette, sayfa yeniden yükleme sorunu olmadan sayfalar arasında anında geçişler yapmaya hazır şekle geldi. İyi yazılarda kullanmanız dileğiyle :)

NOT: Script hem Internet Explorer 6.0´da hem de Mozilla Firefox 1.0.4´te denenmiş olup herhangi bir hataya rastlanmamıştır. Scriptin düzgün çalışabilmesi için gerekli katmanların mutlak surette sayfaya eklenmiş olması, farklı isimler kullanılacaksa script kodu içerisinde gerekli yerlerin değiştirilmesi gerekmektedir.