ASP ile Arsiv Sayfasi Hazirlama

WordPress ve benzeri uygulamalarda gormusunuzdur (ki benim hazirladigim ornegi arsiv.asp) verilerinizin Yil ve Ay olarak duzenlenmis listesi. Iste bu sefer bu tarz bir sayfanin en basit sekilde yapimini anlatmaya calisacagim.

Bunu yazarken veritabanizin arsiv.mdb, yapisinin tbl_veri tablosu icinde id, baslik ve tarih sutunlarindan olustugunu dusunelim.

Lafi cok uzatmadan hemen kodlari veriyorum.

response.write "<ul>"
'Yillarimizi dizelim. Ben 2008 olarak aldim. Burda 2008 yilindan itibaren bulundugumuz yila kadar dongu baslatiyoruz.'
for y = 2008 to year(Date())
response.write "<li>"&y&"</li><ol>"
'Aylarimizi donguye sokuyoruz'
for a = 1 to 12
<li><b>"&a&"</b></li><ol>
'veritabani baglantimiz ve verilerimiz donguye 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>"


ornegi gormek icin tiklayiniz.


  • personAyberk Atasay
  • calendar_monthDecember 13, 2008
  • categoryASP
  • sharepaylaş
  • Eski Yorumlar:
  • Ali Kenan
  • Set Rs = Baglanti.execute ("Select * From tbl_veri where year(tarih) = "&y&" and month(tarih) = "&a&"") bu satirda bi hata aliyorum neden olabilirki acaba :S Microsoft VBScript runtime error '800a01a8' Object required: 'DBQ=C:inetpubwwwro' /blogg/deneme.asp, line 14 yardim ederseniz cok sevinirim akyagmur@gmail.com
  • 2009-10-28 01:21:02