ASP ile Kayıtları Sayfalamak
KAYITLARI SAYFALAMAK !
Mesela bir ziyaretçi defteri hazırlıyorsunuzYok yok boş verin ziyaretçi defterini daha profesyonel bir şeyler olsun… Mesela büyük bir şirketin Internet sitesini hazırlıyorsunuzVe bu site de yüzlerce ürün varHepsini aynı sayfada vermeniz kullanıcı açısından ve tasarım olarak can sıkıcı bir olaydırÜrünleri sayfalara bölerek vermek en doğrusu olacaktırZaten çoğu sitede böyle yapıyorMuhakkak örneklerini görmüşsünüzdür Sayfanın en altında 1 2 3 4 gibi numaralar olur ve bu numaralara tıkladığınız zaman aslında aynı sayfa olan fakat bölünmüş diğer küçük sayfalara ulaşırsınızPeki nasıl yapılır bu olay? İşte fazla uzatmadan bu sorunun cevabını vermeye çalışalım…
Başlamadan önce;
Adı “veritabanimmdb” olan bir Access dosyamızın olduğunu ve bu veritabanımızın içerisinde de “Tablom” adında bir tablomuzun olduğunu varsayıyorumİşte tablomuzda da 80-90 adet kayıt olsunBizde bunları parçalayarak 8-9 sayfa haline getirelim
Aşağıdaki kodları inc_baglantimasp olarak kaydedinBöylece her dosya için ayrı ayrı bu kodları yazmak zorunda kalmazsınız
inc_baglantiasp
<%
'veritabanimizi mevcut klasörler içerisinden sanal olarak
'adresini belirtelim
Sanal_Yol="Veritabani_Klasoru/veritabanimmdb"
Veri_Yolu=ServerMappath(Sanal_Yol)
' veritabanimiza iki sekilde baglanabiliriz
' MicrosoftJet sürücüsü ve Access sürücüsü kullanarak
' Asagida her iki sininde örnekleri mevcut
' Ben jet baglantisinin daha hizli olduguna inandigimdan onun kullanimini
' Tercih ediyorum
' Eger siz Access sürücüsünü kullanmak isterseniz
' Jet baglantisi nin altinda bulunan
' Tur 'ün önüne " ' " (Tek tirnak) isaretini ekleyip Access tipindeki
' Tur ün Tek tirnak ' isaretini kaldirmalisiniz
'Jet baglantisi
Tur = "Provider=MicrosoftJetOLEDB40 ;
Persist Security Info=False; Data Source=" & Veri_yolu
'Accsess Sürücüsü ile baglanti
'Tur = "DRIVER={Microsoft Access Driver (*mdb)};DBQ=" & Veri_yolu
'baglanti nesnemizi olusturalim
Set Baglanti=ServerCreateObject( "ADODBConnection" )
'Baglantimizi seçtigimiz sürücüye göre açalim
BaglantiOpen ( Tur )
%>
KAYITLARI SAYFALAMAK !
Mesela bir ziyaretçi defteri hazırlıyorsunuzYok yok boş verin ziyaretçi defterini daha profesyonel bir şeyler olsun… Mesela büyük bir şirketin Internet sitesini hazırlıyorsunuzVe bu site de yüzlerce ürün varHepsini aynı sayfada vermeniz kullanıcı açısından ve tasarım olarak can sıkıcı bir olaydırÜrünleri sayfalara bölerek vermek en doğrusu olacaktırZaten çoğu sitede böyle yapıyorMuhakkak örneklerini görmüşsünüzdür Sayfanın en altında 1 2 3 4 gibi numaralar olur ve bu numaralara tıkladığınız zaman aslında aynı sayfa olan fakat bölünmüş diğer küçük sayfalara ulaşırsınızPeki nasıl yapılır bu olay? İşte fazla uzatmadan bu sorunun cevabını vermeye çalışalım…
Başlamadan önce;
Adı “veritabanimmdb” olan bir Access dosyamızın olduğunu ve bu veritabanımızın içerisinde de “Tablom” adında bir tablomuzun olduğunu varsayıyorumİşte tablomuzda da 80-90 adet kayıt olsunBizde bunları parçalayarak 8-9 sayfa haline getirelim
Aşağıdaki kodları inc_baglantimasp olarak kaydedinBöylece her dosya için ayrı ayrı bu kodları yazmak zorunda kalmazsınız
inc_baglantiasp
<%
'veritabanimizi mevcut klasörler içerisinden sanal olarak
'adresini belirtelim
Sanal_Yol="Veritabani_Klasoru/veritabanimmdb"
Veri_Yolu=ServerMappath(Sanal_Yol)
' veritabanimiza iki sekilde baglanabiliriz
' MicrosoftJet sürücüsü ve Access sürücüsü kullanarak
' Asagida her iki sininde örnekleri mevcut
' Ben jet baglantisinin daha hizli olduguna inandigimdan onun kullanimini
' Tercih ediyorum
' Eger siz Access sürücüsünü kullanmak isterseniz
' Jet baglantisi nin altinda bulunan
' Tur 'ün önüne " ' " (Tek tirnak) isaretini ekleyip Access tipindeki
' Tur ün Tek tirnak ' isaretini kaldirmalisiniz
'Jet baglantisi
Tur = "Provider=MicrosoftJetOLEDB40 ;
Persist Security Info=False; Data Source=" & Veri_yolu
'Accsess Sürücüsü ile baglanti
'Tur = "DRIVER={Microsoft Access Driver (*mdb)};DBQ=" & Veri_yolu
'baglanti nesnemizi olusturalim
Set Baglanti=ServerCreateObject( "ADODBConnection" )
'Baglantimizi seçtigimiz sürücüye göre açalim
BaglantiOpen ( Tur )
%>