Alfabetik ve Sayfa Sayfa Sıralama

ogunbalkan · 2 Eylül 2004

ARKADAŞLAR AŞAĞIDAKİ KODDA BİR SORUNUM VAR. YAPMAK İSTEDİĞİM ŞEY VERİ TABANINDAN ALDIĞIM BİLGİLERİ HARFLER İLE YANİ (A-B-C) HANGİSİNE TIKLARSAM O BİLGİ EKRANA YAZSIN FAKAT YAZILAN BİLGİLER BİRDEN FAZLA SAYFA İSE SAYFALAR HALİNDE SAYFA 1-2-3-4 YAZSIN İSTİYORUM.
- SAYFA SAYFA NUMARALI OLARAK YAZDIRIYORUM TEK BAŞINA HARFE GÖREDE YAZDIRIYORUM AMA İKİSİNİ BİR ARADA YAPAMADIM
BİR YARDIMCI OLABİLİRMİSİNİZ LÜTFEN.

TEŞEKKÜRLER


<html>
<head>
<style>
A:Link {color:000000;text-decoration:none;}
A:Visited {color:000000;text-decoration:none;}
A:Hover {color:F70404;}
</style>
</HEAD>
<BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#000000" VLINK="#000000" ALINK="#F70404">
<b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">VERİLERİM</font>
<HR WIDTH=100% size=1 COLOR="#000000">
<a href="?i=8&b_harf=A">A</a>|<a href="?i=8&b_harf=B">B</a>|<a href="?i=8&b_harf=C">C</a>|<a href="?i=8&b_harf=Ç">Ç</a>|<a href="?i=8&b_harf=D">D</a>|<a href="?i=8&b_harf=E">E</a>|<a href="?i=8&b_harf=F">F</a>|<a href="?i=8&b_harf=G">G</a>|<a href="?i=8&b_harf=H">H</a>|<a href="?i=8&b_harf=I">I</a>|<a href="?i=8&b_harf=İ">İ</a>|<a href="?i=8&b_harf=J">J</a>|<a href="?i=8&b_harf=K">K</a>|<a href="?i=8&b_harf=L">L</a>|<br><a href="?i=8&b_harf=M">M</a>|<a href="?i=8&b_harf=N">N</a>|<a href="?i=8&b_harf=O">O</a>|<a href="?i=8&b_harf=Ö">Ö</a>|<a href="?i=8&b_harf=P">P</a>|<a href="?i=8&b_harf=R">R</a>|<a href="?i=8&b_harf=S">S</a>|<a href="?i=8&b_harf=Ş">Ş</a>|<a href="?i=8&b_harf=T">T</a>|<a href="?i=8&b_harf=U">U</a>|<a href="?i=8&b_harf=Ü">Ü</a>|<a href="?i=8&b_harf=V">V</a>|<a href="?i=8&b_harf=Y">Y</a>|<a href="?i=8&b_harf=Z">Z</a>|
<HR WIDTH=100% size=1 COLOR="#000000">
<%
B = ("319.01.001.01")
K = ("319.01.999.99")
b_harf = Request("b_harf" )

dim i

Set Bag = Server.CreateObject("ADODB.Connection" )
Bag.Open ("Driver={SQL Server};" & "Server=BIZIMSERVER;" & _
"Address=000.000.000.000,0000;" & _
"Network=DBMSSOCN;" & _
"Database=veritabanım;" & _
"Uid=sa;")

Set RS = Server.CreateObject("ADODB.RecordSet" )
RS.Open "SELECT * FROM KARTLARIM WHERE CODE > '" & B & "'AND CODE < '" & K & "' AND DEFINITION_ LIKE '" & b_harf & "' ",BAG,1,3

sayfa = Request.QueryString("sayfa" )

If sayfa="" Then sayfa=1
rs.pagesize = 20
rs.absolutepage = sayfa
sayfa_sayisi = rs.pagecount
For i=1 To rs.pagesize
If rs.Eof Then
exit for
End If
%>
<a href="rapor.asp?verilerim=<%=RS("DEFINITION_")%>" target="main">
<IMG SRC="images/folder.gif" BORDER="0" ALT="<%=RS("DEFINITION_")%>"></A>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<a href="rapor.asp?verilerim=<%=RS("DEFINITION_")%>" target="main"><%=RS("DEFINITION_")%></A><BR>
<%
rs.Movenext
Next
%>
<HR WIDTH=100% size=1 COLOR="#000000">
<%
response.Write "Sayfa: "
For g = 1 to sayfa_sayisi
If g = CInt(sayfa ) Then
response.write g& " "

Else
response.Write "<a href=menu22.asp?sayfa=" & g & ">" & g & "</a> "
End If
Next

rs.Close
Set rs = Nothing
%>
<HR WIDTH=100% size=1 COLOR="#000000">
</b>
</FONT>
</body>
</html>

ogunbalkan · 9 Eylül 2004

ARKADAŞLAR SORUNUN CEVABINI forum.maxiasp.com DAKİ ARKADAŞLARIN YARDIMIYLA HALLETTİM SİZLEREDE GÖNDERİYORUM İŞİNE YARAYAN OLURSA KULLANIR.
AŞAĞIDAKİ GİBİ OLMASI GEREKİYOR.
------------------------------------------

<html>
<head>
<style>
A:Link {color:000000;text-decoration:none;}
A:Visited {color:000000;text-decoration:none;}
A:Hover {color:F70404;}
</style>
</HEAD>
<BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#000000" VLINK="#000000" ALINK="#F70404">
<b><font face="Verdana, Arial, Helvetica, sans-serif" size="1">VERİLERİM</font>
<HR WIDTH=100% size=1 COLOR="#000000">
<a href="?i=8&b_harf=A">A</a>|<a href="?i=8&b_harf=B">B</a>|<a href="?i=8&b_harf=C">C</a>|<a href="?i=8&b_harf=Ç">Ç</a>|<a href="?i=8&b_harf=D">D</a>|<a href="?i=8&b_harf=E">E</a>|<a href="?i=8&b_harf=F">F</a>|<a href="?i=8&b_harf=G">G</a>|<a href="?i=8&b_harf=H">H</a>|<a href="?i=8&b_harf=I">I</a>|<a href="?i=8&b_harf=İ">İ</a>|<a href="?i=8&b_harf=J">J</a>|<a href="?i=8&b_harf=K">K</a>|<a href="?i=8&b_harf=L">L</a>|<br><a href="?i=8&b_harf=M">M</a>|<a href="?i=8&b_harf=N">N</a>|<a href="?i=8&b_harf=O">O</a>|<a href="?i=8&b_harf=Ö">Ö</a>|<a href="?i=8&b_harf=P">P</a>|<a href="?i=8&b_harf=R">R</a>|<a href="?i=8&b_harf=S">S</a>|<a href="?i=8&b_harf=Ş">Ş</a>|<a href="?i=8&b_harf=T">T</a>|<a href="?i=8&b_harf=U">U</a>|<a href="?i=8&b_harf=Ü">Ü</a>|<a href="?i=8&b_harf=V">V</a>|<a href="?i=8&b_harf=Y">Y</a>|<a href="?i=8&b_harf=Z">Z</a>|
<HR WIDTH=100% size=1 COLOR="#000000">
<%
B = ("319.01.001.01")
K = ("319.01.999.99")
b_harf = Request("b_harf" )

dim i

Set Bag = Server.CreateObject("ADODB.Connection" )
Bag.Open ("Driver={SQL Server};" & "Server=BIZIMSERVER;" & _
"Address=000.000.000.000,0000;" & _
"Network=DBMSSOCN;" & _
"Database=veritabanım;" & _
"Uid=sa;")

Set RS = Server.CreateObject("ADODB.RecordSet" )
RS.Open "SELECT * KARTLARIM WHERE CODE > '" & B & "'AND CODE < '" & K & "' AND DEFINITION_ LIKE '" & b_harf & "%' " ,BAG,1,3

sayfa = Request.QueryString("sayfa" )

If sayfa="" Then sayfa=1
rs.pagesize = 20
rs.absolutepage = sayfa
sayfa_sayisi = rs.pagecount
For i=1 To rs.pagesize
If rs.Eof Then
exit for
End If
%>
<a href="rapor.asp?verilerim=<%=RS("DEFINITION_")%>" target="main">
<IMG SRC="images/folder.gif" BORDER="0" ALT="<%=RS("DEFINITION_")%>"></A>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<a href="rapor.asp?verilerim=<%=RS("DEFINITION_")%>" target="main"><%=RS("DEFINITION_")%></A><BR>
<%
rs.Movenext
Next
%>
<HR WIDTH=100% size=1 COLOR="#000000">
<%
response.Write "Sayfa: "
For g = 1 to sayfa_sayisi
If g = CInt(sayfa) Then
response.write g& " "

Else
response.Write "<a href=menu1.asp?sayfa=" & g & "&b_harf=" & b_harf & ">" & g & "</a> "
End If

Next

rs.Close
Set rs = Nothing
%>
<HR WIDTH=100% size=1 COLOR="#000000">
</b>
</FONT>
</body>
</html>

Alfabetik ve Sayfa Sayfa Sıralama

ogunbalkan

ogunbalkan