Tài liệu Bài thực hành số 5: Báo điện tử ppt

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (339.09 KB, 10 trang )

Bài thực hành số 5: Báo điện tử ADO, Phân trang với Recordset
1. Taoh CSDL HOSO.MDB và thiết kế bảng dữ liệu BAIVIET có cấu trúc như sau:

2. Thiết kế trang Default.asp cho phép hiển thị bảng BAIVIET theo dạng trang báo điện
tử như sau:
- Nếu người dùng nhấn liên kết Viết bài sẽ cho phép chuyển đến trang
cap_nhat_bai_viet.asp để viết một bài mới
- Nếu người dùng nhấn liên kết Quản trị bài viết sẽ cho phép chuyển đến trang
Quan_tri_bai_viet.asp cho phép thêm mới, xoá, sửa các bài đã viết
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên
1
Bài thực hành số 5: Báo điện tử ADO, Phân trang với Recordset
3. Thiết kế trang cap_nhat_bai_viet.asp như sau:
Ghi chú: Giả sử các file ảnh đã có sẵn trong thư mục gốc của ứng dụng web. Tại mục
Tên file ảnh chỉ cần nhập tên file (không cần nhập đường dẫn) ví dụ: Picture1.jpg
4. Thiết kế trang Quan_tri_bai_viet.asp như sau:
- Nếu người dùng đánh dấu chọn một số bài viết nào đó và nhấn nút xoá thì các
bài viết được chọn sẽ bị xoá khỏi CSDL
- Nếu nhấn vào tiêu đề của bài viết (tại trang quản trị) sẽ cho phép sửa nội dung
bài viết (chuyển đến trang SuaBaiviet.asp)
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên
2
Bài thực hành số 5: Báo điện tử ADO, Phân trang với Recordset
5. Thiết kế trang SuaBaiviet.asp như sau:
THAM KHẢO MÃ NGUỒN CÁC FILE ASP NHƯ SAU
Connection.inc
<%
StrConn="Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & server.mappath("Hoso.mdb")
Set conn=Server.CreateObject("ADODB.Connection")
Conn.open StrConn

Set RS=server.CreateObject("ADODB.Recordset")
%>
Default.asp

<%
StrSQL="Select * from Baiviet"
rs.cursorLocation=3
rs.Pagesize=3
rs.open strSQL,conn,0,1
if request("ViewPage")<>"" then
Session("CurrentPage")=cint(request("ViewPage"))
else
Session("CurrentPage")=cint(Session("CurrentPage"))+Request("Page")
end if
if cint(session("CurrentPage"))<1 then
session("CurrentPage")=1
end if
if cint(session("CurrentPage"))>rs.pagecount then
session("CurrentPage")=rs.pagecount
end if
if not rs.eof then
rs.absolutePage=session("CurrentPage")
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên
3
Bài thực hành số 5: Báo điện tử ADO, Phân trang với Recordset
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">

</td>
</tr>
<tr>
<td width="102" height="21">
<img border="0" src=<%=server.mappath(rs.fields("FileAnh"))%> width="112"
height="109"></td>
<td width="564" height="21" colspan="2"><%=rs.fields("NDTomTat")%></td>
</tr>
<tr>
<td width="672" colspan="3" height="21">

GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên
4
Bài thực hành số 5: Báo điện tử ADO, Phân trang với Recordset

<a href=NDChitiet.asp?IDBaiviet=<%=rs.fields("Mabaiviet")%> target="_blank">Chi
tiet...</a>
</td>
</tr>
<%
rs.movenext
wend
%>
<tr>
<td width="102">
<%if cint(session("CurrentPage"))>1 then%>
<a href=default.asp?Page=-1>Trang truoc</a>
<%end if%>
</td>

<td width="130">
<%
if (cint(session("CurrentPage"))+2)<=rs.pagecount then
for i=cint(session("CurrentPage")) to cint(session("CurrentPage"))+2
'response.write " "
%>
  <a href=default.asp?ViewPage=<%=i%>> <%=i%> </a>
<%
next
else
for i=cint(session("CurrentPage")) to rs.pagecount
'response.write " ; "
%>
  <a href=default.asp?ViewPage=<%=i%>> <%=i%> </a>
<%
next
end if
%>
  ...
</td>
<td width="428">
<%if cint(session("CurrentPage"))<Rs.PageCount then%>
<a href=default.asp?Page=1>Trang sau</a>
<%
end if
rs.close
%>
</td>
</tr>
</table>

</body>
</html>
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên
5

Tài liệu Bài thực hành số 5: Báo điện tử ppt

Tài liệu liên quan

Tài liệu bạn tìm kiếm đã sẵn sàng tải về