Aspde sayfalama yapmak

SametE

Profesyonel Üye
İYİNET Üyesi
Katılım
7 Mar 2008
Mesajlar
307
Beğeniler
0
Konum
Balıkesir
#1
Asp de sayfalama yapmak için küçük kod parcasi


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

aydingebze

Pratik Üye
İYİNET Üyesi
Katılım
27 Mar 2008
Mesajlar
28
Beğeniler
0
#2
Kod:
<%
islem = Request("islem")
Select Case islem
Case "default"%>		        <!--#include file="kampanyalar.asp" -->
<%Case "kampanyalar"%>				  <!--#include file="kampanyalar.asp" -->
<%Case "iletisim"%>	
<%Case Else%><!--#include file="kampanyalar.asp" --><%End Select%>

Bu Kodda Yeni Baslayanlar icin Cok güzel
 

Bu konuyu okuyanlar (Üyeler: 1, Misafirler: 0)

Üst