Ayberk Atasay

ASP, CSS, Internet konuları üzerine paylaşımlar

ASP ile Arşiv Sayfası Hazırlama

WordPress ve benzeri uygulamalarda görmüşünüzdür (ki benim hazırladığım örneği arsiv.asp) verilerinizin Yıl ve Ay olarak düzenlenmiş listesi. İşte bu sefer bu tarz bir sayfanın en basit şekilde yapımını anlatmaya çalışacağım.

Bunu yazarken veritabanızın arsiv.mdb, yapısının tbl_veri tablosu içinde id, baslik ve tarih sutünlarından oluştuğunu düşünelim.

Lafı çok uzatmadan hemen kodları veriyorum.

response.write "<ul>"

'Yıllarımızı dizelim. Ben 2008 olarak aldım. Burda 2008 yılından itibaren bulunduğumuz yıla kadar döngü başlatıyoruz.'

for y = 2008 to year(Date())

response.write "<li>"&y&"</li><ol>"

'Aylarımızı döngüye sokuyoruz'

for a = 1 to 12

<li><b>"&a&"</b></li><ol>

'veritabanı bağlantımız ve verilerimiz döngüye giriyor'

Set Rs = Baglanti.execute ("Select * From tbl_veri where year(tarih) = "&y&" and month(tarih) = "&a&"")

Do While Not Rs.eof

Response.Write "<li>"&day(Rs("tarih"))&": "&Rs("baslik")&"</li>"

Rs.MoveNext

loop

Response.Write "</ol>"

next

Response.Write "</ol>"

next

Response.Write "</ol></ul>"

Örneği görmek için tıklayınız.

ASPAyberk Atasay13 Aralık 2008, CumartesiEkle Bunu

Önceki Kayıt

Sonraki Kayıt

Yorumlar

Ali Kenan
28 Ekim 2009, Çarşamba

Set Rs = Baglanti.execute ("Select * From tbl_veri where year(tarih) = "&y&" and month(tarih) = "&a&"") bu satırda bi hata alıyorum neden olabilirki acaba :S
Microsoft VBScript runtime error '800a01a8'

Object required: 'DBQ=C:inetpubwwwro'

/blogg/deneme.asp, line 14
yardım ederseniz çok sevinirim akyagmur@gmail.com