Thiết kế các modul

Một phần của tài liệu Xây dựng Web site khối phổ thông chuyên Toán-Tin trường đại học Sư phạm Hà nội (Trang 83 - 100)

Các modul là các thành phần cơ bản tạo nên chơng trình ứng dụng. Khi thực thi chơng trình chính thì các modul sẽ triệu gọi lẫn nhau và thực hiện các chức năng của mình. Các modul đợc xây dựng trong đề tài này đợc mô tả theo các l- ợc đồ chi tiết sau: ( Kí hiệu: các modul đợc biểu diễn bằng các hình chữ nhật. Trong đó hình chữ nhật mảnh là các trang ASP cu thể, chúng là những đơn vị chơng trình nhỏ nhất. Các hình chữ nhật đậm là modul lớn, modul này bao gồm nhiều trang ASP. Mũi tên là lời gọi giữa các modul. Mũi tên là lời gọi giữa các modul. Các tham số trong lời gọi đợc ghi trên dới mũi tên)

Học hàm

Giáo viên

Môn học

Học sinh-Điểm

Điểm Thời khoá biểu Lớp

Cựu học sinh Học sinh

Học vị

Huy chương Học sinh-Huy chương

1) Modul tìm kiếm.

B1: Gọi trang tìm kiếm để có thể nhập nội dung tìm kiếm là giáo viên hay học sinh.

B2: Gọi modul tìm kiếm B3: Hiển thị kết quả

2) Modul Giới thiệu chung Trang tìm

kiếm.asp Tìm kiếm Kết quả.asp

Thông tin về GV hay HS Trang chủ.asp Tin tức- Hoạt động Diễn đàn Giới thiệu chung Tập san HHT.asp Phản hồi Bạn cần biết !!! Tìm kiếm Hỗ trợ- Tư vấn Forum Hội cựu HS Thông tin điểm Gioithieu.asp Gioithieu.asp Trang lịch sử vàng.asp Sodotochuc.asp Anhhoatdong. asp

3) Modul Tin tức-Hoạt động. 4) Modul Bạn cần biết ` 5) Modul Hỗ trợ T vấn. Tin tức-Hoạt động Văn hoá-Thể

thao .asp Thi học sinh giỏi .asp Hội thảo

NCKH .asp Công tác đoàn .asp

Bancanbiet.asp Bài toán hay

Sachmienphi. asp Xemdiem.asp Hỗ trợ tư vấn .asp Hươngnghiep.asp Hocbong .asp PhongtraoDoan .asp

6) Modul Phản hồi

* Modul quản lý

Form nhập tt.asp Ghi dữ liệu.asp phản hồi

(Nơi gọi modul)

Cám ơn.asp Thông tin Trang quản lý.asp Cập nhật Đổi mật khẩu Hỗ trợ tuyển sinh

Chơng 5. Giới thiệu chơng trình 5.1. Cài đặt và triển khai chơng trình. 5.1.1. Yêu cầu về trình duyệt

Qua thử nghiệm cho thấy Web site hoạt động tốt trên Microsoft Internet Explorer 4.0 và Netscape 4.0 trở lên.

5.1.2. Yêu cầu về hệ điều hành.

ASP là công nghệ của Microsoft do đó, nh hầu hết các công nghệ của hãng này, nó chỉ hoạt động trên hệ điều hành của Microsoft đó là: Window NT, Window 9X, Window 2000.

Đối với Win NT ( hay Win 2000 Server) thì cần cài đặt bộ Option Pack 4 (hoặc mới hơn). Trong bộ này có 3 sản phẩm chính tạo ra môi trờng hoạt động cho ASP là Microsoft Internet Information Server 4.0 (IIS 4.0) và Microsoft Certificate Server cùng với Microsoft Transaction Server (MTS).

Đối với Win 9x ( hay Win 2000 bẩn Professional) thì cần cài đặt Personal Web Server 3.0 (hoặc mới hơn). Personal Web Server là giải pháp Microsoft đa ra để tạo điều kiện cho các nhà phát triển thiết kế Web Server ở dạng “Offline (nghĩa là không kết nối Client/Server thật) và vì thế nó không cài trên Server mà cài trên PC. Nhà phát triển có thể ngồi ở nhà thiết kế Web Server trên PC của mình mà không cần có mạng thật, sau khi thiết kế xong thì đa Web Server lên mạng thật để chạy chơng trình ở dạng “nline”. Lúc này, Web Server mới hoạt động đúng mục đích của nó. Tuy nhiên, sự khác biệt giữa thiết kế “ offline” và “online” là không đáng kể. Nếu Web Server hoạt động tốt ở dạng “offline” thì cũng sẽ hoạt động tốt ở dạng “online”. (adsbygoogle = window.adsbygoogle || []).push({});

Trang cập nhật tổng thể( ví dụ bảng Thời khoá biểu)

5.3 Kết luận.

5.3.1.Những kết quả đạt đợc

Về lý thuyết: Trớc khi thực hiện đề tài tốt nghiệp này, những khái niệm về xây dựng một trang Web đối với em còn hết sức mới mẻ. Nhờ sự giúp đỡ của Tiến sĩ Phan Trung Huy- là ngời trực tiếp hớng dẫn – cùng với sự nỗ lực của bản thân, sau khi hoàn thành đề tài này em thu đợc nhiều kiến thức bổ ích. Những kiến thức đó sẽ rất hữu ích cho quá trình làm việc của em sau này.

Về ch ơng trình :

- Trang Web đã đạt đợc yêu cầu của khối phổ thông chuyên Toán Tin đặt ra. - Đợc thiết kế công phu đẹp mắt

- Chơng trình đợc kiểm soát lỗi chặt chẽ đảm bảo hoạt động thông suốt - Tiện lợi cho việc quản lý

- Có chức năng đa tin hiệu quả

Phụ lục : Một số đoạn code của chơng trình

- Trang hiện yêu cầu cập nhật học sinh; view, xoá, có chức năng tìm kiếm nhanh :

<%

Response.expires = 0

Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" %> <!--#include file="db.asp"--> <% displayRecs = 20 recRange = 10 %> <%

' Get table name

tablename = "[Hocsinh]" dbwhere = "" a_search = "" b_search = "" %> <% pSearch = Request.QueryString("psearch") If pSearch <> "" Then pSearch = replace(pSearch,"'","''") pSearch = replace(pSearch,"[","[[]")

b_search = b_search & "[MaHS] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Malop] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Hoten] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Ten] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Quequan] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Diachi] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Dienthoai] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Email] LIKE '%" & pSearch & "%' OR "

b_search = b_search & "[Khenthuong] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Kyluat] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Anh] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Ghichu] LIKE '%" & pSearch & "%' OR " End If

If len(b_search) > 4 Then

b_search = mid(b_search,1,len(b_search)-4) b_search = "(" & b_search & ")"

End If %> <%

'Build search criteria If a_search <> "" Then

dbwhere = dbwhere & a_search 'advance search ElseIf b_search <> "" Then

dbwhere = dbwhere & b_search 'basic search End If

If dbwhere <> "" Then

Session("tablename") = tablename Session("dbwhere") = dbwhere 'reset start record counter startRec = 1

Else

If tablename = Session("tablename") Then dbwhere = Session("dbwhere") Else

'reset search criteria dbwhere = ""

Session("dbwhere") = dbwhere End If

End If (adsbygoogle = window.adsbygoogle || []).push({});

'Get clear search cmd

If Request.QueryString("cmd").Count > 0 then cmd=Request.QueryString("cmd")

If ucase(cmd) = "RESET" Then 'reset search criteria dbwhere = "" Session("dbwhere") = dbwhere End If End If %> <% DefaultOrder = "" DefaultOrderType = "" OrderBy = "" If Request.QueryString("order").Count > 0 Then OrderBy = Request.QueryString("order") ' Check if an ASC/DESC toggle is required If Session("Hocsinh_OB") = OrderBy Then

If Session("Hocsinh_OT") = "ASC" Then Session("Hocsinh_OT") = "DESC"

Else Session("Hocsinh_OT") = "ASC" End if Else Session("Hocsinh_OT") = "ASC" End If Session("Hocsinh_OB") = OrderBy Session("Hocsinh_REC") = 1 Else OrderBy = Session("Hocsinh_OB") if OrderBy = "" then OrderBy = DefaultOrder Session("Hocsinh_OB") = OrderBy Session("Hocsinh_OT") = DefaultOrderType End If End If If Request.QueryString("start").Count > 0 Then startRec = Request.QueryString("start") Session("Hocsinh_REC") = startRec Else startRec = Session("Hocsinh_REC")

if not isnumeric(startRec) or startRec = "" then 'reset start record counter

startRec = 1

Session("Hocsinh_REC") = startRec End If

End If

set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str

'xây dựng câu truy vấn

If dbwhere <> "" Then

strsql = strsql & " WHERE " & dbwhere End If

if OrderBy <> "" then

strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("Hocsinh_OT") end if set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn, 1, 2 totalRecs = rs.RecordCount %>

Tài liệu tham khảo

[1] Mạng căn bản-VnGuide Nhà xuất bản thống kê 1997

[2] Mạng máy tính và các hệ thống mở – Nguyễn thúc Hải, NXB Giáo dục [3] ASP database-Sài Gòn book, NXB Giáo dục 2001

[4] ASP 3.0 và ASP.Net – Nguyễn Thu Lan NXB Minh Khai [5] MSDN 2000

[6] Inside COM- Dale Rogerson

Mục lục

Giới thiệu đề tài...1

Lời cám ơn...2

Chơng 1. Mạng máy tính và internet...3

1.1. Mạng máy tính...3

1.1.1. Khái niệm về mạng máy tính...3

1.1.2. Mô hình mạng OSI...3

1.1.3. Họ giao thức TCP/IP...5

1.2. INTERNET...7

1.2.1. Giới thiệu về internet...7 (adsbygoogle = window.adsbygoogle || []).push({});

1.2.2. Các dịch vụ thông tin trên Internet...8

1.2.3. Interanet...13

1.3. Mụ hỡnh ứng dụng Client- Server và ứng dụng trờn Web...14

Chơng 2: tổng quan về Cơ sở dữ liệu – vấn đề tích hợp web với cơ sở dữ liệu...19

2.1. Tổng quan về cơ sở dữ liệu (CSDL)...19

2.1.1. Thế nào là một CSDL?...19

2.1.2. Các mô hình CSDL...19

2.1.2.1. Mô hình CSDL tập trung...20

2.1.2.2. Mô hình CSDL theo kiểu File – Server...20

2.1.2.3. Mô hình xử lý từng phần CSDL...21

2.1.2.4. Mô hình CSDL Client/Server...21

2.1.2.5. Mô hình CSDL phân tán...23

1.1.3. ODBC và OLEDB, ADO...23

1.1.3.1. ODBC ( Open Database Connectivity)...23

1.1.3.2. OLEDB và ADO...25

2. 2. Vấn đề tích hợp Web với CSDL...30

2.2.1. Đặt vấn đề...30

2.2.2. Các giải pháp tích hợp Web và CSDL...32

Chơng 3: Công nghệ ASP...37

3.1 Lựa chọn công nghệ cho đề tài...37

3.2. ASP – ACTIVE SERVER PAGES...39

3.2.1. Những khái niệm mở đầu về ASP...39

3.2.2 Mô hình các đối tợng trong ASP...42

ContentType...50

3.2.2 Truy vấn CSDL trong ASP...56

3.3. Com – Component Object Model...57

3.3.1. Com là gì?...57

3.3.2. Thành phần Com là gì?...58

3.3.3. Giao diện (Interface)...58

3.3.5. Vấn đề tái sử dụng (reuse) các thành phần COM...65 (adsbygoogle = window.adsbygoogle || []).push({});

Chơng 4. Phân tích và thiết kế hệ thống...68

4.1. Phân tích hệ thống...68

4.1.1. Khảo sát yêu cầu...68

4.1.2. Hiện trạng quản lý...68

4.1.3. Nhiệm vụ...68

4.2. Phân tích hệ thống về chức năng...70

4.2.1. Sơ đồ phân cấp chức năng...70

4.2.2. Sơ đồ luồng dữ liệu (DFD)...70

4.3 Phân tích hệ thống về dữ liệu...78

4.3.1 Xác định các thực thể...78

4.3.2 Các thuộc tính của thực thể...79

4.3.3. Mô hình thực thể liên kết...83

4.4. Thiết kế các modul...83

Chơng 5 : Cài đặt, triển khai và đánh giá chơng trình Phụ lục: Một số đoạn mã của chơng trình

Một phần của tài liệu Xây dựng Web site khối phổ thông chuyên Toán-Tin trường đại học Sư phạm Hà nội (Trang 83 - 100)