Aspde Sayfalama Yapmak

03-07-2006, 18:09:51

Üyeliği durduruldu

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

Aspde sayfalama yapmak için küçük bir kod

30-09-2006, 05:18:43

#2

~~caferta~~

Üyeliği durduruldu

sağolasın teşekkürler

03-10-2006, 14:01:32

#3

~~CeSuR~~

Üyeliği durduruldu

Anlatımın Biraz Karışık geldi..
Böyle yaparsak daha düzgün olur

Alıntı

<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/db#.mdb")

Set rs = server.CreateObject("adodb.recordset")
rs.open "Select * from TABLE",baglanti,1,3

if rs.eof or rs.bof then
response.Write "Henüz Bir içerik Yok"
else
pg = Request("pg")
if pg="" then
pg="1"
end if
rs.pagesize = "10" 'Hersayfada kaç kayıt gösterileceği
rs.absolutepage = pg
sayfa = rs.pagecount
if rs.eof then exit for
%>

<%=rs("Veri")%>

<% rs.movenext
Next
rs.close
%>
<b>Sayfalar :</b>
<%
for y=1 to sayfa
if CINT(TRIM(pg))=CINT(TRIM

) then%>
<b><%response.write "" & y %></b><%
else
response.write " <a href=""?pg="&y&""">" & y & "</a> "
end if
Next
End if
%>

------
Küçük Bir ayrıntı Daha Database isminizin sonuna # ( diez ) işareti koyarsanız db yolunuz bilinse dahi explorer üzerinden veritabanınız çekilemez

Örnek : database#.mdb

03-10-2006, 18:02:43

#4

SweetDreams

Misafir

CeSuR adlı üyeden alıntı: mesajı görüntüle

Küçük Bir ayrıntı Daha Database isminizin sonuna # ( diez ) işareti koyarsanız db yolunuz bilinse dahi explorer üzerinden veritabanınız çekilemez

Örnek : database#.mdb

Hımm. bunu öğrenmem iyi oldu. ilk defa duyuyorum. teşekkürler.

gerçi benim database isimlerini tahmin edemezler. ben bile bilmiyorum. 20-25 karakter sallıyorum klavyeden. db ismi oluyor.

03-10-2006, 21:26:43

#5

~~CeSuR~~

Üyeliği durduruldu

Evet bende önceden abuk subuk db isimleri veriyordum