doan code hien thi du lieu theo chieu ngang va cach phan trang

doan code hien thi du lieu theo chieu ngang va cach phan trang
Trả lời Liên hệ

";

// Tiến hành in từng trang //

for ($i=1; $i<=$number_of_page; $i++)

{

// Nếu $i bằng $page hiện giờ sẽ in đậm để nhận biết đang xem trang nào //

if ($i==$page)

{

$list_page.="

";

}

// Ngược lại... //

else

{

$list_page.="

";

}

}

}

// Liệt kê tất cả các dòng trong 1 table //

$i=0;

while ($rows=mysql_fetch_array($result))

{

if ($i>=$page_start)

{

echo $rows["".$field_name.""];

echo("
");

}

$i++;

if ($i>=$page_end)

{

break;

}

}

// Ở trên ta đã nạp nội dung cho biến $list_page, bây giờ thì in nó ra: //

echo("

view plaincopy to clipboardprint? $db_host=""; $db_username=""; $db_password=""; $db_name=""; $table_name=""; $field_name=""; mysql_connect("$db_host", "$db_username", "$db_password") or die("Không thể kết nối"); mysql_select_db("$db_name") or die("Không thể chọn database"); // Page = kiểm tra xem biến page có tồn tại hay không [?], nếu tồn tại thì lấy giá trị của biến này và dùng hàm intval lọc dể nhận được giá trị an toàn [:]. Còn nếu không thì sẽ có giá trị mặc định là 1 // $page=isset($_GET["page"])?intval($_GET["page"]):1; // Số dòng trên 1 trang // $rows_per_page=3; // Tính số dòng ở trang mở đầu dựa theo biến $page // $page_start=($page-1)*$rows_per_page; // Tính số dòng ở trang cuối dựa theo biến $page // $page_end=$page*$rows_per_page; // Ví dụ về trang mở đầu và trang cuối theo công thức trên: Giả sử trang đang xem hiện giờ là 1, ta đc: $page_start=(1-1)*20=0. Còn $page_end=1*20=20, vậy ta có giá trị 0 là mở đầu và 20 là kết thúc // // Truy xuất vào $table_name // $query="select * from ".$table_name.""; $result=mysql_query($query); $num_rows=mysql_num_rows($result); // Tính toán số trang, cách làm như sau: "$num_rows" là lấy tổng số dòng của table đã truy xuất [1] "$rows_per_page" là bằng 20 (giá trị mà ta đặt ở trên) [2]. Lấy [1] chia cho [2] ta sẽ ra được số trang. Để làm tròn các giá trị từ (x.1 -> x.9 thành 1+x) ta dùng hàm ceil() // $number_of_page=ceil($num_rows/$rows_per_page); // Nếu số trang lớn hơn 1 thì sẽ tiến hành liệt kê các trang // if ($number_of_page>1) { $list_page="

Trang:

".$i."

".$i."

".$list_page."

");

?>

Trong ASP bạn làm như sau:view plaincopy to clipboardprint?

1. 
   
2. 
   
3. <%
   
4. 'Lấy số thứ tự trang
   
5. dim PageNo
   
6. PageNo= request.querystring("PageNo")
   
7. if PageNo="" then
   
8. PageNo=1
   
9. end if
   
10. 
    
11. 'Lấy dữ liệu từ CSDL
    
12. dim rs
    
13. set rs=server.createObject("ADODB.Recordset")
    
14. sql="select * from TableName"
    
15. rs.PageSize=9
    
16. rs.open sql,conn,3,3
    
17. rs.AbsolutePage=PageNo
    
18. dim counter
    
19. counter=0
    
20. %>
    
21. 
    
    
    
    <%
    
    'Lặp để hiển thị
    
    do while not rs.EOF and counter
    counter=counter+1
    
    %>
    
    
    
    <%
    
    if counter mod 3 = 0 then
    
    Response.Write("
    ")
    
    end if
    
    
    
    rs.moveNext()
    
    loop
    
    %>
    
    
    
    
22. <% if PageNo>1 then %>
    
23. 
    
    
24. Previous
    
25. <%end if%>
    
26. <%
    
27. if not rs.EOF then
    
28. response.write " "
    
29. %>
    
30. Next
    
31. <% end if
    
32. rs.close
    
33. %>
    

<%
'Lấy số thứ tự trang
dim PageNo
PageNo= request.querystring("PageNo")
if PageNo="" then
PageNo=1
end if

'Lấy dữ liệu từ CSDL
dim rs
set rs=server.createObject("ADODB.Recordset")
sql="select * from TableName"
rs.PageSize=9
rs.open sql,conn,3,3
rs.AbsolutePage=PageNo
dim counter
counter=0
%>


<%
'Lặp để hiển thị
do while not rs.EOF and counter counter=counter+1
%>

<%
if counter mod 3 = 0 then
Response.Write("")
end if

rs.moveNext()
loop
%>


<% if PageNo>1 then %>


Previous
<%end if%>
<%
if not rs.EOF then
response.write " "
%>
Next
<% end if
rs.close
%>

NghiaVTN0810M:


minh can ngon ngu ASP

view plaincopy to clipboardprint?

1. <%
   
2. strconn = "DBQ="&server.MapPath("phantrang.mdb")& ";Driver={Microsoft Access Driver (*.mdb)}"
   
3. set conn = Server.CreateObject("ADODB.Connection") 'Tao doi tuong connect
   
4. 
   
5. set rs = Server.CreateObject("ADODB.RecordSet") 'Tao doi tuong RecordSet
   
6. 'Mo ket noi voi CSDL
   
7. conn.Open Strconn
   
8. 
   
9. %>
   
10. 
    
11. 
    
12. <%
    
13. 'sqlStr="SELECT ProductID,productCode,ProductType,ProductName,Prod uctDescription,ProductImageURL,UnitPrice,ProductIn troductionDate FROM Tbl_Products "
    
14. sqlStr="SELECT * FROM Tbl_Products "
    
15. 
    
16. 
    
17. ' page navigate session here ...........
    
18. Dim lCurrentPage
    
19. Dim lPageCount
    
20. lCurrentPage = CLng(Request("page"))
    
21. If lCurrentPage < 1 Then
    
22. lCurrentPage = 1
    
23. End If
    
24. 
    
25. rs.CursorLocation = 3
    
26. rs.PageSize = 3
    
27. rs.Open sqlStr, conn, 0, 1 'Const adOpenForwardOnly = 0, Const adLockReadOnly = 1
    
28. lPageCount = rs.PageCount
    
29. If lCurrentPage > lPageCount Then
    
30. lCurrentPage = lPageCount
    
31. End If
    
32. if not rs.eof then
    
33. rs.AbsolutePage = lCurrentPage
    
34. end if
    
35. ' end .........
    
36. %>
    
37. 
    
38. 
    
39. 
    
40. 
    
41. <% call ShowPageNavigation(lCurrentPage,lPageCount)%>
    
42. 
    
43. 
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    <%
    
    k=1 'Dung de xu ly mau cua moi cot trong bang
    
    Do While rs.AbsolutePage = lCurrentPage And Not rs.Eof
    
    %>
    
    >
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    <%
    
    k=k + 1
    
    rs.movenext
    
    loop
    
    %>
    

    productCode	ProductType	ProductName	ProductDescription	ProductImageURL	UnitPrice	ProductIntroductionDate	Modify	Remove
    <%=rs("productCode")%>	<%=rs("ProductType")%>	<%=rs("ProductName")%>	<%=rs("ProductDescription")%>	<%=rs("ProductImageURL")%>	<%=rs("UnitPrice")%>	<%=rs("ProductIntroductionDate")%>	">edit	">delete

    
    
44. 
    
45. 
    
46. 
    
47. 
    
48. 
    
49. 
    
50. 
    
51. <%
    
52. Sub ShowPageNavigation (lCurrentPage,lPageCount)
    
53. %>
    
54. 
    
55. <%
    
56. If lCurrentPage <> 1 AND lCurrentPage <> 0 Then
    
57. %>
    
58. Previous
    
59. <%
    
60. Else
    
61. %>
    
62. Previous
    
63. <%
    
64. End If
    
65. %>
    
66.     
    
67. <%
    
68. If lCurrentPage < lPageCount Then
    
69. %>
    
70. Next
    
71. <%
    
72. Else
    
73. %>
    
74. Next
    
75. <%
    
76. End If
    
77. %>
    
78. 
    
    
79. Page [ <%= lCurrentPage%>
    
80. of <%= lPageCount%> ]
    
81. 
    
82. [
    
83. 
    
84. <%
    
85. i=1
    
86. do while i <= lPageCount
    
87. %>
    
88. <%=i%>
    
89. <%
    
90. i = i + 1 'Tang i chi de hien thi so lan luot cac trang tu 1-> lPageCount
    
91. loop
    
92. %>
    
93. ]
    
94. 
    
95. 
    
96. <%
    
97. End Sub
    
98. %>
    
99. 
    
100. 
     
101. function setValue(page){
     
102. viewFrm.page.value= page;
     
103. viewFrm.submit();
     
104. }
     
105. 
     
106. 
     
107. 
     
108. 
     
109. 
     

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




<% call ShowPageNavigation(lCurrentPage,lPageCount)%>













<%
k=1 'Dung de xu ly mau cua moi cot trong bang
Do While rs.AbsolutePage = lCurrentPage And Not rs.Eof
%>
>










<%
k=k + 1
rs.movenext
loop
%>

productCode	ProductType	ProductName	ProductDescription	ProductImageURL	UnitPrice	ProductIntroductionDate	Modify	Remove
<%=rs("productCode")%>	<%=rs("ProductType")%>	<%=rs("ProductName")%>	<%=rs("ProductDescription")%>	<%=rs("ProductImageURL")%>	<%=rs("UnitPrice")%>	<%=rs("ProductIntroductionDate")%>	">edit	">delete

<%
Sub ShowPageNavigation (lCurrentPage,lPageCount)
%>

<%
If lCurrentPage <> 1 AND lCurrentPage <> 0 Then
%>
Previous
<%
Else
%>
Previous
<%
End If
%>
    
<%
If lCurrentPage < lPageCount Then
%>
Next
<%
Else
%>
Next
<%
End If
%>


Page [ <%= lCurrentPage%>
of <%= lPageCount%> ]

[

<%
i=1
do while i <= lPageCount
%>
<%=i%>
<%
i = i + 1 'Tang i chi de hien thi so lan luot cac trang tu 1-> lPageCount
loop
%>
]


<%
End Sub
%>


function setValue(page){
viewFrm.page.value= page;
viewFrm.submit();
}








TK:freecodevn