01-20-2008
|
#5 (permalink)
|
|
Se®ve® Administ®ato®
|
Sayfalama İşlemi
Konu : Sayfalama İşlemi
Seviye : Orta
Kaynak Dosyalar : [ÜYE OLMADAN LİNKLERİ GÖREMEZSİNİZ. BURAYA TIKLAYARAK BEDAVA ÜYE OLUN...]
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>
<**** **********="Content-Type" content="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>
Gereken kısımlara not düştüm. Hala anlaşılmayan bir şey varsa sorulan kısımları açıklayayım.
Mesajınızda:
-> Mail Adresinizi verirseniz, -> Konuyla alakasız yorum yaparsanız / Konuyla alakasız bir soru sorarsanız, -> Amaçsız, içinde paylaşım olmayan, saçma konular açarsanız, -> Üstüste mesaj yazarsanız ( Flood yapmakda denir), -> Küfür ederseniz, -> Konuyla alakasız bir başlık atarsanız, -> Mesajınızın tamamını büyük harfler veya puntolar kullanarak yazarsanız,
Mesajınız SİLİNİR ayrıca siz BANLANIRSINIZ.
Bu tip mesajları ihbar etmek için yukarıda işaretlenmiş olan yere tıklayarak yöneticiyi uyarabilirsiniz. нαуαт, öℓüмℓє кυмαя σуηαмα ѕαηαтı∂ıя...
[ÜYE OLMADAN LİNKLERİ GÖREMEZSİNİZ. BURAYA TIKLAYARAK BEDAVA ÜYE OLUN...]
AkdenizForum Toolbar Sitemizi Daha İyi Kullanmak İstiyorsanız Daha Kolaylıkla Sizde İndirin [ÜYE OLMADAN LİNKLERİ GÖREMEZSİNİZ. BURAYA TIKLAYARAK BEDAVA ÜYE OLUN...]
|
|
|