sayfalama sistemi lütfen acil yardım

16-12-2007, 02:59:34

arkadaşlar bi türlü şunu yapamadım uğraştım uğraştım olmadı

yanyana 3 tane film görükcek toplam 15 tane film görükcek yani şöyle

1 - 2 - 3
4 - 5 - 6
7 - 8 - 9
10 - 11 - 12
13 - 14 - 15

sistem bu şekilde olcak ve 16. filmde 2. sayfada görükcek yani orasıda şöyle

15 tane listelenen filmin aldında
Sayfalar: 1 - 2 - 3 - 4

şeklinde yazcak 1. sayfada ilk 15 film 2. sayfada ikinci 15 film şeklinde olcak heryeri aradım taradım yapamadım:S daha acemiyimde inş bu aspyi iyi bi şekilde öğrenince bende burda gelecekteki arkadaşlara yardım edicem

neyse yardım edipte yapandan şimdiden Allah razı olsun.

değişiklik yapılcak kod:

<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
Set sayfa = Server.CreateObject("ADODB.Recordset")
sor = "Select * from sayfa Where menu_sira_no = 1
sayfa.Open sor,Sur,1,3
for t=1 to sayfa.recordcount
If sayfa.eof Then exit for
if sayfa("onay")=True then
%>
<a href="izle.asp?id=<%=sayfa("id")%> ">
<img align="middle" src="ico.jpg" border="0"></a> <a href="izle.asp?id=<%=sayfa("id")%> ">
 <%=sayfa("baslik")%> </a> 
<%
End if
sayfa.MoveNext
next
sayfa.close
Set sayfa= Nothing
%><% Sur.close()
set Sur = nothing %>

16-12-2007, 17:34:39

#2

~~Tuncsoft~~

Üyeliği durduruldu

Sayfalama ve yan yana sıralama için güzel bir örnek kod;

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<title>Sayfalama</title>
</head>

<body>
<table width="100%" border="0" align="center">
  <tr>
  <%
  'CODE BY FATIH
  
  Set rs = Server.CreateObject("Adodb.Recordset")
  rsSQL="SELECT * FROM tabladi ORDER BY idno DESC"
  rs.Open rsSQL,dbcon,1
  
ToplamKayit=rs.RecordCount
page = CInt(Request("page"))

	If (page ="" or page = 0) Then page = 1 Else page=page
	rs.pageSize = 15 'BİR SAYFADA KAÇ TANE OLACAĞI
	rs.absolutePage=page

Do While Not rs.Eof and i<rs.pagesize
	i=i+1
  %>
    <td><%=rs("SutunADI")%></td>
	<%
	IF i MOD 3 = 0 Then Response.Write("<tr></tr>") 'SAYI NEYSE O KADAR YANYANA OLUR
	
	rs.Movenext
	Loop
	%>
  </tr>
</table>
<center><b>TOPLAM : <%=ToplamKayit%>  </b><br>
<%
If page = 1 Then
Response.Write " "
Else
a = page -1
Response.Write "<a  href=?" & a & qstring &"><<  Önceki    </a> "
End If

	If page + 5 > rs.pagecount Then
	b = rs.pagecount
	Else
	b = page + 5
	End If
	
If page < 5 Then
c = 1
Else
c = page - 5
End If


	
	For j = c To b

If j = page Then
Response.Write "[<b>" & j & "</b>]  "
Else
Response.Write "<a href=?" & j & qstring &">" & j & "</a>  "
End If
Next

	If page = rs.pagecount Then
	Response.Write " "
	Else
	a = page + 1
	Response.Write "<a href=?" & a & qstring &">    Sonraki >></a> "
	End If

rs.close
set rs = Nothing
%></center>
</body>
</html>

17-12-2007, 12:16:45

#3

erkutarhan

Öncelikle şu yazıyı okumanı tavsiye ederim
https://www.r10.net/asp/99473-asp-ile...-siralama.html
Kodunda değişiklik yapmak isterdim ama çok eksik var sen bu yazıyı oku sonra olmazsa bakalım

18-12-2007, 11:28:58

#4

sefakavil

baktım okudum orayı ama yapamadım

zaten aspye yeni başladım sayılır böle böle öğrenmeye çalışıyorum ve bişiler yapmaya çalışıyorum

06-08-2008, 11:06:08

#5

yazilimci09

tşk çok iyi oldu