![]() |
|
|
#1 | ||
|
Senior Member
Üyelik tarihi: 29-07-2008
Mesajlar: 1.000
|
Asp de sayfalama yapmak için küçük kod parcasi
HTML-Kodu:
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> <title>New Page 1</title> </head> <body> <table border="1" width="100%" id="table1"> <font color="#FF00FF"> <% set data=server.createobject("adodb.connection") set rst6=server.createobject("adodb.recordset") data.Open "Provider=SQLOLEDB.1;Password=4671547;Persist Security Info=True;User ID=web;Initial Catalog=TICONA2005;Data Source=ramazan" rst6.open "select * from TBLSTSABIT order by STOK_KODU ",data,3,3 deste=15 Sayfa=rst6.recordcount/deste sayi=request("S") Liste=sayi * deste if sayi=>2 then for i= 0 to Liste-15 if i=rst6.recordcount then exit for end if rst6.movenext next else end if %> </font> <font color=#FF3300> <% if sayi=1 then liste=1 end if %> <% for i= liste to liste+Deste%> <tr> <td><b><font size="1" face="Tahoma"><%=rst6.fields("STOK_KODU")%>--<%=rst6.fields("STOK_ADI")%></font></b></td> </tr> <% if i=rst6.recordcount then exit for end if rst6.movenext next %> </table> <table border="1" width="100%"> <tr> <%for i=1 to Sayfa%><td><a href=index.asp?S=<%=i%>><%=i%></a></td><%next%> </tr> </font> </table> </body> </html> |
||
|
|
|