Diễn đàn kết nối công nghệ thông tin
Chào mừng các bạn đến với diễn đàn Hiện tại bạn chưa đăng ký làm thành viên của chúng tôi nên chỉ có thể xem mà không thể tham gia vào các thảo luận của nhung thành viên .Đăng ký làm thành viên rất nhanh chóng, đơn giản và miễn phí, hãy tham gia làm thành viên của chúng tôi và cùng thảo luận về mọi đề tài trong cuộc sống. Chúc các bạn có những giây phút vui vẻ "cDiễn đàn kết nối công nghệ thông tin".



 
Trang ChínhPortalCalendarTrợ giúpThành viênNhómĐăng kýĐăng Nhập
Welcome to our forums!->BE ACTIVE AND RESPECT OTHERS!

Share | 
 

 Code phân trang trong ASP!

Go down 
Tác giảThông điệp
Admin
Admin
avatar

Tổng số bài gửi : 81
Join date : 03/03/2010
Đến từ : Bắc ninh

Bài gửiTiêu đề: Code phân trang trong ASP!   Fri Mar 19, 2010 2:21 am

<%
strconn = "DBQ="&server.MapPath("phantrang.mdb")& ";Driver={Microsoft Access Driver (*.mdb)}"
set conn = Server.CreateObject("ADODB.Connection") 'Tao doi tuong connect

set rs = Server.CreateObject("ADODB.RecordSet") 'Tao doi tuong RecordSet
'Mo ket noi voi CSDL
conn.Open Strconn

%>


<%
'sqlStr="SELECT ProductID,productCode,ProductType,ProductName,Prod uctDescription,ProductImageURL,UnitPrice,ProductIn troductionDate FROM Tbl_Products "
sqlStr="SELECT * FROM Tbl_Products "


' page navigate session here ...........
Dim lCurrentPage
Dim lPageCount
lCurrentPage = CLng(Request("page"))
If lCurrentPage < 1 Then
lCurrentPage = 1
End If

rs.CursorLocation = 3
rs.PageSize = 3
rs.Open sqlStr, conn, 0, 1 'Const adOpenForwardOnly = 0, Const adLockReadOnly = 1
lPageCount = rs.PageCount
If lCurrentPage > lPageCount Then
lCurrentPage = lPageCount
End If
if not rs.eof then
rs.AbsolutePage = lCurrentPage
end if
' end .........
%>

<html>

<!--Goi ham ShowPageNavigation-->
<% call ShowPageNavigation(lCurrentPage,lPageCount)%>

<table border="1" width="120%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="10%" bgcolor="#FBE2BD">productCode</td>
<td width="10%" bgcolor="#FBE2BD">ProductType</td>
<td width="10%" bgcolor="#FBE2BD">ProductName</td>
<td width="10%" bgcolor="#FBE2BD">ProductDescription</td>
<td width="10%" bgcolor="#FBE2BD">ProductImageURL</td>
<td width="7%" bgcolor="#FBE2BD">UnitPrice</td>
<td width="10%" bgcolor="#FBE2BD">ProductIntroductionDate</td>
<td width="10%" bgcolor="#FBE2BD"><b>Modify</b></td>
<td width="10%" bgcolor="#FBE2BD"><b>Remove</b></td>
</tr>
<%
k=1 'Dung de xu ly mau cua moi cot trong bang
Do While rs.AbsolutePage = lCurrentPage And Not rs.Eof
%>
<tr <%if (k mod 2=0) then Response.write "bgcolor=#EFEFEF"%> >
<td width="9%"><%=rs("productCode")%></font></td>
<td width="10%"><%=rs("ProductType")%></font></td>
<td width="10%"><%=rs("ProductName")%></font></td>
<td width="14%"><%=rs("ProductDescription")%></font></td>
<td width="14%"><%=rs("ProductImageURL")%></font></td>
<td width="7%">
<div align="center"><%=rs("UnitPrice")%></font></div>
</td>
<td width="16%"><%=rs("ProductIntroductionDate")%></font></td>
<td width="10%"><a href="product_eTôi nói bậyTôi nói bậyTôi nói bậyFrm.asp?ProductID=<%=rs("Product ID")%>">eTôi nói bậyTôi nói bậyTôi nói bậy</a></font></td>
<td width="10%"><a href="product_admin.asp?option=delete&amp;ProductI D=<%=rs("ProductID")%>">delete</a></font></td>
</tr>
<%
k=k + 1
rs.movenext
loop
%>
</table>


<form name="viewFrm" >
<input type=hidden name=page >
</form>

<!--Dinh nghia ham ShowPageNavigation -->
<%
Sub ShowPageNavigation (lCurrentPage,lPageCount)
%>
<center>
<%
If lCurrentPage <> 1 AND lCurrentPage <> 0 Then
%>
<A HREF="javascript:setValue('<%= lCurrentPage - 1 %>');"><B><SMALL>Previous</font></SMALL></B></A>
<%
Else
%>
<B><SMALL>Previous</SMALL></B>
<%
End If
%>
&nbsp;&nbsp;&nbsp;&nbsp;
<%
If lCurrentPage < lPageCount Then
%>
<A HREF="javascript:setValue('<%= lCurrentPage + 1%>');"><B><SMALL>Next</font></SMALL></B></A>
<%
Else
%>
<B><SMALL><font size="1">Next</font></SMALL></B>
<%
End If
%>
<br>
Page <B>[ <%= lCurrentPage%> </B>
</font>of <B> <%= lPageCount%> ]</B></font>

<b>[</b>

<%
i=1
do while i <= lPageCount
%>
<b><A HREF="javascript:setValue('<%= i%>');"><b><%=i%></b></a></b>
<%
i = i + 1 'Tang i chi de hien thi so lan luot cac trang tu 1-> lPageCount
loop
%>
<b>]</b>

</CENTER>
<%
End Sub
%>

<script language=javascript>
function setValue(page){
viewFrm.page.value= page;
viewFrm.submit();
}
</script>


</html>

http://thanhthekids.info
Về Đầu Trang Go down
Xem lý lịch thành viên http://diendanit.4forum.biz
 
Code phân trang trong ASP!
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Code Trove
» Đặt phòng khách sạn giá ưu đãi tại Nha Trang
» Quy Định Về Cấp Bậc Trong Diễn Đàn
» bán đất nghĩa trang Sơn Trang tiên cảnh
» Bán nhà tại Nha Trang-ĐT : 0903585440 (Gặp Anh Hoà)

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn kết nối công nghệ thông tin :: Bản Tin Forum :: Học Tập-
Chuyển đến