Lời đầu tiên tất cả thành viên nhóm 5 xin gửi lời chào đến thầy và các bạn 
sinh viên trong lớp DL08TH. Kính chúc thầy cùng các bạn sinh viên nhiều sức khoẻ 
để thành công trong cuộc sống. Nhóm 5 rất hân hạnh khi nhận làm đề tài về thiết kế 
trang web. Xuất phát từ nhu cầu thực tiễn trong nghề nghiệp là giáo viên nên nhóm 
chúng tôi chọn đề tài thiết kế web cho một trường học. Với lòng nhiệt quyết ham 
học hỏi và sáng tạo nhóm chúng tôi đã cùng nhau thảo luận. Sau một thời gian làm 
thử nghiệm, cuối cùng nhóm chúng tôi đã cơ bản hoàn thành đề tài được giao.trang 
web của nhóm 5 chúng tôi làm có tên là “Trường THCS Phan Chu Trinh”.
Lần đầu tiên làm đề tài web mang tính chuyên môn cao, cùng với vốn kiến 
thức còn hạn chế và thời gian tìm hiểu rất ít; do đa số thành viên trong nhóm đều 
phải đi làm hằng ngày, nên chắc hẳn đề tài của chúng tôi còn rất nhiều điểm thiếu 
sót và hạn chế. Rất mong được sự đóng góp ý kiến tận tình của thầy cùng các bạn 
trong lớp để đề tài của nhóm chúng tôi được hoàn thiện hơn. 
              
                                            
                                
            
 
            
                 23 trang
23 trang | 
Chia sẻ: luyenbuizn | Lượt xem: 1477 | Lượt tải: 1 
              
            Bạn đang xem trước 20 trang nội dung tài liệu Báo cáo môn lập trình web1: Website thông tin cho trường TH Cơ sở, để xem tài liệu hoàn chỉnh bạn click vào nút DOWNLOAD ở trên
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 1 
 MỤC LỤC Trang 
I. LỜI NÓI ĐẦU VÀ LÝ DO CHỌN ĐỀ TÀI 2 
II. GIỚI THIỆU NHÓM 2 
III. MÔ TẢ CHƯƠNG TRÌNH VÀ CÔNG CỤ SỬ DỤNG 2 
IV. CÁC BIỂU MẪU LIÊN QUAN 3 
V. SƠ ĐỒ CHỨC NĂNG 6 
VI. THIẾT KẾ GIAO DIỆN 8 
VII. CÁC BẢNG CƠ SỞ DỮ LIỆU 11 
VIII. THỰC HIỀN 12 
IX. LỜI KẾT 13 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 2 
I - LỜI NÓI ĐẦU: 
Lời đầu tiên tất cả thành viên nhóm 5 xin gửi lời chào đến thầy và các bạn 
sinh viên trong lớp DL08TH. Kính chúc thầy cùng các bạn sinh viên nhiều sức khoẻ 
để thành công trong cuộc sống. Nhóm 5 rất hân hạnh khi nhận làm đề tài về thiết kế 
trang web. Xuất phát từ nhu cầu thực tiễn trong nghề nghiệp là giáo viên nên nhóm 
chúng tôi chọn đề tài thiết kế web cho một trường học. Với lòng nhiệt quyết ham 
học hỏi và sáng tạo nhóm chúng tôi đã cùng nhau thảo luận. Sau một thời gian làm 
thử nghiệm, cuối cùng nhóm chúng tôi đã cơ bản hoàn thành đề tài được giao.trang 
web của nhóm 5 chúng tôi làm có tên là “Trường THCS Phan Chu Trinh”. 
 Lần đầu tiên làm đề tài web mang tính chuyên môn cao, cùng với vốn kiến 
thức còn hạn chế và thời gian tìm hiểu rất ít; do đa số thành viên trong nhóm đều 
phải đi làm hằng ngày, nên chắc hẳn đề tài của chúng tôi còn rất nhiều điểm thiếu 
sót và hạn chế. Rất mong được sự đóng góp ý kiến tận tình của thầy cùng các bạn 
trong lớp để đề tài của nhóm chúng tôi được hoàn thiện hơn. 
II - CÁC THÀNH VIÊN TRONG NHÓM 5 CÙNG THAM GIA LÀM ĐỀ TÀI 
Nhóm 5 lớp DL08TH khóa học 2008- 2010 gồm các thành viên: 
- Lê Nguyễn Hoàng Vũ 
- Phạm Đức Minh Hải 
- Nguyễn Thăng Thành 
- Trần Thị Thúy Phượng 
- Trần Thị Dung 
III-MÔ TẢ CHƯƠNG TRÌNH, TÀI LIỆU THAM KHẢO VÀ CÔNG 
CỤ SỬ DỤNG: 
-Trang web trường THCS Phan Chu Trinh có các trang chính: trang chủ, trang đăng 
nhập, trang đăng ký, trang giới thiệu, trang liên hệ góp ý, trang xem điểm, trang tin 
tức và trang quản trị. 
Công việc chính của Website: 
 + Giới thiệu về tổ chức nhà trường. 
 + Phát sinh thành viên mới đăng ký. 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 3 
 + Cho phép thành viên được viết góp ý, xem và sửa thông tin đăng nhập của cá 
nhân. 
 + Cho phép người quản trị thêm/xóa /sửa dữ liệu trong CSDL, quản lý thành viên, 
xem góp ý. 
 + Tìm kiếm thông tin giáo dục qua các website liên kết. 
-Trong quá trình thực hiện đề tài, nhóm 5 có sử dụng một số tài liệu tham khảo như: 
Giáo trình VB 6.0, giáo trình lập trình web asp.net, và một số tài liệu khác trên 
mạng. 
- Công cụ sử dụng: Ngôn ngữ lập trình Vb.net 2005, microsoft access, notepad… 
IV-CÁC BIÊU MẪU LIÊN QUAN: 
A. ADMIN : 
1.Biểu mẫu 1 :thêm thông tin vào dữ liệu 
2.Biểu mẫu 2 : Quản lý thành viên 
 3.. Biểu mẫu 3 : xử lý góp ý 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 4 
4. Biểu mẫu 4 : thay đổi mật khẩu của quản trị 
B.THÀNH VIÊN : 
 1. Biểu mẫu 1 :Đăng Ký 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 5 
2.Biểu mẫu 2 : Đăng nhập 
 3.Biểu mẫu 3 : Góp ý 
4.Biểu mẫu 4 : Sửa thông tin đăng nhập 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 6 
V - SƠ ĐỒ CHỨC NĂNG : 
A. ADMIN: 
BẮT ĐẦU 
ĐĂNG 
NHẬP 
Admin 
Thoát 
Thay đổi mật 
khẩu 
Xử lý góp ý 
Quản lý thành viên 
Cập nhật thông 
tin 
Phân quyền 
người dùng 
Xem 
trang 
khác 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 7 
B. THÀNH VIÊN: 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 8 
VI – THIẾT KẾ GIAO DIỆN: 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 9 
1. TRANG CHỦ 
MENU chính gồm có: 
- Trang chủ 
- Trang giới thiệu 
- Trang tin tức sự kiện 
- Trang các tổ chuyên môn 
- Trang hỗ trợ học sinh 
- Trang liên hệ 
- Đăng ký 
- Đăng nhập 
Các thành phần phụ : 
- Trang “Cổng thông tin” thi và tuyển sinh. 
- Liện kết website. 
- Trang mạng giáo dục “edu.com” 
- Trang thư viện 
- Imports System.Data 
- Imports System.Data.OleDb 
- Imports System.IO 
- Partial Class TrangChu 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 10 
- Inherits System.Web.UI.Page 
- Public conn As New OleDbConnection() 
- Public code As New ConnectionDB() 
- Protected Sub Page_Load(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles Me.Load 
- Session("noidung") = "" 
- 'If Not IsPostBack Then 
- ketnodulieu() 
- ' End If 
- End Sub 
- Sub ketnodulieu() 
- conn = code.Conn() 
- Dim docghi As OleDbDataAdapter 
- docghi = New OleDbDataAdapter("select * from TinTuc", 
conn) 
- Dim dataset As DataSet = New DataSet() 
- docghi.Fill(dataset, "TinTuc") 
- DataList_TinTuc.DataSource = 
dataset.Tables("TinTuc").DefaultView 
- DataList_TinTuc.DataBind() 
- End Sub 
- Protected Sub DataList_TinTuc_ItemDataBound(ByVal sender 
As Object, ByVal e As 
System.Web.UI.WebControls.DataListItemEventArgs) Handles 
DataList_TinTuc.ItemDataBound 
- Dim dong As Integer = e.Item.ItemIndex 
- If dong < 0 Then Exit Sub 
- 
- Dim TieuDe As Label 
- TieuDe = e.Item.FindControl("Label_NoiDung") 
- TieuDe.Text = Left(e.Item.DataItem("TieuDe"), 120) & "..." 
- 
- Dim ChiTiet As HyperLink 
- ChiTiet = e.Item.FindControl("HyperLink_Xem") 
- 'Session("noidung") = e.Item.DataItem("NoiDung") 
- 'ChiTiet.NavigateUrl = "TrangChu.aspx" 
- ChiTiet.NavigateUrl = "~\TinTuc_TrangChu\" & 
e.Item.DataItem("NoiDung") 
- 
- Dim Hinh As HyperLink 
- Hinh = e.Item.FindControl("HyperLink_Hinh") 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 11 
- Hinh.ImageUrl = "~\image\" & e.Item.DataItem("Hinh") 
- End Sub 
- End Class 
2. TRANG GIỚI THIỆU 
3. TRANG ĐĂNG KÝ 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 12 
Thành viên đăng ký phải điền đầy đủ thông tin vào các ô: Tên đăng ký, mật 
khẩu, nhập lại mật khẩu, họ tên, ngày sinh, địa chỉ mail. Sau đó nhấp vào nút 
“Đăng ký” và chờ hiển thị thông báo “đăng ký thành công”. 
4. TRANG ĐĂNG NHẬP 
Gõ thông tin bạn đã đăng ký là thành viên để vào đăng nhập. 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 13 
Bạn có thể thay đổi thông tin đăng nhập của cá nhân ( ngoại trừ tên đăng 
nhập) 
* Lưu ý: nếu bạn đã đăng nhập rồi thì không được đăng nhập lại. Máy sẽ 
thông báo lỗi “ Bạn đã đăng nhập”. 
5. TRANG QUẢN TRỊ 
 Quản trị cũng có các quyền như các thành viên khác. Đồng thời có thêm các độc 
quyền sau: cập nhật thông tin lên trang web, xem và xóa thông tin thành viên, xem và xóa 
thư góp ý của thành viên. 
6. TRANG LIÊN HỆ GÓP Ý 
7. Imports System 
8. Imports System.Web 
9. Imports System.Web.UI 
10. Imports System.Web.UI.Control 
11. Imports System.Data 
12. Imports System.Data.OleDb 
13. Imports System.IO 
14. Partial Class MasterPage 'Lớp kế thừa MasterPage 
15. Inherits System.Web.UI.MasterPage 'Kế thừa 1 
lớp System.Web.UI.MasterPage (Chính nó) 
16. Public Code As New ConnectionDB() ' Khai báo 
và khởi tạo biến code kiểu là ConnectionDB() 
17. Public Conn As New OleDbConnection() 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 14 
18. Protected Sub Page_Load(ByVal sender As 
Object, ByVal e As System.EventArgs) Handles 
Me.Load 
19. label_Date.Text = Day(Now) & "-" & 
Month(Now) & "-" & Year(Now) 
20. ' label_Date.Text = 
Date.Today.ToString(dd / mm / yyyy) 
21. If (Session("DangNhapThanhCongAdmin") = 
True) Then 
22. Label2.Visible = True 
23. Label2.Text = "Chào mừng:" & " " & 
Session("TenDangNhap").ToString() & ". Bạn có 
quyền quản trị" 
24. Button1.Visible = True 
25. Button2.Visible = True 
26. Button2.Text = "Quản trị" 
27. End If 
28. If (Session("DangNhapThanhCongUser") = 
True) Then 
29. Label2.Visible = True 
30. Label2.Text = "Chào mừng thành 
viên:" & " " & Session("TenDangNhap").ToString() 
31. Button1.Visible = True 
32. Button2.Visible = True 
33. Button2.Text = "Sửa thông tin" 
34. End If 
35. If (Not IsPostBack = True) Then 
36. hienthiDropdownlistWeb() 
37. Conn = Code.Conn() 'Mở CSDL dựa vào 
hàm conn() trong lớp ConnectionDB() 
38. Dim StringSQL As String 
39. Dim DataSet1 As New DataSet 
40. Dim row, i As Integer 
41. StringSQL = "select Menu1 from 
Menu1" 
42. DataSet1 = 
Code.DataAdapter_DataSet(StringSQL, "Menu1") 'Buoc 
5 + 6 
43. 'Buoc 7 
44. i = 0 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 15 
45. row = 
DataSet1.Tables("Menu1").Rows.Count 'Biến row chứa 
tổng số dòng của dataset1 ở Tables("Menu1") 
46. If (row > 0) Then ' Kiểm tra sự tồn 
tại của dữ liệu 
47. While (i < row) ' Duyệt 
Tables("Menu1")của dataset1 
48. Dim Menu1 As String 
49. Dim MenuItem1 As New 
MenuItem() ' khai báo và khởi tạo biến MenuItem1 
kiểu MenuItem (dạng control) 
50. Dim i1, row1 As Integer 
51. Menu1 = 
DataSet1.Tables("Menu1").Rows(i)("Menu1").ToString
() ' Lấy dữ liệu kiểu string của dòng thứ i của 
cột Menu1 trong Tables("Menu1") của DataSet1 
52. MenuItem1.Text = Menu1 'Gán 
thuộc tính text của MenuItem1 là Menu1 
53. MenuDoc1.Items.AddAt(i, 
MenuItem1) 'add MenuItem1 vào vị trí thứ i trong 
MenuDoc1 
54. StringSQL = "select Menu2 
from Menu2 where Menu2.Menu1='" & Menu1 & "'" 
55. Dim DataSet2 As New DataSet 
56. DataSet2 = 
Code.DataAdapter_DataSet(StringSQL, "Menu2") 
57. i1 = 0 
58. row1 = 
DataSet2.Tables("Menu2").Rows.Count 
59. If (row1 > 0) Then 
60. While (i1 < row1) 
61. Dim Menu2 As String 
62. Dim MenuItem2 As New 
MenuItem() 
63. Menu2 = 
DataSet2.Tables("Menu2").Rows(i1)("Menu2").ToStrin
g() 
64. MenuItem2.Text = 
Menu2 
65. 
MenuDoc1.Items(i).ChildItems.AddAt(i1, MenuItem2) 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 16 
' add MenuItem2 vào vị trí thứ i1 ở Item thứ i 
trong MenuDoc1 
66. i1 = i1 + 1 
67. End While 
68. End If 
69. i = i + 1 
70. End While 
71. End If 
72. End If 
73. End Sub 
74. 
75. Protected Sub MenuDoc1_MenuItemClick(ByVal 
sender As Object, ByVal e As 
System.Web.UI.WebControls.MenuEventArgs) Handles 
MenuDoc1.MenuItemClick 
76. Dim menu As String 
77. menu = MenuDoc1.SelectedItem.Text 
78. Select Case menu 
79. Case "Trang Chủ" 
80. 
Response.Redirect("~/TrangChu.aspx") 
81. 
82. Case "Giới Thiệu" 
83. 
Response.Redirect("~/GioiThieu/GioiThieu.aspx") 
84. 
85. Case "Tin Tức & Sự Kiện" 
86. 
Response.Redirect("~/TinTuc_SuKien/TinGiaoDuc.aspx
") 
87. Case "Tin Giáo Dục" 
88. 
Response.Redirect("~/TinTuc_SuKien/TinGiaoDuc.aspx
") 
89. Case "Tin Nhà Trường" 
90. 
Response.Redirect("~/TinTuc_SuKien/TinNhaTruong.as
px") 
91. 
92. Case "Các Tổ Chuyên Môn" 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 17 
93. 
Response.Redirect("~/CacToChuyenMon/CacToChuyenMon
.aspx") 
94. Case "Tổ Toán" 
95. 
Response.Redirect("~/CacToChuyenMon/ToToan.aspx") 
96. Case ("Tổ Anh Văn") 
97. 
Response.Redirect("~/CacToChuyenMon/AnhVan.aspx") 
98. Case ("Tổ Lý - Tin") 
99. 
Response.Redirect("~/CacToChuyenMon/ToLy.aspx") 
100. Case ("Tổ Văn - Sử - Địa - CD") 
101. 
Response.Redirect("~/CacToChuyenMon/ToVan.aspx") 
102. Case ("Tổ Hóa - Sinh - Thể dục") 
103. 
Response.Redirect("~/CacToChuyenMon/ToHoa_Sinh_TD.
aspx") 
104. Case ("Tổ Hành Chính") 
105. 
Response.Redirect("~/CacToChuyenMon/ToHanhChinh.as
px") 
106. 
107. Case ("Hỗ Trợ Học Sinh") 
108. 
Response.Redirect("~/HoTroHocSinh/HuongDanOnTap.as
px") 
109. Case ("Hướng Dẫn Ôn Tập") 
110. 
Response.Redirect("~/HoTroHocSinh/HuongDanOnTap.as
px") 
111. Case ("Thời Khóa Biểu") 
112. 
Response.Redirect("~/HoTroHocSinh/ThoiKhoaBieu.asp
x") 
113. Case ("Xem Điểm") 
114. 
Response.Redirect("~/HoTroHocSinh/XemDiem.aspx") 
115. 
116. Case "Dành Cho Giáo Viên" 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 18 
117. 
Response.Redirect("~/GiaoVien/GiaoVien.aspx") 
118. Case "Quản Lý Lớp" 
119. 
Response.Redirect("~/GiaoVien/QuanLyLopHoc.aspx") 
120. Case "Quản Lý Học Sinh" 
121. 
Response.Redirect("~/GiaoVien/QuanLyDanhSachLop.as
px") 
122. Case "Quản Lý Môn Học" 
123. 
Response.Redirect("~/GiaoVien/QuanLyMonHoc.aspx") 
124. Case "Quản Lý Điểm" 
125. 
Response.Redirect("~/GiaoVien/QuanLyDiem.aspx") 
126. 
127. Case "Trang Quản Trị" 
128. 
Response.Redirect("~/Trangadmin.aspx") 
129. 
130. Case "Liên Hệ" 
131. 
Response.Redirect("~/LienHe/LienHe.aspx") 
132. End Select 
133. End Sub 
134. Public Sub hienthiDropdownlistWeb() 
135. DropDownList1.Items.Clear() 
136. DropDownList1.Items.Add("----- Website 
liên kết ----- ") 
137. DropDownList1.Items.Add("Sở DGDT Bà Rịa 
Vũng Tàu") 
138. DropDownList1.Items.Add("Bộ Giáo dục Đào 
tạo") 
139. DropDownList1.Items.Add("Diễn đàn Giáo 
dục") 
140. DropDownList1.Items.Add("Báo Bà Rịa Vũng 
Tàu") 
141. End Sub 
142. Protected Sub 
DropDownList1_SelectedIndexChanged(ByVal sender As 
Object, ByVal e As System.EventArgs) Handles 
DropDownList1.SelectedIndexChanged 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 19 
143. Dim a As String 
144. a = DropDownList1.SelectedItem.Text 
145. If a = "Sở DGDT Bà Rịa Vũng Tàu" Then 
146. 
Response.Redirect("
vungtau.gov.vn/") 
147. End If 
148. If a = "Bộ Giáo dục Đào tạo" Then 
149. 
Response.Redirect("") 
150. End If 
151. If a = "Diễn đàn Giáo dục" Then 
152. 
Response.Redirect("") 
153. End If 
154. If a = "Báo Bà Rịa Vũng Tàu" Then 
155. 
Response.Redirect("
vn") 
156. End If 
157. End Sub 
158. Protected Sub Button1_Click(ByVal sender As 
Object, ByVal e As System.EventArgs) Handles 
Button1.Click 
159. Session("DangNhapThanhCongUser") = False 
160. Session("DangNhapThanhCongAdmin") = 
False 
161. Label2.Visible = False 
162. Button1.Visible = False 
163. Button2.Visible = False 
164. Response.Redirect("~\TrangChu.aspx") 
165. End Sub 
166. Protected Sub Button2_Click(ByVal sender As 
Object, ByVal e As System.EventArgs) Handles 
Button2.Click 
167. If Button2.Text = "Quản trị" Then 
168. 
Response.Redirect("~\Trangadmin\AdminChinh.aspx") 
169. End If 
170. If Button2.Text = "Sửa thông tin" Then 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 20 
171. 
Response.Redirect("~\ThanhVien\SuaThongTin_TV.aspx
") 
172. End If 
173. End Sub 
174. Protected Sub ImageButton1_Click(ByVal 
sender As Object, ByVal e As 
System.Web.UI.ImageClickEventArgs) Handles 
ImageButton1.Click 
175. 
Response.Redirect("") 
176. End Sub 
177. 
178. Protected Sub ImageButton2_Click(ByVal 
sender As Object, ByVal e As 
System.Web.UI.ImageClickEventArgs) Handles 
ImageButton2.Click 
179. 
Response.Redirect("") 
180. End Sub 
181. 
182. Protected Sub ImageButton3_Click(ByVal 
sender As Object, ByVal e As 
System.Web.UI.ImageClickEventArgs) Handles 
ImageButton3.Click 
183. Response.Redirect("") 
184. End Sub 
185. 
186. Protected Sub ImageButton4_Click(ByVal 
sender As Object, ByVal e As 
System.Web.UI.ImageClickEventArgs) Handles 
ImageButton4.Click 
187. 
Response.Redirect("") 
188. End Sub 
189. End Class 
190. 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 21 
Thành viên có thể gửi những ý kiến cá nhân cho người quản trị tham khảo bằng cách gõ 
thông tin vào các ô và nhấp nút “ Gởi” để chuyển đi, hoặc nút “Xóa” để viết lại. 
Imports System.Data 
Imports System.Data.OleDb 
Imports System.IO 
Partial Class TrangHienThongTin 
 Inherits System.Web.UI.Page 
 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles 
Me.Load 
 Dim duongdan As String = "~\TinTuc_TrangChu\" & Session("noidung") 
 duongdan = Server.MapPath(duongdan) 
 Dim file As FileStream = New FileStream(duongdan, FileMode.OpenOrCreate, 
FileAccess.Read) 
 Dim doc As StreamReader = New StreamReader(File) 
 Dim thongtin As String 
 thongtin = "" 
 Dim i As Boolean 
 i = False 
 While (doc.EndOfStream = i) 
 thongtin = thongtin + doc.ReadLine() + "" 
 End While 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 22 
 Label1.Text = thongtin 
 End Sub 
End Class 
VII – CÁC BẢNG CƠ SỞ DỮ LIỆU: 
1.Bảng tin tức & sự kiện 
 2. Bảng menu 1 và 2 
3.Bảng đăng ký 
 GVHD: ThS.Bùi Duy Tuấn tinvn.com.vn 
 Báo cáo đề tài môn lập trình web1: Website thông tin cho trường TH Cơ sở 
 Trang 23 
VIII – THỰC HIỆN: 
- HẠN CHẾ: Mới thực hiện khoảng 85% dự án nên: 
 + Giao diện trang web còn đơn giản. 
 + Cơ sở dữ liệu còn hạn chế . 
 + Thông tin chưa phong phú và đa dạng. 
- HƯỚNG PHÁT TRIỂN: 
Qua việc thực hiện đề tài lần này, mong muốn của nhóm là sẽ dần nâng 
cao kỹ năng lập trình mà trong tương lai sẽ hoàn thiện chương trình theo 
hướng : 
+Hoàn thiện giao diện đẹp mắt, thuận tiện cho việc kiểm tra và thao tác 
hơn. 
+Thông tin cập nhật phong phú và phù hợp với từng thời điểm. 
+Dữ liệu phải đảm bảo an toàn và bảo mật. 
VII. LỜI KẾT 
 Đề tài này đã giúp các thành viên trong nhóm nắm được các thao tác để có 
thể thiết kế một trang web đơn giản; bước đầu làm quen viết chương trình dù là 
chương trình nhỏ. 
Qua việc thực hiện đề tài lần này đem lại cho nhóm 5 nhiều điều: Sự hiểu biết 
lẫn nhau về thông tin của mỗi thành viên trong nhóm được phát triển thêm một tầm 
cao mới. Nếu như trước đây các thành viên mới hiểu biết sơ về nhau, thì nay sự tin 
cậy lẫn nhau đã bước sang một nấc thang mới, với sự hiểu rõ cá tính và khả năng 
từng thành viên . 
 Nhóm 5 hy vọng đó sẽ là những lợi thế tốt để mọi thành viên hợp tác hoàn 
thành tốt các đề tài trong tương lai ở các bộ môn tin học nói riêng và các môn học 
nói chung. 
Xin chân thành cám ơn Thầy Bùi Duy Tuấn đã giúp đỡ Nhóm 5 hoàn thành đề 
tài này. 
 Vũng Tàu, ngày 01 tháng 6 năm 2009 
 Nhóm thực hiện 
 Nhóm 5 
            Các file đính kèm theo tài liệu này:
 Tinvn_Tieuluan_web1_01_p.pdf Tinvn_Tieuluan_web1_01_p.pdf