<% /////// Db Baglanti Baslangici \\\\\\\\ %>
<%
Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("
database.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM
tablo order by
id desc"
rs.Open sql, bag, 1, 3 'db açtık devam edelim...
Server.ScriptTimeOut = 50
PageTimeOut = 50
%>
<% /////// Db Baglanti Sonu \\\\\\\\ %> <% /////// Resim Sayısını Belirleme ve Resim Gösterme Bitisi \\\\\\\\ %>
<table border="0"><tr><td align="center">
<table><tr>
<%
s = Request.QueryString("s" )
If s = "" Then s = "1"
rs.PageSize = 16
rs.AbsolutePage = s
ss = rs.PageCount
For i = 1 To
16
If rs.Eof Then Exit For %>
<td width="125">
<img src="
<%=Rs("img" ) %>" width="100" height="100"></td>
<%If i mod
4 =0 Then response.write("</tr><tr>" ) %>
<% rs.Movenext
Next %>
</tr>
</table>
<% /////// Resim Sayısını Belirleme ve Resim Gösterme Bitisi \\\\\\\\ %> <% /////// Sayfalama Baslangici \\\\\\\\ %>
<br><center><font size="1" face="verdana">
<%
Response.Write "<b>Page:</b>"
For g = 1 To ss
If g = CInt(s) Then
Response.Write "<b>" & g & "</b> "
Else
Response.Write "<b><a style=""text-decoration: none"" href=""
default.asp?s=" & g & """>" & g & "</a></b> "
End If
Next
%>
<% /////// Sayfalama Bitisi \\\\\\\\ %>
</td></tr></table>
</td></tr></table>
------o------
Sanırım istediğin üst kısımda yazdığım gibi birşey işini görür. Editlemek gereken kısımları koyu yazdım. Db yolunu kendince ayarlayıp img değişkeninide kendince editlersin. Bir sayfada 4 sütun olmak üzere 16 kayıt gösterir. sayfa alt kısmında default.asp yazan kısmını sayfa ismi olarak değiştirmelisin.
- - - -
- - - -
- - - -
- - - -
1 2 3 4
Şeklinde gösterir. Alttaki 1 2 3 4 sayfa sayısıdır. Tıklayınca ikinci sayfadaki resimler gelir.
Kolay gelsin.