Programalama > ASP

Arkadaşlar çoğumuz sitelerimizde resim galerileri oluşturmak isteriz.. Bende istedim ve bir kod hazırladım.. Aşağıdaki kodla hem verileri sütunlara bölebilir hem de sütunlara gösterdiğiniz sayfada sayfalama yapabilirsiniz..Maksu' ya yardımları için çok teşekkürler.. 

Çoğu yeri açıkladım aslında çok karışık bir kod da değil..  
'bağlantılar hazır varsayıyorum 
bol = 3 'sutun sayısı 

topla=Rs.Recordcount 'toplam veri sayısını alıyoruz 
shf = Request.QueryString("shf")  
if shf="" then  
shf=1 
end if 
<% 
Rs.pagesize = 18 ' sayfada gösterilecek veri sayısı 

Rs.absolutepage = shf 
sayfala = Chizgi.pagecount 'sayfa sayısı 

yuzde = CInt(100/bol) 'sütunların genişliğini hesaplıyoruz 
For I = 1 To Chizgi.pagesize %> 
     <% If not I mod bol = 0 Then %>  
     <% If not Rs.Eof Then %>  
          <td  width="<%=yuzde %>%">  
' buraya almak istediğiniz veri gelecek.. 
</td> 
    <%End If %> 
     <% ElseIf I mod bol = 0 Then %>  
     <% If not Rs.Eof Then %>  
          <td  width="<%=yuzde %>%">  

' burayada satır sonlarındaki veri gelecek.. Yukarıdakinin aynısını yazın.. 
</td></tr><tr><%End If %> 
     <% End If  
If not Rs.Eof Then 
Rs.Movenext  
End If 
Next 
%>    
</table> 
<% If topla > Rs.Pagesize Then   %> ' toplam resim sayısı 
' bir sayfada gösterilecek resim sayısından fazla ise sayfa link 
' lerini göster diyoruz..  
<table><tr> 
      <td> 
          
      <p align="center"><b>Sayfa :  <% 
        For y=1 To sayfala  
        If shf=y Then 
        Response.Write y 
        Else 
        Response.Write "<b> <a href=" "sayfa.asp?shf=" &y&"" ">" &y&"</a></b>"   
        End If 
        Next 
        End If 
         %> 
  </center></table>