Sniper » ASP

Sniper » ASP http://tuncay.kinali.net Hafızamın bir kısmı Wed, 24 Feb 2010 11:03:31 +0000 http://wordpress.org/?v=2.8.4 en hourly 1 IIS7′de ASP ile MS Access Veritabanına Bağlanma http://tuncay.kinali.net/iis7de-asp-ile-ms-access-veritabanina-baglanma.html http://tuncay.kinali.net/iis7de-asp-ile-ms-access-veritabanina-baglanma.html#comments Wed, 06 May 2009 18:43:27 +0000 Sniper http://tuncay.kinali.net/?p=78

IIS7′de, ASP ile MS Access veritabanına bağlantı kurulmak istendiğinde “Microsoft JET Database Engine hata ‘80004005′” koduyla “Belirtilmemiş hata” oluşur. Bu hataya, ilgili Uygulama Havuzuna kullanıcı profilinin yüklenmesi neden olur. Bu sorunu ortadan kaldırmak için 2 farklı yöntem izlenebilir.

YÖNTEM 1:

IIS’i açın.
Uygulama Havuzları‘na tıklayın.
Sağdan ilgili uygulama havuzuna sağ tıklayın ve “Gelişmiş Ayarlar“ı seçin.
Açılan pencerede “İşlem Modeli” başlığı altındaki “Kullanıcı Profilini Yükle” seçeneğinin değerini “False” olarak değiştirin.
“Tamam” butonuna tıklayarak pencereyi kapatın.
Uygulama Havuzuna sağ tıklayıp “Durdur“a tıklayın.
Tekrar sağ tıklayıp “Başlat“a tıklayın.
İşlem bitmiştir, çalışmayan sayfanızı refresh edebilirsiniz.

YÖNTEM 2:

Win+R kısayoluyla “Çalıştır” ekranını açın.
“cmd” yazıp komut satırını çalıştırın.
Aşağıda yazılı koddaki “[name='DefaultApplicationPool']” değerini kendi Uygulama Havuzunuza göre ayarlayın, komut satırına kopyalayın ve enterlayın.
“Değişiklikler uygulandı” mesajı aldıysanız IIS’i ( ya da en azından Uygulama Havuzunu) restart edin.

^?View Code BASH

%windir%\system32\inetsrv\appcmd set config /section:applicationPools /[name='DefaultAppPool'].processModel.loadUserProfile:false

]]> http://tuncay.kinali.net/iis7de-asp-ile-ms-access-veritabanina-baglanma.html/feed 0 ASP Dosyalarınızı DLL’e çevirin http://tuncay.kinali.net/asp-dosyalarinizi-dlle-cevirin.html http://tuncay.kinali.net/asp-dosyalarinizi-dlle-cevirin.html#comments Tue, 10 Mar 2009 18:23:50 +0000 Sniper http://kinali.net/?p=10 Çoğumuz yazdığımız ASP kodlarını yetkisiz kişilerden saklamak isteriz. Özellikle bir sistem üzerinde oldukça yoğun bir çalışma yaptıktan sonra ortaya çıkardığımız eserin kodlarının başkaları tarafından kullanılmasını engellemek için çeşitli güvenlik önlemleri almak isteriz. Bu yazıda güvenlik önlemlerine ek olarak elimden geldiğince ASP dosyalarımızı DLL olarak kaydetmeyi ve kodlarımızı gizlemeyi anlatmaya çalışacağım.

Kodlarımızı DLL haline getirmek için elimizde iki şeyin olması kâfi. Birincisi bir metin editörü (notepad bile yeter) ikincisi ise Visual Basic 6.0. Malzemelerimiz hazırsa tarifimize geçelim. Öncelikle basit bir ASP sayfası oluşturalım. Benim örneğim altta, siz kafanıza göre birşeyler karalayabilirsiniz.

^?View Code ASP

< %
Response.Write "<html><head><title>ASP kodlarını DLL üzerinden çalıştırma denemesi</title>"
Response.Write "</head><body><font color=""#FF0000"" size=2 face=""trebuchet ms"">"
Response.Write "Bu sayfa bir DLL dosyasından türetilmiştir.</font></body>"
%>

Bu sayfamıza herhangi bir isim vererek şimdilik bir kenara kaydedelim. Bu haliyle kullanmayacağız ama yine de baştan hazırlayalım dedim. Şimdi Visual Basic programımızı DLL oluşturacak şekilde açalım. Bunun için izlememiz gereken yol şöyle:

Visual Basic programını açıp File menüsünden New’i tıklayın.
Açılan pencereden ActiveX DLL seçeneğini işaretleyip OK’a tıklayın.
Projemize ASP nesnelerini eklemek için Project menüsünden References seçeneğine tıklayın.
Açılan pencereden Microsoft Active Server Pages Object Library’i bulup işaretleyin ve OK’a tıklayın.

Projemize bu şekilde ASP desteğini eklemiş olduk. Şimdi sıra geldi kodlarımızı kişiselleştirmeye. Bu aşamada istersek kodları kendi dilimize bile çevirebiliriz. (Ben biraz denedim ama sanırım pek uymadı)

^?View Code ASP

'Buradaki Türkçe isimler tamamen sizin inisiyatifinize kalmış.
Private Baglam As ScriptingContext
Private Uygulama As Application
Private Istek As Request
Private Cevap As Response
Private Sunucu As Server
Private Oturum As Session
 
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
    Set Baglam = PassedScriptingContext
    Set Uygulama = Baglam.Application
    Set Istek = Baglam.Request
    Set Cevap = Baglam.Response
    Set Sunucu = Baglam.Server
    Set Oturum = Baglam.Session
End Sub
 
Public Sub OnEndPage()
    Set Baglam = Nothing
    Set Uygulama = Nothing
    Set Istek = Nothing
    Set Cevap = Nothing
    Set Sunucu = Nothing
    Set Oturum = Nothing
End Sub

Kodlarımızı yazdıktan sonra projemize ve sınıfımıza birer isim verelim. Bu kısım önemlidir çünkü örnek sayfamızı çalıştırdığımızda oluşturduğumuz bu DLL dosyasını kullanabilmek için nesne oluştururken bu isimler kullanılır (ProjeAdı.SınıfAdı). Bu yazımda ben proje adımı “ASPden“, sınıf adımı ise “DLLye” olarak belirledim. Bunların ne olacağı tamamen size kalmış. Önce projemize bir isim verelim ve tekrar Project menüsüne dönelim ve Project1 Properties menüsüne tıklayalım. (Eğer buraya gelmeden önce projenizin ismini değiştirdiyseniz sorun yok ama buna rağmen tekrar değiştirmek isterseniz bu menü “ProjenizinAdı Properties” olarak görünür.)

Açılan pencereden Project Name kutucuğuna istediğimiz ismi yazıyoruz (Ben ASPden demiştim.) ve Tamam‘a tıklıyoruz. Projemizin artık bir adı var. Şimdi sıra sınıfımızı adlandırmaya geldi. Bunun için çalışma sayfamıza geri dönüyoruz ve sağ tarafta Properties – Class1 başlıklı pencereyi buluyoruz. (Eğer buraya gelmeden de sınıfınızın ismini değiştirdiyseniz ve yine de değiştirmek isterseniz bu pencerenin başlığı Properties – Sınıfınızın Adı olarak görünecektir.) Eğer bu pencereyi göremiyorsanız View menüsünden Properties Window seçeneğini tıklayın veya direkt olarak F4 tuşuna basın. Bu pencerede görüntülenen özelliklerden Name yazanın karşısına tıklayıp istediğimiz ismi yazalım. (Ben DLLye yazmıştım.) DLL dosyamız kısmen bitti ama işin en civcivli kısmına geldik: DLL dosyamıza kendi ASP kodlarımızı ekleyeceğiz.

Bunun için yazının başında hazırladığımız ASP dosyamızı açalım. Bir iki ufak değişiklikten sonra bu kodları az önce oluşturduğumuz kodlarla birleştirerek işlemimizi tamamlayacağız. Yukarıdaki kodlarda ASP’nin Response nesnesinin adını ben Cevap olarak değiştirmiştim. Bu nedenle ilk oluşturduğumuz ASP dosyamızdaki Response yazan yerleri Cevap olarak değiştireceğiz ve Deneme isimli bir fonksiyona ekleyeceğiz:

^?View Code ASP

Public Sub Deneme()
    Cevap.Write "<html><head><title>ASP kodlarını DLL üzerinden çalıştırma denemesi</title>"
    Cevap.Write "</head><body><font color=""#FF0000"" size=2 face=""trebuchet ms"">"
    Cevap.Write "Bu sayfa bir DLL dosyasından türetilmiştir.</font></body></html>"
End Sub

Son olarak kafalar karışmadan tüm kodları birleştirerek pişirmek için fırına verelim:

^?View Code ASP

'Buradaki Türkçe isimler tamamen sizin inisiyatifinize kalmış.
Private Baglam As ScriptingContext
Private Uygulama As Application
Private Istek As Request
Private Cevap As Response
Private Sunucu As Server
Private Oturum As Session
 
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
    Set Baglam = PassedScriptingContext
    Set Uygulama = Baglam.Application
    Set Istek = Baglam.Request
    Set Cevap = Baglam.Response
    Set Sunucu = Baglam.Server
    Set Oturum = Baglam.Session
End Sub
 
Public Sub OnEndPage()
    Set Baglam = Nothing
    Set Uygulama = Nothing
    Set Istek = Nothing
    Set Cevap = Nothing
    Set Sunucu = Nothing
    Set Oturum = Nothing
End Sub
 
Public Sub Deneme()
    Cevap.Write "<html><head><title>ASP kodlarını DLL üzerinden çalıştırma denemesi</title>"
    Cevap.Write "</head><body><font color=""#FF0000"" size=2 face=""trebuchet ms"">"
    Cevap.Write "Bu sayfa bir DLL dosyasından türetilmiştir.</font></body></html>"
End Sub

Kodlama kısmı bittiğine göre artık DLL dosyamızı oluşturabiliriz. Bunun için File menüsünden Make ASPden.dll menüsünü tıklıyoruz. (Eğer projemizi farklı isimlendirdiysek bu menü Make Proje Adı.dll olarak görünecektir.) Ben kolaylık olsun diye projemi direkt olarak C: dizininin altında oluşturdum. Kaydedilen DLL dosyasının isminin hiçbir önemi olmadığı için istediğiniz ismi vererek projenizi derleyebilirsiniz (Yine ben Sniper adıyla derledim). DLL dosyamızı oluşturduğumuza göre bunu sistemimize tanıtmanın zamanı geldi. Başlat menüsünden Çalıştır‘ı seçiyoruz ve açılan pencereye regsvr32 C:\Sniper.dll yazıp Enter tuşuna basıyoruz. Eğer karşımıza “DllRegisterServer / C:\Sniper.dll başarıyla gerçekleştirildi.” mesajı gelmediyse bir yerlerde hata yapmış olasılığımız üzerine yazıyı en baştan tekrar okuyoruz. (İnşallah yazım hatası yapmamışımdır da sürekli aynı yeri okumak zorunda kalmazsınız)

Tüm işlemlerimizi tamamladık. Artık derlediğimiz dosyamızı deneyelim değil mi? Eğer yukarıdaki kodları aynen kullandıysanız aşağıdakini de aynen kopyalayıp C:\inetpub\wwwroot klasörüne “asp2dll.asp” ismiyle kaydedin ve sonucu görmek için browser’ınızın adres kısmına http://localhost/asp2dll.asp yazın:

^?View Code ASP

< %
Set Ornek = Server.CreateObject("ASPden.DLLye")
Ornek.Deneme()
%>

Eğer aşağıdaki görüntüyü aldıysanız kendinizi kutlayın.

sonuc

]]> http://tuncay.kinali.net/asp-dosyalarinizi-dlle-cevirin.html/feed 0 ASP ile MS Access verilerini sayfalama http://tuncay.kinali.net/asp-ile-ms-access-verilerini-sayfalama.html http://tuncay.kinali.net/asp-ile-ms-access-verilerini-sayfalama.html#comments Tue, 10 Mar 2009 18:23:10 +0000 Sniper http://kinali.net/?p=8 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>S</b></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 "<a href=""?s=" & s & """>" & s & "</a> "
    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>S</b></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 "<a href=""?s=" & s & """>" & s & "</a> "
Next
End If
%>
</td>
</tr>
</table>
< %
' Bitti, hayırlı olsun...
End If
%>

]]> http://tuncay.kinali.net/asp-ile-ms-access-verilerini-sayfalama.html/feed 0 ASP ile MySQL verilerini sayfalama http://tuncay.kinali.net/asp-ile-mysql-verilerini-sayfalama.html http://tuncay.kinali.net/asp-ile-mysql-verilerini-sayfalama.html#comments Tue, 10 Mar 2009 18:22:30 +0000 Sniper http://kinali.net/?p=6 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>S</b></td>
  <td width="245" bgcolor="#FFFBDF"><b>Site Adı</b></td>
  <td width="250" bgcolor="#FFFBDF"><b>URL</b></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 "<a href=""?s=" & i & """ style=""color:#0000FF"">" & i & "</a> "
    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>S</b></td>
<td width="245" bgcolor="#FFFBDF"><b>Site Adı</b></td>
<td width="250" bgcolor="#FFFBDF"><b>URL</b></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 "<a href=""?s=" & i & """ style=""color:#0000FF"">" & i & "</a> "
Next
End If
 
'Sayfa numarası yazdırma işlemi bitti...
End If
%>
</td>
</tr>
</table>
< %
'Artık kodumuzu deneyebiliriz
End If
%>

]]> http://tuncay.kinali.net/asp-ile-mysql-verilerini-sayfalama.html/feed 3 HTTP 500.100 hatalarına hükmedin http://tuncay.kinali.net/http-500-100-hatalarina-hukmedin.html http://tuncay.kinali.net/http-500-100-hatalarina-hukmedin.html#comments Tue, 10 Mar 2009 14:50:17 +0000 Sniper http://kinali.net/?p=1 HTTP 500.100 iç sunucu hatalarını çoğumuz biliriz. Özellikle ASP ile programlamaya ilk başladığımız dönemlerde bu hata kodu beynimize adeta kazınmıştır. Bu hatalar, kodlarımızda herhangi bir sorun oluştuğunda almak istediğimiz çıktı yerine sunucumuzun bize o sevimsiz sayfayı döndürmesini sağlar. Bu yazıda, bu sevimsiz sayfanın sevimsizliğini gideremesekte kötünün en iyisi şekline sokmayı öğreneceğiz.

]]> http://tuncay.kinali.net/http-500-100-hatalarina-hukmedin.html/feed 0