Asp Sayfalama Yapmak

26-07-2013, 12:08:01

Merhaba arkadaşlar aşağıda bulunan sayfama sayfalama yapabilecek birisini arıyorum. Bir sürü kod buldum bir türlü sayfalama yapamadım. Eğer alttaki sayfama sayfalama uydurabilirsek diğer sayfalara ben eklerim kodu.

<!-- #include file=header.inc !-->
<% If Session("AdminOk") = True Then %>
<%

	 Set ConnData = Server.CreateOBject("ADODB.Connection")
	 Set RSData = Server.CreateObject("ADODB.RecordSet")
	 Yol = Server.MapPath("data/ariza.mdb")
	 ConnData.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Yol)
	 If Request.QueryString("sDurum") = "1" Then
		SQLStr = "Select * From arizatakip ORDER BY durum"
		vSort = "3"
	 Else 
		if Request.QueryString("sFisNo") = "1" Then
			SQLStr = "Select * From arizatakip ORDER BY FisNo"
			vSort = "2"
		Else 
			If Request.QueryString("sGTarih") = "1" Then
				SQLStr = "Select * From arizatakip ORDER BY GelisTarihi"
				vSort= "4"
			Else 
				SQLStr = "Select * From arizatakip ORDER BY ArizaNo"
				vSort = "1"
			End If
		End If
	 End If
	
		
	 RSData.Open SQLStr, ConnData, 3

%>
<style type="text/css">
<!--
.style1 {
	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>
<% if Request.QueryString("Ok") = 1 Then Response.Write "<center><font color=red><b>Ürün Ba&thorn;ar&yacute;yla Güncellemi&thorn;tir</b></font></center>" %>
<% if Request.QueryString("Sil") = 1 Then Response.Write "<center><font color=red><b>Ürün Ba&thorn;ar&yacute;yla silindi</b></font></center>" %>
<table border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td colspan="2"><img src="../images/logo.gif" width="215" height="72"></td>
  </tr>
  <tr>
    <td height="10" colspan="2" bgcolor="#000000">&nbsp;</td>
  </tr>
  <tr>
    <td width="107" height="379" align="center" valign="top" bgcolor="#DAD3FE">
  <!-- #include file=menu.asp !-->
    </td>
    <td valign="top">
    <TABLE border=0 cellPadding=1 cellSpacing=2  align=center bgcolor=#ffffff class="nice">
      <TR class="style1 nice" bgcolor=#DAD3FE>
        <TD width=30 height=20 align=center><b><a href=archive.asp>No<%if vSort = "1"  Then Response.Write "<img src=../images/arrow.gif border=0>"%></b></TD>
        <TD height="20" align=center class=linkbold><b>SeriNo</b></TD>
        <TD width=50 height="20" align=center><b><a href=archive.asp?sFisno=1>Fi&thorn;No<%if vSort = "2" Then Response.Write "<img src=../images/arrow.gif border=0>"%></a></b></TD>
        <TD width=120 height="20" align=center class=linkbold><b>Ürün Ad&yacute;</b></TD>
        <TD width=80 height="20" align=center><a href=archive.asp?sGTarih=1>Teslim Tarihi<%if vSort = "4" Then Response.Write "<img src=../images/arrow.gif border=0>"%></a></TD>
        <TD width=250 height="20" align=center class=linkbold> <b>Aç&yacute;klama</b></TD>
        <TD width=80 height="20" align=center class=linkbold> <b>Firma</b></TD>
        <TD width=80 height="20" align=center class=linkbold> <b>Teslim Alan</b></TD>
        <TD width=80 height="20" align=center class=linkbold> <b>Ücret</b></TD>
      </tr>
 <%		
	While not RsData.EOF
	      if RsData("Teslimat") = True Then
 %>
      <TR <% a = a + 1 
      
			if RsData("Durum") = False Then
				Response.Write "bgcolor=#FEDBDB"
		  	 Else
              if a  mod 2 Then Response.Write "bgcolor=#f7f7f7" else Response.Write "bgcolor=#ffffff" End If
              
        End if
  
         %>>
        <TD align=center height=18 class=nice><font color=red><b><%=RsData("ArizaNo")%></b></font></TD>
        <TD align=center class=nice><%=RsData("SeriNo")%></TD>
        <TD align=center class=nice><b><a href=viewrecord.asp?FisNo=<%=RsData("FisNo")%>><%=RsData("FisNo")%></a></b></TD>
        <td class=nice>&nbsp;<%=RsData("UrunAdi")%>&nbsp;-&nbsp;<%=RsData("Marka")%>
        <TD align=center class=nice><%=RsData("TeslimTarihi")%></TD>
        <TD class=nice>&nbsp;<%=RsData("Aciklama")%></TD>
        <TD class=nice>&nbsp;<%=RsData("FirmaAdi")%></TD>        
        <TD class=nice>&nbsp;<%=RsData("TeslimAlan")%></TD>
        <TD class=nice>&nbsp;<%=RsData("Ucret")%> TL</TD>  
      </TR>
      <% end if
      RsData.MoveNext%>
      <% 
Wend
	Set RSdata = Nothing
	Set ConnData = Nothing
 Else 
	Response.Redirect "default.asp?Error=1"
End if %>
<tr><td colspan=11 bgcolor=DAD3FE height=20></td></tr>
    </TABLE>
</td>
  </tr>
  <tr>
    <td height="10" colspan="2" bgcolor="#000000">&nbsp;</td>
  </tr>
</table>
</body>
</html>

27-07-2013, 19:37:41

pcindir

Deneme şansım olmadı ama çalışması lazım.

<!-- #include file=header.inc !--> 
<% If Session("AdminOk") = True Then %> 

<% 
intGecerliSayfa =Trim(Request.QueryString("s"))
If intGecerliSayfa = "" Or IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1
intGecerliSayfa = CInt(intGecerliSayfa)

     Set ConnData = Server.CreateOBject("ADODB.Connection") 
     Set RSData = Server.CreateObject("ADODB.RecordSet") 
     Yol = Server.MapPath("data/ariza.mdb") 
     ConnData.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Yol) 
     If Request.QueryString("sDurum") = "1" Then 
        SQLStr = "Select * From arizatakip ORDER BY durum" 
        vSort = "3" 
     Else  
        if Request.QueryString("sFisNo") = "1" Then 
            SQLStr = "Select * From arizatakip ORDER BY FisNo" 
            vSort = "2" 
        Else  
            If Request.QueryString("sGTarih") = "1" Then 
                SQLStr = "Select * From arizatakip ORDER BY GelisTarihi" 
                vSort= "4" 
            Else  
                SQLStr = "Select * From arizatakip ORDER BY ArizaNo" 
                vSort = "1" 
            End If 
        End If 
     End If 
     
         
     RSData.Open SQLStr, ConnData, 3 
     


%> 
<style type="text/css"> 
<!-- 
.style1 { 
    color: #FFFFFF; 
    font-weight: bold; 
} 
#content .postnav {
		clear: both;
		padding: 10px 0 20px;
	}
		#content .postnav ul {
			list-style-type: none;
		}
			#content .postnav ul li {
				float: left;
				font-weight: bold;
				padding: 2px;
				font-size: 0.9em;
				font-family: Verdana;
			}
			#content .postnav ul li a {
				display: block;
				padding: 7px 10px;
				background-color: #9E9E9D;
				color: #ffffff;
				text-decoration: none;
				border: 0 !important;
			}
			#content .postnav ul li a:hover {
				background-color: #234566;
			}
			#content .postnav-gecerli {
				display: block;
				padding: 6px 10px;
				color: #000000;
				text-decoration: none;
				border: 1px solid #234566;
			}
--> 
</style> 
<% if Request.QueryString("Ok") = 1 Then Response.Write "<center><font color=red><b>Ürün Ba&thorn;ar&yacute;yla Güncellemi&thorn;tir</b></font></center>" %> 
<% if Request.QueryString("Sil") = 1 Then Response.Write "<center><font color=red><b>Ürün Ba&thorn;ar&yacute;yla silindi</b></font></center>" %> 
<table border="0" align="center" cellpadding="0" cellspacing="0"> 
  <tr> 
    <td colspan="2"><img src="../images/logo.gif" width="215" height="72"></td> 
  </tr> 
  <tr> 
    <td height="10" colspan="2" bgcolor="#000000">&nbsp;</td> 
  </tr> 
  <tr> 
    <td width="107" height="379" align="center" valign="top" bgcolor="#DAD3FE"> 
  <!-- #include file=menu.asp !--> 
    </td> 
    <td valign="top"> 
    <TABLE border=0 cellPadding=1 cellSpacing=2  align=center bgcolor=#ffffff class="nice"> 
      <TR class="style1 nice" bgcolor=#DAD3FE> 
        <TD width=30 height=20 align=center><b><a href=archive.asp>No<%if vSort = "1"  Then Response.Write "<img src=../images/arrow.gif border=0>"%></b></TD> 
        <TD height="20" align=center class=linkbold><b>SeriNo</b></TD> 
        <TD width=50 height="20" align=center><b><a href=archive.asp?sFisno=1>Fi&thorn;No<%if vSort = "2" Then Response.Write "<img src=../images/arrow.gif border=0>"%></a></b></TD> 
        <TD width=120 height="20" align=center class=linkbold><b>Ürün Ad&yacute;</b></TD> 
        <TD width=80 height="20" align=center><a href=archive.asp?sGTarih=1>Teslim Tarihi<%if vSort = "4" Then Response.Write "<img src=../images/arrow.gif border=0>"%></a></TD> 
        <TD width=250 height="20" align=center class=linkbold> <b>Aç&yacute;klama</b></TD> 
        <TD width=80 height="20" align=center class=linkbold> <b>Firma</b></TD> 
        <TD width=80 height="20" align=center class=linkbold> <b>Teslim Alan</b></TD> 
        <TD width=80 height="20" align=center class=linkbold> <b>Ücret</b></TD> 
      </tr> 
 <%         
icerikSayisi= "10" 'Bir sayfada kaç içerik olacak.
     
If Not RSData.Eof Then
intSayfaSayisi = RSData.PageCount
RSData.PageSize = CInt(icerikSayisi)
RSData.AbsolutePage = intGecerliSayfa

If intGecerliSayfa > intSayfaSayisi Then intGecerliSayfa = intSayfaSayisi
intLooper = 0 
						Do While Not RsData.Eof AND intLooper < icerikSayisi

							intLooper = intLooper + 1

          if RsData("Teslimat") = True Then 
 %> 
      <TR <% a = a + 1  
       
            if RsData("Durum") = False Then 
                Response.Write "bgcolor=#FEDBDB" 
               Else 
              if a  mod 2 Then Response.Write "bgcolor=#f7f7f7" else Response.Write "bgcolor=#ffffff" End If 
               
        End if 
   
         %>> 
        <TD align=center height=18 class=nice><font color=red><b><%=RsData("ArizaNo")%></b></font></TD> 
        <TD align=center class=nice><%=RsData("SeriNo")%></TD> 
        <TD align=center class=nice><b><a href=viewrecord.asp?FisNo=<%=RsData("FisNo")%>><%=RsData("FisNo")%></a></b></TD> 
        <td class=nice>&nbsp;<%=RsData("UrunAdi")%>&nbsp;-&nbsp;<%=RsData("Marka")%> 
        <TD align=center class=nice><%=RsData("TeslimTarihi")%></TD> 
        <TD class=nice>&nbsp;<%=RsData("Aciklama")%></TD> 
        <TD class=nice>&nbsp;<%=RsData("FirmaAdi")%></TD>         
        <TD class=nice>&nbsp;<%=RsData("TeslimAlan")%></TD> 
        <TD class=nice>&nbsp;<%=RsData("Ucret")%> TL</TD>   
      </TR> 
      <% end if 
     kdGenel.Movenext
	Loop %> 
      <%  
<% If intSayfaSayisi > 1 Then %>

					<%
				Response.Write "<center><div id=""content"" class=""postnav""><ul>"

					Aralik = 2

					intSayfaAltSiniri = intGecerliSayfa - Aralik
					intSayfaUstSiniri = intGecerliSayfa + Aralik
					intSolGrupSayisi = 1 + Aralik
					intSagAltSinir = intSayfaSayisi - Aralik

					If (intSayfaUstSiniri > intSayfaSayisi) Then
						intSayfaAltSiniri = intSayfaSayisi - (2 * Aralik)
						intSayfaUstSiniri = intSayfaSayisi	
					End If

					If (intSayfaAltSiniri <= 0) Then
						intSayfaAltSiniri = 1
						intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik)
						If intSayfaUstSiniri >= intSayfaSayisi Then intSayfaUstSiniri = intSayfaSayisi
					End If

					If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1
					If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1

					If intGecerliSayfa > 1 Then
					Response.Write("<li><a href=""?s="&intGecerliSayfa-1&""" class=""sayfala"">Önceki</a></li>")
					End If

					For intLooper = 1 to intSolGrupSayisi
						If CInt(intLooper) = intGecerliSayfa Then
							Response.Write "<li><span class=""postnav-gecerli"">"& intLooper &"</span></li>"	
						Else
							Response.Write("<li><a href=""?s="&intLooper&""" class=""sayfala"">"& intLooper &"</a></li>")
						End If
					Next 

					If (intSayfaAltSiniri - intSolGrupSayisi > 1 ) Then Response.Write "<li>. . .</li>"

					For intLooper = intSayfaAltSiniri to intSayfaUstSiniri
						If CInt(intLooper) = CInt(intGecerliSayfa) Then
							Response.Write "<li><span class=""postnav-gecerli"">"& intLooper &"</span></li>"	
						Else
							Response.Write("<li><a href=""?s="&intLooper&""" class=""sayfala"">"& intLooper &"</a></li>")
						End If
					Next 

					If (intSagAltSinir - intSayfaUstSiniri > 1) Then Response.Write "<li>. . .</li>"

					For intLooper = intSagAltSinir to intSayfaSayisi
						If CInt(intLooper) = CInt(intGecerliSayfa) Then
							Response.Write "<li><span class=""postnav-gecerli"">"& intLooper &".</span></li>"	
						Else
							Response.Write("<li><a href=""?s="&intLooper&""" class=""sayfala"">"& intLooper &"</a></li>")
						End If
					Next 

					If intGecerliSayfa <> intSayfaSayisi AND intSayfaSayisi > 1 Then
						Response.Write("<li><a href=""?s="&intGecerliSayfa + 1&""" class=""sayfala"">Sonraki</a></li>")
					End If

				Response.Write "</ul></div></center><br /><br />"

				End If

			Else
				Response.Write "<p>İçerik yok.</p>"
			End If
			RSdata.Close
			
    Set RSdata = Nothing 
    Set ConnData = Nothing 
 Else  
    Response.Redirect "default.asp?Error=1" 
End if %> 
<tr><td colspan=11 bgcolor=DAD3FE height=20></td></tr> 
    </TABLE> 
</td> 
  </tr> 
  <tr> 
    <td height="10" colspan="2" bgcolor="#000000">&nbsp;</td> 
  </tr> 
</table> 
</body> 
</html>

29-07-2013, 10:20:06

#3

sezoakbil

Malesef çalışmadı http 500 iç sunucu hatası verdi.