*********** REPLY SEPARATOR ***********
On 09/03/00 at 9:19 Muhammad Budhi Purwanto wrote:
>Friends,
>
>Bagaimana script .ASP untuk menampilkan data sebagian-sebagian dari database
>SQL, misal dari 300 data ditampilkan 10 data dahulu kemudian tekan button
>next untuk 10 data berikut/page berikut dst..dan ada pilihan button
>"previous" & "next". pada page berikutnya...?
>Mohon penjelasan dari rekan-rekan ....?
>
Paging....
ini ada salah satu cara untuk paging..
cara yg lain masih ada..
coba kayak gini :
<%
scriptName = Request.ServerVariables("script_name")
SQLQuery = "SELECT * FROM tblHarga ORDER BY harga"
pageSize = 10 ' jumlah tampil per halaman..
pageNo = Request("pageNo")
if pageNo = "" then pageNo = 1
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open SQLQuery, "FILEDSN", 3 ' or DSNLess
RS.PageSize = pageSize
pageCounter = pageSize
if not RS.EOF then
RS.AbsolutePage = pageNo
end if
Do while not RS.EOF AND pageCounter > 0 %>
<%=RS("Nama") ' field 1%><br>
<%=RS("Harga") ' field 2%><%
RS.MoveNext
pageCounter = pageCounter - 1
Loop%>
<table border="0" width="100%"><%
if pageCounter <= 0 then
if pageNo <> 1 then %>
<tr>
<td align="left" width="10"><a href="<%= scriptName
%>?pageNo=<%=pageNo - 1%>">Prev</a></td>
<td align="center"><%
for i = 1 to RS.PageCount
if i = int(pageNo) then%>
<b><%=i%></b><%
else%>
<a href="<%= script_name %>?pageNo=<%=i%>"><%=i%></a><%
end if
next%>
</td>
<td align="right" width="10"><a href="<%= scriptName %>?pageNo=<%=pageNo +
1%>">Next</a></td>
</tr><%
else%>
<tr>
<td align="left" width="10"> </td>
<td align="center"><%
for i = 1 to RS.PageCount
if i = int(pageNo) then%>
<b><%=i%></b><%
else%>
<a href="<%= scriptName %>?pageNo=<%=i%>"><%=i%></a><%
end if
next%>
</td>
<td align="right" width="10"><a href="<%= scriptName
%>?pageNo=<%=pageNo + 1%>">Next</a></td>
</tr><%
end if
elseif pageNo <> 1 then%>
<tr>
<td align="left" width="10"><a href="<%= scriptName
%>?pageNo=<%=pageNo - 1%>">Prev</a></td>
<td align="center"><%
for i = 1 to RS.PageCount
if i = int(pageNo) then%>
<b><%=i%></b><%
else%>
<a href="<%= scriptName %>?pageNo=<%=i%>"><%=i%></a><%
end if
next%>
</td>
<td align="right" width="10"> </td>
</tr><%
end if
Set RS = Nothing%>
</table>
script diatas so far so good tapi masih ada bugnya kalo jumlah recordnya hapis dibagi
dengan jumlah yg tampil per halaman
script tsb masih akan menampilkan satu halaman lagi sesudahnya..
kalau punya buku ttg ASP sepertinya ad deh teknik paging di buku tsb..
Regards
BiG
- Kirim bunga untuk handaitaulan & relasi di jakarta www.indokado.com
-- Situs sulap pertama di Indonesia http://www.impact.or.id/dmc-sulap/
To unsubscribe, e-mail : [EMAIL PROTECTED]
To subscribe, e-mail : [EMAIL PROTECTED]
Netika BerInternet : [EMAIL PROTECTED]
