Programalama > ASP

ASP / Aspde Sayfalama Yapmak

Asp De Sayfalama Yapmak Için Küçük Kod Parcasi

Etiketler: aspde, sayfalama, yapmak

Ort. 0

Puan ver:

hazirkod 03 July 19:34 0

0 kişiden 0 puan aldı

14967

<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>