DOSYALAR

<% Set dos = Server.CreateObject("ADODB.Recordset") sor = "Select * from dosya Order BY DNo asc" dos.Open sor,db,1,3 %><% if dos.recordcount = 0 then%>
Bilgilendirme

Kayıtlı Dosya Bulunamadı.

<%else %><%sayfalama=4 sayfa = Request.QueryString("sayfa") if sayfa = "" then sayfa = 1 end if %> <% dos.pagesize = sayfalama dos.absolutepage = sayfa sayfala = dos.pagecount for i=1 to dos.pagesize if dos.eof then exit for %>

" target="_blank">

  Dosya Adı :  <%=dos.Fields("DAdi")%>
Boyutu :  <%=dos.Fields("Dboyut")%>
Ekleyen :  <%=dos.Fields("Dekleyen")%>
Açıklama :  <%=dos.Fields("DAciklama")%>
Tarih :  <%=dos.Fields("DTarih")%>

<% dos.MOVENEXT %> <% next %>
SAYFALAR : <% Aralik = 2 intSayfaAltSiniri = sayfa - Aralik intSayfaUstSiniri = sayfa + Aralik intSolGrupSayisi = 1 + Aralik intSagAltSinir = sayfala - Aralik %> <% If (intSayfaUstSiniri >sayfala) Then intSayfaAltSiniri = sayfala - (2 * Aralik) intSayfaUstSiniri = sayfala End If %> <% If (intSayfaAltSiniri <= 0) Then intSayfaAltSiniri = 1 intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik) If intSayfaUstSiniri >= sayfala Then intSayfaUstSiniri = sayfala End If %> <% If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1 If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1 %> <% If sayfa >1 Then %> [««] [«]<% End If %> <% For i = 1 to intSolGrupSayisi If CInt(i) = (sayfa) Then Response.Write " " Else %> <% End If Response.Write i &" " Next %> <% If (intSayfaAltSiniri - intSolGrupSayisi >1 ) Then Response.Write ". . ." %> <% For i = intSayfaAltSiniri to intSayfaUstSiniri If CInt(i) = CInt(sayfa) Then Response.Write " " Else %> <% End If Response.Write i &" " Next %> <% If (intSagAltSinir - intSayfaUstSiniri >1) Then Response.Write ". . ." %> <% For i = intSagAltSinir to sayfala If CInt(i) = CInt(sayfa) Then Response.Write " " Else %> <% End If Response.Write i &" " Next %> <% If CInt(sayfa) <>CInt(sayfala) Then %> [»] [»»]<% End If %>        Toplam : <%=dos.recordcount%>
<%end if%>