psp Sayfalama İşlemi

**Constantine** · 05-14-2009, 11:17 AM

Konu : Sayfalama İşlemi
Seviye : Orta
Kaynak Dosyalar : Linkleri Üyelerimiz Görebilir. UslanmaM Üyeliği İçin Tıklayın

Kod:
<% @ Language = VBScript CodePage = 1254 %>
<%
'/////////////////////////////////////////////////////////////////
Option Explicit
Response.Buffer = True
Response.Expires = -1
'/////////////////////////////////////////////////////////////////
'---- CursorTypeEnum Values ----
Const adOpenStatic = 3
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
'---- CommandTypeEnum Values ----
Const adCmdText = &H0001
'/////////////////////////////////////////////////////////////////
Dim intHerSayfadaGosterilecekKayit
intHerSayfadaGosterilecekKayit = 20
'intHerSayfadaGosterilecekKayit (Her sayfada göstereceğiniz kayıt sayısı ile değiştirebilirsiniz.)

Dim intSayfa
if Request.QueryString("s") = "" then
intSayfa = 1
else
intSayfa = CInt(Request.QueryString("s"))
end if
'intSayfa (Açık olan sayfa sayısını alırız. Sayfa "s" değişkeninin değeri yok ise 1 değeri atanır. Bu değer boş değil ise sayfadan gönderilen sayı alınır.)
'/////////////////////////////////////////////////////////////////
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title>ornek</title>
<aaaa http-equiv="aaaaaaa-Type" aaaaaaa="text/html; charset=iso-8859-9">
<style type="text/css">
<!--
body {
margin:0px;
padding:0px;
}
.sayfa {
font-family: Verdana

Arial

Helvetica

sans-serif;
font-size: 12px;
font-weight:bold;
color: #ffcc00;
}
A.link_01:link {
font-family: Verdana

Arial

Helvetica

sans-serif;
font-size: 12px;
font-weight:bold;
color: #0077b5;
text-decoration: none
}
A.link_01:visited {
font-family: Verdana

Arial

Helvetica

sans-serif;
font-size: 12px;
font-weight:bold;
color: #0077b5;
text-decoration: none
}
A.link_01:active {
font-family: Verdana

Arial

Helvetica

sans-serif;
font-size: 12px;
font-weight:bold;
color: #0077b5;
text-decoration: none
}
A.link_01:hover {
font-family: Verdana

Arial

Helvetica

sans-serif;
font-size: 12px;
font-weight:bold;
color: #ffcc00;
text-decoration: none
}
-->
</style>
</head>
<body>

<table align="center" border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="779">
<tr>
<td colspan="2" height="80"> </td>
</tr>
<tr>
<td width="179"> </td>
<td width="600">
<table border="1" cellpadding="0" cellspacing="0" width="100%">
<%
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")

dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

dim objRs
set objRs = Server.CreateObject("ADODB.Recordset")

dim strSql
strSql = "SELECT * FROM tblVeri"

objRs.PageSize = intHerSayfadaGosterilecekKayit '(Bir sayfada görüntülenecek kayıt sayısını belirtir.)
objRs.CacheSize = intHerSayfadaGosterilecekKayit

objRs.Open strSql

objConn

adOpenStatic

adLockReadOnly

adCmdText

dim intToplamSayfa
intToplamSayfa = objRs.PageCount

if intSayfa > intToplamSayfa then intSayfa = intToplamSayfa
if intSayfa < 1 then intSayfa = 1

if objRs.EOF then
'if intToplamSayfa = 0 then
%>
<tr>
<td align="center" valign="middle" height="200" class="sayfa">Kayıt yok</td>
</tr>
<%
else
objRs.AbsolutePage = intSayfa '(kayıtsetine hangi sayfada olduğunu bildirir.)
%>
<tr>
<td align="center" class="sayfa">Toplam <%= intToplamSayfa %> sayfa bulunmakta ve siz <%= intSayfa %>. sayfadasınız.</td>
</tr>
<%
dim intSayac01
intSayac01 = 0
do while intSayac01 < intHerSayfadaGosterilecekKayit And Not objRs.EOF
%>
<tr>
<td><% = objRs("veri") %></td>
</tr>
<%
intSayac01 = intSayac01 + 1
objRs.MoveNext
loop
%>
<tr>
<td align="center">
<%
if intSayfa > 1 then
%>
<B><a href="sayfalama.asp?s=<%= intSayfa - 1 %>" class="link_01">[<< Geri]</a> </B>
<%
end if

dim intSayac02
for intSayac02 = 1 To intToplamSayfa
if intSayac02 = intSayfa then
%>
<font class="sayfa"><%= intSayac02 %></font>
<%
else
%>
<B><a href="sayfalama.asp?s=<%= intSayac02 %>" class="link_01"><%= intSayac02 %></a></B>
<%
end if
next

if intSayfa < intToplamSayfa then
%>
<B> <a href="sayfalama.asp?s=<%= intSayfa + 1 %>" class="link_01">[ileri >>]</a></B>
<%
end if
%>
</td>
</tr>
<%
end if

objRs.Close
set objRs = Nothing

objConn.Close
set objConn = Nothing
%>
</table>
</td>
</tr>
<tr>
<td colspan="2" height="20"> </td>
</tr>
</table>
</td>
</tr>
</table>

</body>
</html>

~~Traphol~~ · 06-25-2009, 04:25 PM

ty teşekkürler

**fttf0** · 08-11-2009, 11:53 AM

Teşekkürler

05-14-2009, 11:17 AM	#1 (permalink)
Constantine {♥_♥} sürgün..{♥_♥}	psp Sayfalama İşlemi Konu : Sayfalama İşlemi Seviye : Orta Kaynak Dosyalar : Linkleri Üyelerimiz Görebilir. UslanmaM Üyeliği İçin Tıklayın Kod: <% @ Language = VBScript CodePage = 1254 %> <% '///////////////////////////////////////////////////////////////// Option Explicit Response.Buffer = True Response.Expires = -1 '///////////////////////////////////////////////////////////////// '---- CursorTypeEnum Values ---- Const adOpenStatic = 3 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 '---- CommandTypeEnum Values ---- Const adCmdText = &H0001 '///////////////////////////////////////////////////////////////// Dim intHerSayfadaGosterilecekKayit intHerSayfadaGosterilecekKayit = 20 'intHerSayfadaGosterilecekKayit (Her sayfada göstereceğiniz kayıt sayısı ile değiştirebilirsiniz.) Dim intSayfa if Request.QueryString("s") = "" then intSayfa = 1 else intSayfa = CInt(Request.QueryString("s")) end if 'intSayfa (Açık olan sayfa sayısını alırız. Sayfa "s" değişkeninin değeri yok ise 1 değeri atanır. Bu değer boş değil ise sayfadan gönderilen sayı alınır.) '///////////////////////////////////////////////////////////////// %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>ornek</title> <aaaa http-equiv="aaaaaaa-Type" aaaaaaa="text/html; charset=iso-8859-9"> <style type="text/css"> <!-- body { margin:0px; padding:0px; } .sayfa { font-family: Verdana Arial Helvetica sans-serif; font-size: 12px; font-weight:bold; color: #ffcc00; } A.link_01:link { font-family: Verdana Arial Helvetica sans-serif; font-size: 12px; font-weight:bold; color: #0077b5; text-decoration: none } A.link_01:visited { font-family: Verdana Arial Helvetica sans-serif; font-size: 12px; font-weight:bold; color: #0077b5; text-decoration: none } A.link_01:active { font-family: Verdana Arial Helvetica sans-serif; font-size: 12px; font-weight:bold; color: #0077b5; text-decoration: none } A.link_01:hover { font-family: Verdana Arial Helvetica sans-serif; font-size: 12px; font-weight:bold; color: #ffcc00; text-decoration: none } --> </style> </head> <body> <table align="center" border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td> <table border="0" cellpadding="0" cellspacing="0" width="779"> <tr> <td colspan="2" height="80"> </td> </tr> <tr> <td width="179"> </td> <td width="600"> <table border="1" cellpadding="0" cellspacing="0" width="100%"> <% dim strConn strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb") dim objConn set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn dim objRs set objRs = Server.CreateObject("ADODB.Recordset") dim strSql strSql = "SELECT * FROM tblVeri" objRs.PageSize = intHerSayfadaGosterilecekKayit '(Bir sayfada görüntülenecek kayıt sayısını belirtir.) objRs.CacheSize = intHerSayfadaGosterilecekKayit objRs.Open strSql objConn adOpenStatic adLockReadOnly adCmdText dim intToplamSayfa intToplamSayfa = objRs.PageCount if intSayfa > intToplamSayfa then intSayfa = intToplamSayfa if intSayfa < 1 then intSayfa = 1 if objRs.EOF then 'if intToplamSayfa = 0 then %> <tr> <td align="center" valign="middle" height="200" class="sayfa">Kayıt yok</td> </tr> <% else objRs.AbsolutePage = intSayfa '(kayıtsetine hangi sayfada olduğunu bildirir.) %> <tr> <td align="center" class="sayfa">Toplam <%= intToplamSayfa %> sayfa bulunmakta ve siz <%= intSayfa %>. sayfadasınız.</td> </tr> <% dim intSayac01 intSayac01 = 0 do while intSayac01 < intHerSayfadaGosterilecekKayit And Not objRs.EOF %> <tr> <td><% = objRs("veri") %></td> </tr> <% intSayac01 = intSayac01 + 1 objRs.MoveNext loop %> <tr> <td align="center"> <% if intSayfa > 1 then %> <B><a href="sayfalama.asp?s=<%= intSayfa - 1 %>" class="link_01">[<< Geri]</a> </B> <% end if dim intSayac02 for intSayac02 = 1 To intToplamSayfa if intSayac02 = intSayfa then %> <font class="sayfa"><%= intSayac02 %></font> <% else %> <B><a href="sayfalama.asp?s=<%= intSayac02 %>" class="link_01"><%= intSayac02 %></a></B> <% end if next if intSayfa < intToplamSayfa then %> <B> <a href="sayfalama.asp?s=<%= intSayfa + 1 %>" class="link_01">[ileri >>]</a></B> <% end if %> </td> </tr> <% end if objRs.Close set objRs = Nothing objConn.Close set objConn = Nothing %> </table> </td> </tr> <tr> <td colspan="2" height="20"> </td> </tr> </table> </td> </tr> </table> </body> </html>

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	UslanmaM	Cevaplar	Son Mesaj
Psp Recursion İşlemi	Constantine	ASP, Perl, Php, Html	0	05-14-2009 11:26 AM
Aşk; Bir (B)ölme İşlemi	CiCi_KizZ	Aşk Hikayeleri	0	02-14-2009 06:53 PM
Aşk; Bir (B)ölme İşlemi	TWEETY	Aşk Hikayeleri	0	01-30-2009 08:05 PM
Zor Toplamı İşlemi	aydinkurt	Zeka Soruları ve Bilmeceler	2	12-17-2008 07:39 PM
Aşk; Bir (B)ölme İşlemi	Los Galakticos	Amatör Aşk Şiirleri	0	07-22-2008 10:33 PM

06-25-2009, 04:25 PM	#2 (permalink)
~~Traphol~~ Banned	ty teşekkürler

08-11-2009, 11:53 AM	#3 (permalink)
fttf0 Onbaşı	Teşekkürler

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)