Phân tích hệ thống Cổng thông tin Viện Đại Học Mở Hà Nội

Website: http://www.webluanvan.com Email : hotro@webluanvan.com LỜI NÓI ĐẦU Trong năm cuối kỷ XX, đầu kỷ XXI ngành công nghệ thông tin có bước phát triển thần kỳ Hiện nay, tin học ứng dụng rộng rãi hầu hết lĩnh vực kinh tế quốc gia Một kinh tế mạnh, quốc gia mạnh đồng nghĩa với việc quốc gia công nghệ thông tin ứng dụng khai thác cách hiệu Việc ứng dụng rộng rãi tin học đem lại thành tựu vô to lớn nhiều ngành, nhiều lĩnh vực khác nhau, đặc biệt lĩnh vực quản lý lưu trữ Cùng với phát triển chung Công nghệ thông tin, ứng dụng Internet phát triển nhanh, ảnh hưởng làm thay đổi nhiều đến đời sống kinh tế, văn hoá, xã hội tất nước giới Trong phát triển mạnh mẽ Internet, Website giữ vai trò đặc biệt quan trọng Tuy nhiên, với thời gian hình thức bộc lộ số nhược điểm cần phải khắc phục Cùng với trợ giúp công nghệ Soft Agent - chương trình thay mặt người dùng thực công việc xử lý thông tin Internet - khái niệm Website truyền thống chuyển thành “Website thông minh” với trợ giúp dịch vụ Search Engine, công cụ cho phép tìm kiếm lọc thông tin sở từ khoá xác lập người dùng dịch vụ phân loại thông tin – Category Từ đó, thuật ngữ “Website thông minh” hay “Cổng thông tin” - Portal hình thành Hiện nay, số quốc gia số tổ chức giới quan tâm ý đến phát triển công nghệ Portal, công nghệ trở thành xu chung trình phát triển Internet Ở nước ta, số quan phủ, địa phương quan tâm phát triển công nghệ Portal Cổng thông tin Đảng Cộng Sản Việt Nam, Cổng thông tin thành phố Hà Nội, thành phố Hồ Chí Minh số địa phương khác… Các địa phương xây dựng Cổng thông tin cho riêng mình, trở thành công cụ phục vụ đắc lực việc quản lý, điều hành hoạt động kinh tế, xã hội Viện Đại Học Mở Hà Nội trường đại học có hàng vạn sinh viên theo học nhiều loại hình đào tạo khác nhiều nơi khác nước Viện Đại Học Mở Hà Nội có loại hình đào tạo phong phú vào bậc nước ta Khác với phần nhiều trường đại học khác nước, Viện Đại Học Mở Hà Nội có đặc thù riêng, quản lý địa bàn diện tích rộng lớn, trải dài từ Bắc vào Nam Chính vậy, việc tổng hợp phân tích tin tức, số liệu có liên quan đến hoạt động máy Viện Đại Học Mở Hà Nội cần thiết để cán lãnh đạo đưa biện pháp điều chỉnh đắn kịp thời Do đó, việc xây dựng, nghiên cứu thiết kế tổ chức liệu Cổng thông tin Viện Đại Học Mở Hà Nội để phục vụ cho công tác quản lý, đạo chuyên môn việc làm cần thiết, góp phần vào việc đổi mới, nâng cao chất lượng giáo dục chung toàn Viện Xuất phát từ nhu cầu trên, Đồ án tốt nghiệp chuyên ngành Công Nghệ Tin Học này, em hướng nghiên cứu vào vấn đề liên quan tới thiết kế, xây dựng Cổng thông Website: http://www.webluanvan.com Email : hotro@webluanvan.com tin Trên sở kết nghiên cứu xây dựng Cổng thông tin cho Viện Đại Học Mở Hà Nội Về kết cấu đồ án, phần mở đầu, tài liệu tham khảo, đồ án trình bày chương: Chương 1: Tổng quan Cổng thông tin - Portal Trình bày tổng quan Portal Chương 2: Tổ chức liệu, chế chuyển đổi liệu cổng thông tin phục vụ cho việc tìm kiếm khai thác liệu Tìm hiểu tổ chức CSDL hệ thống thông tin phân tán Thiết lập chế chuyển đổi thông tin tự động sever Một số giải thuật tìm kiếm thông tin hệ thống thông tin phân tán Chương 3: Giới thiệu công nghệ ASP.NET Microsoft Giới thiệu công nghệ ASP.NET Chương 4: Phân tích hệ thống Cổng thông tin Viện Đại Học Mở Hà Nội Trong chương này, sở nghiên cứu phân tích yêu cầu thực tế từ Khoa, trung tâm trực thuộc Viện, đưa chuẩn hoá liệu, thiết kế xây dựng cổng thông tin Viện Đại Học Mở Hà Nội hướng giải toán khai thác, tìm kiếm thông tin Cổng thông tin Viện Đại Học Mở Hà Nội Chương : Thiết kế Cổng thông tin Viện Đại Học Mở Hà Nội Thiết kế Cổng thông tin Viện Đại Học Mở Hà Nội sở phân tích hệ thống chương CHƯƠNG I TỔNG QUAN VỀ CỔNG THÔNG TIN – PORTAL Website: http://www.webluanvan.com Email : hotro@webluanvan.com Chương trình bày vấn đề sau đây: - Khái niệm Portal - Các đặc trưng Portal - Phân loại Portal - Các kỹ thuật hệ thống Portal - Khung làm việc hệ thống Portal - Các bước xây dựng Portal - Các công nghệ xây dựng Portal I KHÁI NIỆM PORTAL Website: http://www.webluanvan.com Email : hotro@webluanvan.com 1.1 Định nghĩa Portal Thuật ngữ “Cổng thông tin - Portal” xuất từ năm 1998, thuật ngữ có nhiều vấn đề cần phải tiếp tục bàn bạc, trao đổi Do vậy, thời điểm chưa đưa có định nghĩa hoàn chỉnh thống Sau số khái niệm Portal thường sử dụng : - Portal giao diện dựa web tích hợp cá nhân hóa tới thông tin, ứng dụng dịch vụ hợp tác - Portal cổng tới trang web, cho phép khối lượng lớn thông tin sẵn có Internet ứng dụng tích hợp, tuỳ biến, cá nhân hóa theo mục đích người sử dụng - Portal điểm đích truy cập Internet mà qua người dùng khai thác dịch vụ cần thiết “tất một” - Portal giao diện web đơn, cung cấp truy cập cá nhân tới thông tin, ứng dụng, xử lý thương mại nhiều Với công nghệ Portal, tổ chức giảm cường độ, lại tăng giá trị lao động đặc biệt làm tăng giá trị sản phẩm Các tổ chức tích hợp thông tin phạm vi môi trường làm việc, ứng dụng dịch vụ sử dụng giao diện đơn lẻ - Portal giao diện dựa Web, tích hợp thông tin dịch vụ có Nó cho phép khai báo, cá biệt hóa thông tin dịch vụ, cho phép quản trị nội dung hỗ trợ chuẩn nội dung giao diện hiển thị Nó cung cấp cho người dùng điểm truy cập cá nhân, bảo mật tương tác với nhiều loại thông tin, liệu dịch rộng rãi đa dạng lúc nơi nhờ sử dụng thiết bị truy cập Web Hình Hình ảnh Portal Website: http://www.webluanvan.com Email : hotro@webluanvan.com Để làm rõ chất Portal đưa bảng so sánh Portal với Website thông thường sau 1.2 So sánh Portal với Website thông thường Portal + Portal hỗ trợ khả đăng nhập lần tới tất tài nguyên liên kết với Portal Nghĩa là, người dùng cần lần đăng nhập vào sử dụng tất ứng dụng tích hợp Portal mà người dùng có quyền + Portal hỗ trợ khả cá nhân hóa theo người sử dụng Đây khả quan trọng Portal, giúp phân biệt với website thông thường Portal cá nhân hóa nội dung hiển thị, thông thường lựa chọn cách tự động dựa quy tắc tác nghiệp, chẳng hạn vai trò người sử dụng tổ chức Ví dụ người mua hàng đăng nhập vào hệ thống, Portal danh sách sản phẩm Hoặc cần quan tâm đến lĩnh vực khảo cổ Portal cung cấp thông tin bảng danh sách đồ cổ + Khả tùy biến Đây khả tiêu biểu Portal Ví dụ giao diện Portal có mục thông tin thời tiết, bỏ phần thông tin không quan tâm đến Hoặc thay đổi cách hiển thị Portal Ví dụ thay hiển thị font chữ màu xác định thay chữ màu đỏ, hay tự thay đổi giao diện Portal mặc định chức A đặt sau chức B, không thích thay đổi lại thứ tự hiển thị Đặc tính tương tự hình desktop Website thông thường Một website thông thường khả đăng nhập lần Thường không hỗ trợ, có mức độ nhỏ, đặc điểm bật Một vài Website có dừng lại mức độ dựng sẵn, người dùng lựa chọn vài giao diện có, mà không tự thay đổi mục cách tùy ý Website: http://www.webluanvan.com Email : hotro@webluanvan.com + Liên kết truy cập tới hàng trăm kiểu liệu, kho liệu, kể liệu tổng hợp hay phân loại Chỉ sử dụng liên kết để tới site khác nội dung chủ yếu tập trung trang Portal có khả liên kết tới tài nguyên liệu rộng lớn, gồm nhiều kiểu liệu từ liệu thông thường đến siêu liệu + Portal hỗ trợ tốt khả liên kết hợp tác người dùng Hầu hết không hỗ trợ Portal không liên kết với cần mà liên kết với người mà cần Khả liên kết thực dịch vụ hợp tác II CÁC CHỨC NĂNG CƠ BẢN CỦA PORTAL 2.1 Chức tìm kiếm (Search function) Chức tìm kiếm dịch vụ cần phải có tất Portal Sau người sử dụng mô tả loại thông tin mà cần thông qua từ khoá tổ hợp từ khoá, dịch vụ tự động thực tìm kiếm thông tin Website có Internet trả lại kết cho người dùng Thời gian thực dịch vụ tìm kiếm nhanh, tiện lợi cho người dùng 2.2 Dịch vụ thư mục (Directory service) Đối với người dùng không muốn tìm kiếm thông tin qua từ khoá, họ có nhu cầu tìm kiếm thông tin theo chủ đề, lĩnh vực đó, sử dụng dịch vụ thư mục phân loại thông tin Dịch vụ thư mục dịch vụ thực phân loại xếp thông tin website theo chủ đề có nhiều chủ đề chủ đề tiếp tục phân tách xuống mức thấp 2.3 Ứng dụng trực tuyến (Online desktop application) Bao gồm ứng dụng phổ biến Internet, có ứng dụng điển : - Thư điện tử - Emai l: Các Portal lớn Yahoo, Excite, v.v… thường cung cấp tài khoản điện tử (Email account) miễn phí cho người dùng Dịch vụ có ý nghĩa người dùng nhận/gửi email địa điểm giới có kết nối Internet - Lịch cá nhân – Calendar : Một số Portal cung cấp dịch vụ “lịch cá nhân - calendar” miễn phí cho người dùng Dịch vụ giúp người sử dụng sử dụng lịch cá nhân nơi Internet Website: http://www.webluanvan.com Email : hotro@webluanvan.com - Hội thoại trực tuyến – Online Chat : Dịch vụ cho phép nhóm người dùng hội thoại trực tuyến với thông qua môi trường Internet, không phụ thuộc vào khoảng cách địa lý họ (phổ biến Yahoo Messenger) Có thể liệt kê nhiều loại dịch vụ trực tuyến khác dịch vụ hỗ trợ kỹ thuật trực tuyến nhà sản xuất với khách hàng mình… - Các dịch vụ khác: Một dịch vụ hấp dẫn người sử dụng bưu thiếp điện tử Thay gửi bưu thiếp qua đường bưu điện thông thường, người sử dụng gửi bưu thiếp chức mừng người thân thông qua mạng Internet 2.4 Cá nhân hoá dịch vụ (Personalization or Customization) Cá nhân hoá dịch vụ đặc trưng quan trọng Portal Trên sở thông tin khách hàng cụ thể, nhà cung cấp tạo dịch vụ mang tính định hướng cá nhân, phù hợp với yêu cầu, sở thích khách hàng riêng biệt Thông qua nhà cung cấp có khả tăng cường mối quan hệ với khách hàng, trì tín nhiệm khách hàng nhà cung cấp Cá nhân hoá dịch vụ tiến hành thông qua liệu thông tin cá nhân khách hàng (customer profiles) Dữ liệu chứa thông tin mang tính cá nhân nghề nghiệp, thói quen, sở thích v.v… từ thông tin cá nhân này, nhà cung cấp có khả giới hạn cung cấp thông tin dịch vụ mà khách hàng thực quan tâm muốn có Có nghĩa tránh việc cung cấp thông tin dịch vụ không cần thiết gây khó chịu cho khách hàng, chí dẫn đến định ngừng sử dụng dịch vụ nhà cung cấp 2.5 Cộng đồng ảo (Virtual community or Collaboration) Cộng đồng ảo “một địa điểm ảo” Internet mà cá nhân, doanh nghiệp “tập hợp” để giúp đỡ, hợp tác với hoạt động thương mại Nói cách khác “cộng đồng ảo” mang lại hội hợp tác cho cá nhân, tổ chức doanh nghiệp mà ranh giới địa lý ý nghĩa Sau số ví dụ cộng đồng ảo: - Hội thoại trực tuyến – Online chat: Thông qua dịch vụ người ta triển khai hội nghị mà không cần phải tập trung toàn cán công nhân viên địa phương phạm vi nước địa điểm cụ thể - Hỗ trợ trực tuyến - Online support : Tại khách hàng nhận trực tiếp hỗ trợ, tư vấn nhà sản xuất sản phẩm mà khách hàng lựa chọn 2.6 Một điểm tích hợp thông tin (Comporate Portal) Đặc trưng cho phép đơn vị cung cấp cho người sử dụng dùng điểm truy nhập để thu thập xử lý thông tin từ nguồn khác nhau, sử dụng ứng dụng để khai thác kho tài nguyên thông tin chung Như biết, có nhiều thông tin hàng ngày cần phải xử lý chuyển đến người dùng nhiều nguồn khác nhau, ví dụ E-mail, Tin tức, tài liệu, báo cáo, báo, audio video files, v.v… khó khăn cho người dùng thông tin xử lý cách riêng rẽ; Comporate Portal cho Website: http://www.webluanvan.com Email : hotro@webluanvan.com phép sử dụng công cụ tích hợp để xử lý nguồn thông tin này, suất lao động xử lý thông tin người dùng nâng cao 2.7 Kênh thông tin (Channel) Portal cho phép xây dựng liên kết (connector) tới ứng dụng Portal khác Một Portal khác Website thông thường khác cung cấp nội dung thông tin kênh thông tin Portal Kênh thông tin đặc tính Portal, cho phép xây dựng dịch vụ truy cập, xử lý thông tin nằm bên mạng Intranet tổ chức, sau tổ chức hiển thị kết xử lý tin kênh thông tin Portal III PHÂN LOẠI PORTAL Việc phân loại Portal có nhiều cách khác Nếu vào đặc trưng Portal người ta chia Portal thành loại sau : 3.1 Consumer Portal Cung cấp nhiều lựa chọn cho việc tìm kiếm, chuyển, Email, tự sửa khuôn dạng, lựa chọn tin tức, calendar, quản lý địa liên hệ, hẹn, lưu ý, thích, địa website, real-time chat chức Intranet, v.v… 3.2 Vertical Portal Chuyên cung cấp thông tin dịch vụ cho lĩnh vực chuyên môn, khoa học, kinh tế cụ thể (mang tính chuyên ngành) 3.3 Horizontal Portal Nội dung bao trùm nhiều chủ đề (mang tính diện rộng), phục vụ mối quan tâm khác nhau, hỗ trợ chức dịch vụ phong phú, phục vụ cộng đồng, phục vụ tổ chức hành Portal Portalkhách khách hàng hàng Portal Portal B2B B2B Portal Portalcho cho người ngườilao laođộng động Portal Portalcho chocác nhà đầu nhà đầutư tư Cơ sở hệ thống Portal theo chiều ngang Hình Cơ sở Portal theo chiều ngang 3.4 Enterprise Portal Cung cấp dịch vụ truy xuất thông tin từ nguồn tài nguyên thông tin mạng Intranet tổ chức qua cổng truy cập Website: http://www.webluanvan.com Email : hotro@webluanvan.com 3.5 B2B Portal Cung cấp dịch vụ định hướng theo mối quan hệ tương tác thông tin hai chiều doanh nghiệp (B2B) môi trường thương mại điện tử 3.6 G2G Portal Cung cấp dịch vụ hành công theo mối quan hệ tương tác thông tin hai chiều quan hành nhà nước (G2G) môi trường trao đổi thông tin điện tử IV CÁC KỸ THUẬT CỦA HỆ THỐNG PORTAL 4.1 Portlet Portlet giao diện người dùng, module tương tác nhiều mức cho phép tích hợp vào Portal ứng dụng web khác Các Portlet sinh đoạn trang, đoạn trang Portal ghép lại thành trang hoàn chỉnh Portlet thực thi môi trường thời gian thực (Real Time) gọi Portlet Container, Portlet trình bày nội dung chúng cửa sổ trang Portal, tương tự cửa sổ hình (desktop) Cửa sổ Portlet có tiêu đề chứa, nút điều khiển cho phép người sử dụng mở rộng thu nhỏ Một Portlet hiển thị trang web cửa sổ cá nhân nhỏ, Portlet nội dung bên cửa sổ, thân cửa số Các Portlet bao gồm nhiều mức, cho phép người sử dụng giao tiếp với để thực công việc môi trường Portal 4.2 Phân loại Portlet dịch vụ web Giống dịch vụ web hướng liệu, Portlet dựa kiến trúc hướng dịch vụ, cho phép công ty sử dụng lại thành phần phần mềm để nhanh chóng xây dựng ứng dụng Portal Không giống dịch vụ web hướng liệu, Portlet tóm lược dịch vụ tác nghiệp mức cao bao gồm tương tác người dùng, lưu đồ trình diễn tùy biến Portlet địa phương Các Portlet địa phương Portlet thực thi bên máy chủ Portal Khi máy chủ Portal sinh trang thứ cần thiết đoạn trang, gọi Code Portlet sử dụng giao diện tiền định nghĩa JSR168 định nghĩa giao diện Portlet địa phương chuẩn cho môi trường J2EE Website: http://www.webluanvan.com Email : hotro@webluanvan.com Hình Các Portlet địa phương gọi tới Code Portlet Portlet từ xa Portlet từ xa Portlet thực thi bên máy chủ Portal, bên máy chủ tổ chức vị trí từ xa Khi Portal cần đoạn trang, gọi Portlet từ xa thông qua SOAP Hình Trang Portal gọi đến từ Portlet từ xa Giao thức WSRP cung cấp định nghĩa chuẩn giao diện SOAP cho Portlet từ xa Vấn đề quan trọng Portlet từ xa tách Portlet khỏi tổ chức môi trường Portal Để thực việc : • Sử dụng Portlet thành phần thứ ba để tạo thành Portal Website: http://www.webluanvan.com Email : hotro@webluanvan.com Dim siteSettings As SiteConfiguration = CType(HttpContext.Current.Items("SiteSettings"), SiteConfiguration) Dim myConnection As New SqlConnection(ConfigurationSettings.AppSettings("connectionString")) Dim myCommand As New SqlCommand("Portal_DeleteModule", myConnection) myCommand.CommandType = CommandType.StoredProcedure Dim parameterModuleID As New SqlParameter("@ModuleID", SqlDbType.Int, 4) myConnection.Open() parameterModuleID.Value = moduleId myCommand.Parameters.Add(parameterModuleID) myCommand.ExecuteNonQuery() myConnection.Close() siteSettings._Module.Remove_ModuleRow(siteSettings._Module.FindByModuleId( moduleId)) SaveSiteSettings() End Sub ‘ -Public Sub UpdateModuleSetting(ByVal moduleId As Integer, ByVal key As String, ByVal value As String) Dim siteSettings As SiteConfiguration = CType(HttpContext.Current.Items("SiteSettings"), SiteConfiguration) Dim moduleRow As SiteConfiguration._ModuleRow = siteSettings._Module.FindByModuleId(moduleId) Dim settingsRow As SiteConfiguration.SettingsRow If moduleRow.GetSettingsRows().Length > Then settingsRow = moduleRow.GetSettingsRows()(0) Else settingsRow = siteSettings.Settings.NewSettingsRow() settingsRow._ModuleRow = moduleRow siteSettings.Settings.AddSettingsRow(settingsRow) End If Dim settingRow As SiteConfiguration.SettingRow Dim settingRows() As SiteConfiguration.SettingRow = settingsRow.GetSettingRows() If settingRows.Length = Then If value String.Empty Then settingRow = siteSettings.Setting.NewSettingRow() With settingRow SettingsRow = settingsRow Name = key Setting_Text = value End With siteSettings.Setting.AddSettingRow(settingRow) End If Else Dim found As Boolean = False Dim i As Int32 For i = To settingRows.Length - If settingRows(i).Name = key Then Website: http://www.webluanvan.com Email : hotro@webluanvan.com If value = String.Empty Then siteSettings.Setting.RemoveSettingRow(settingRows(i)) Else settingRows(i).Setting_Text = value End If found = True End If Next If found = False Then If value String.Empty Then settingRow = siteSettings.Setting.NewSettingRow() With settingRow SettingsRow = settingsRow Name = key Setting_Text = value End With siteSettings.Setting.AddSettingRow(settingRow) End If End If End If SaveSiteSettings() End Sub ‘ -Public Shared Function GetModuleSettings(ByVal moduleId As Integer) As Hashtable Dim _settingsHT As New Hashtable Dim siteSettings As SiteConfiguration = CType(HttpContext.Current.Items("SiteSettings"), SiteConfiguration) Dim moduleRow As SiteConfiguration._ModuleRow = siteSettings._Module.FindByModuleId(moduleId) If moduleRow.GetSettingsRows().Length > Then Dim settingsRow As SiteConfiguration.SettingsRow = moduleRow.GetSettingsRows()(0) If Not settingsRow Is Nothing Then Dim sRow As SiteConfiguration.SettingRow For Each sRow In settingsRow.GetSettingRows() _settingsHT(sRow.Name) = sRow.Setting_Text Next End If End If Return _settingsHT End Function ' ' DINH NGHIA MODULE ' Public Function GetModuleDefinitions(ByVal portalId As Integer) As DataRow() Dim siteSettings As SiteConfiguration = CType(HttpContext.Current.Items("SiteSettings"), SiteConfiguration) Return siteSettings.ModuleDefinition.Select() End Function ‘ Website: http://www.webluanvan.com Email : hotro@webluanvan.com Public Function AddModuleDefinition(ByVal portalId As Integer, ByVal name As String, ByVal desktopSrc As String) As Integer Dim siteSettings As SiteConfiguration = CType(HttpContext.Current.Items("SiteSettings"), SiteConfiguration) Dim newModuleDef As SiteConfiguration.ModuleDefinitionRow = siteSettings.ModuleDefinition.NewModuleDefinitionRow() With newModuleDef FriendlyName = name DesktopSourceFile = desktopSrc End With siteSettings.ModuleDefinition.AddModuleDefinitionRow(newModuleDef) SaveSiteSettings() Return newModuleDef.ModuleDefId End Function Public Sub DeleteModuleDefinition(ByVal defId As Integer) Dim siteSettings As SiteConfiguration = CType(HttpContext.Current.Items("SiteSettings"), SiteConfiguration) Dim myConnection As New SqlConnection(ConfigurationSettings.AppSettings("connectionString")) Dim myCommand As New SqlCommand("Portal_DeleteModule", myConnection) myCommand.CommandType = CommandType.StoredProcedure Dim parameterModuleID As New SqlParameter("@ModuleID", SqlDbType.Int, 4) myConnection.Open() Dim moduleRow As SiteConfiguration._ModuleRow For Each moduleRow In siteSettings._Module.Select() If moduleRow.ModuleDefId = defId Then myCommand.Parameters.Clear() parameterModuleID.Value = moduleRow.ModuleId myCommand.Parameters.Add(parameterModuleID) siteSettings._Module.Remove_ModuleRow(moduleRow) myCommand.ExecuteNonQuery() End If Next myConnection.Close() siteSettings.ModuleDefinition.RemoveModuleDefinitionRow(siteSettings.Modul eDefinition.FindByModuleDefId(defId)) SaveSiteSettings() End Sub ********************************************************************* Public Sub UpdateModuleDefinition(ByVal defId As Integer, ByVal name As String, ByVal desktopSrc As String) Dim siteSettings As SiteConfiguration = CType(HttpContext.Current.Items("SiteSettings"), SiteConfiguration) With siteSettings.ModuleDefinition.FindByModuleDefId(defId) FriendlyName = name DesktopSourceFile = desktopSrc End With SaveSiteSettings() Website: http://www.webluanvan.com Email : hotro@webluanvan.com End Sub ‘ -Public Function GetSingleModuleDefinition(ByVal defId As Integer) As SiteConfiguration.ModuleDefinitionRow Dim siteSettings As SiteConfiguration = CType(HttpContext.Current.Items("SiteSettings"), SiteConfiguration) Return siteSettings.ModuleDefinition.FindByModuleDefId(defId) End Function ‘ Public Shared Function GetSiteSettings() As SiteConfiguration Dim siteSettings As SiteConfiguration = CType(HttpContext.Current.Cache("SiteSettings"), SiteConfiguration) If siteSettings Is Nothing Then siteSettings = New SiteConfiguration Dim configFile As String = HttpContext.Current.Server.MapPath(ConfigurationSettings.AppSettings("conf igFile")) With siteSettings Tab.TabIdColumn.AutoIncrement = True _Module.ModuleIdColumn.AutoIncrement = True ModuleDefinition.ModuleDefIdColumn.AutoIncrement = True siteSettings.ReadXml(configFile) End With HttpContext.Current.Cache.Insert("SiteSettings", siteSettings, New CacheDependency(configFile)) End If Return siteSettings End Function ‘ -Public Sub SaveSiteSettings() Dim siteSettings As SiteConfiguration = CType(HttpContext.Current.Cache("SiteSettings"), SiteConfiguration) If siteSettings Is Nothing Then siteSettings = GetSiteSettings() End If Dim configFile As String = HttpContext.Current.Server.MapPath(ConfigurationSettings.AppSettings("conf igFile")) siteSettings.WriteXml(configFile) End Sub End Class ‘ -Public Class PortalSettings Public Public Public Public Public Public PortalId As Integer PortalName As String AlwaysShowEditButton As Boolean DesktopTabs As New ArrayList MobileTabs As New ArrayList ActiveTab As New TabSettings ‘ Public Sub New(ByVal tabIndex As Integer, ByVal tabId As Integer) Dim config As Configuration = New Configuration Website: http://www.webluanvan.com Email : hotro@webluanvan.com Dim siteSettings As SiteConfiguration = config.GetSiteSettings() Dim tRow As SiteConfiguration.TabRow For Each tRow In siteSettings.Tab.Select("", "TabOrder") Dim tabDetails As New TabStripDetails With tabDetails TabId = tRow.TabId TabName = tRow.TabName TabOrder = tRow.TabOrder AuthorizedRoles = tRow.AccessRoles End With Me.DesktopTabs.Add(tabDetails) Next If Me.ActiveTab.TabId = Then Me.ActiveTab.TabId = CType(Me.DesktopTabs(0), TabStripDetails).TabId End If "TabOrder") Dim mRow As SiteConfiguration.TabRow For Each mRow In siteSettings.Tab.Select("ShowMobile='true'", Dim tabDetails As New TabStripDetails With tabdetails TabId = mRow.TabId AuthorizedRoles = mRow.AccessRoles End With Me.MobileTabs.Add(tabDetails) Next Dim activeTab As SiteConfiguration.TabRow = siteSettings.Tab.FindByTabId(tabId) Dim moduleRow As SiteConfiguration._ModuleRow For Each moduleRow In activeTab.GetModuleRows() Dim moduleSettings As New moduleSettings With moduleSettings ModuleTitle = moduleRow.ModuleTitle ModuleId = moduleRow.ModuleId ModuleDefId = moduleRow.ModuleDefId ModuleOrder = moduleRow.ModuleOrder TabId = tabId PaneName = moduleRow.PaneName AuthorizedEditRoles = moduleRow.EditRoles CacheTime = moduleRow.CacheTimeout Dim modDefRow As SiteConfiguration.ModuleDefinitionRow = siteSettings.ModuleDefinition.FindByModuleDefId(.ModuleDefId) DesktopSrc = modDefRow.DesktopSourceFile End With Me.ActiveTab.Modules.Add(moduleSettings) Next Website: http://www.webluanvan.com Email : hotro@webluanvan.com Me.ActiveTab.Modules.Sort() Dim globalSettings As SiteConfiguration.GlobalRow = siteSettings.Global.Rows(0) Me.PortalId = globalSettings.PortalId Me.PortalName = globalSettings.PortalName Me.AlwaysShowEditButton = globalSettings.AlwaysShowEditButton Me.ActiveTab.TabIndex = tabIndex Me.ActiveTab.TabId = tabId Me.ActiveTab.TabOrder = activeTab.TabOrder Me.ActiveTab.AuthorizedRoles = activeTab.AccessRoles Me.ActiveTab.TabName = activeTab.TabName End Sub End Class ‘ Public Class ModuleSettings Implements IComparable Public Public Public Public Public Public Public Public Public ModuleId As Integer ModuleDefId As Integer TabId As Integer CacheTime As Integer ModuleOrder As Integer PaneName As String ModuleTitle As String AuthorizedEditRoles As String DesktopSrc As String Protected Overridable Function CompareTo(ByVal value As Object) As Integer Implements IComparable.CompareTo If value Is Nothing Then Return End If Dim compareOrder As Integer = CType(value, ModuleSettings).ModuleOrder If Me.ModuleOrder = compareOrder Then Return If Me.ModuleOrder < compareOrder Then Return -1 If Me.ModuleOrder > compareOrder Then Return Return End Function End Class ‘ -Public Class ModuleItem Implements IComparable Private _moduleOrder As Integer Private _title As String Private _pane As String Private _id As Integer Private _defId As Integer Website: http://www.webluanvan.com Email : hotro@webluanvan.com Public Property ModuleOrder() As Integer Get Return _moduleOrder End Get Set(ByVal Value As Integer) _moduleOrder = Value End Set End Property Public Property ModuleTitle() As String Get Return _title End Get Set(ByVal Value As String) _title = Value End Set End Property Public Property PaneName() As String Get Return _pane End Get Set(ByVal Value As String) _pane = Value End Set End Property Public Property ModuleId() As Integer Get Return _id End Get Set(ByVal Value As Integer) _id = Value End Set End Property Public Property ModuleDefId() As Integer Get Return _defId End Get Set(ByVal Value As Integer) _defId = Value Website: http://www.webluanvan.com Email : hotro@webluanvan.com End Set End Property Protected Overridable Function CompareTo(ByVal value As Object) As Integer Implements IComparable.CompareTo If value Is Nothing Then Return End If Dim compareOrder As Integer = CType(value, ModuleItem).ModuleOrder If Me.ModuleOrder = compareOrder Then Return If Me.ModuleOrder < compareOrder Then Return -1 If Me.ModuleOrder > compareOrder Then Return Return End Function End Class ' ModuleDef :mot Arraylist cua ModuleDefDetails Public Class ModuleDfs Inherits ArrayList Dim m As ArrayList = New ArrayList Public Sub New() Dim siteSettings As SiteConfiguration = Configuration.GetSiteSettings() Dim mds As ModuleDefDetails = New ModuleDefDetails Dim mdRow As SiteConfiguration.ModuleDefinitionRow For Each mdRow In siteSettings.ModuleDefinition.Select("ModuleType ='Admin'") Dim mdDetails As ModuleDefDetails = New ModuleDefDetails mdDetails.ModuleDefId = mdRow.ModuleDefId mdDetails.DesktopSourceFile = mdRow.DesktopSourceFile Try mdDetails.ModuleType = mdRow.ModuleType Catch ex As Exception End Try mdDetails.FriendlyName = mdRow.FriendlyName Me.Add(mdDetails) Next End Sub End Class Public Class ModuleDefDetails Public ModuleDefId As Integer Public DesktopSourceFile As String Public ModuleType As String Public FriendlyName As String End Class Website: http://www.webluanvan.com Email : hotro@webluanvan.com Public Class TabItem Implements IComparable Private _tabOrder As Integer Private _name As String Private _id As Integer Public Property TabOrder() As Integer Get Return _tabOrder End Get Set(ByVal Value As Integer) _tabOrder = Value End Set End Property Public Property TabName() As String Get Return _name End Get Set(ByVal Value As String) _name = Value End Set End Property Public Property TabId() As Integer Get Return _id End Get Set(ByVal Value As Integer) _id = Value End Set End Property Public Overridable Function CompareTo(ByVal value As Object) As Integer Implements IComparable.CompareTo If value Is Nothing Then Return End If Dim compareOrder As Integer = CType(value, TabItem).TabOrder If Me.TabOrder = compareOrder Then Return If Me.TabOrder < compareOrder Then Return -1 If Me.TabOrder > compareOrder Then Return Return End Function End Class Website: http://www.webluanvan.com Email : hotro@webluanvan.com End Namespace 5.2 Các hàm hệ thống quản lý tin tức Shared Function GetCat(ByVal cid As Integer) As DataSet Dim myconnection As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("connectionString")) Dim mycommand As SqlCommand = New SqlCommand("Portal_News_GetCat", myconnection) Dim ds As DataSet = New DataSet Dim da As SqlDataAdapter = New SqlDataAdapter mycommand.CommandType = CommandType.StoredProcedure AddParamToSQLCmd(mycommand, "@id", SqlDbType.Int, 0, ParameterDirection.Input, cid) myconnection.Open() da = New SqlDataAdapter(mycommand) da.Fill(ds) myconnection.Close() Return ds End Function ‘ Shared Function GetAllCatsLevel(ByVal id As Integer) As DataSet Dim myconnection As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("connectionString")) Dim mycommand As SqlCommand = New SqlCommand("Portal_News_GetAllCatsLevel", myconnection) Dim ds As DataSet = New DataSet Dim da As SqlDataAdapter = New SqlDataAdapter mycommand.CommandType = CommandType.StoredProcedure myconnection.Open() AddParamToSQLCmd(mycommand, "@id", SqlDbType.Int, 0, ParameterDirection.Input, id) da = New SqlDataAdapter(mycommand) da.Fill(ds) myconnection.Close() Return ds End Function ‘ Shared Function UpdateCat(ByVal catid As Integer, ByVal newname As String, ByVal newparentid As Integer, ByVal newlevel As Integer, ByVal newviewitem As Integer, ByVal newamount As Integer) Dim myconnection As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("connectionString")) Dim mycommand As SqlCommand = New SqlCommand("Portal_News_UpdateCat", myconnection) Dim ds As DataSet = New DataSet Dim da As SqlDataAdapter = New SqlDataAdapter Website: http://www.webluanvan.com Email : hotro@webluanvan.com mycommand.CommandType = CommandType.StoredProcedure AddParamToSQLCmd(mycommand, "@id", SqlDbType.Int, 0, ParameterDirection.Input, catid) AddParamToSQLCmd(mycommand, "@newname", SqlDbType.NVarChar, 200, ParameterDirection.Input, newname) AddParamToSQLCmd(mycommand, "@newparentid", SqlDbType.Int, 0, ParameterDirection.Input, newparentid) AddParamToSQLCmd(mycommand, "@newlevel", SqlDbType.Int, 0, ParameterDirection.Input, newlevel) AddParamToSQLCmd(mycommand, "@newviewitem", SqlDbType.Int, 0, ParameterDirection.Input, newviewitem) AddParamToSQLCmd(mycommand, "@newamount", SqlDbType.Int, 0, ParameterDirection.Input, newamount) myconnection.Open() mycommand.ExecuteNonQuery() myconnection.Close() End Function ‘ Shared Function AddNewsItem(ByVal title As String, ByVal summary As String, ByVal content As String, ByVal catid As Integer, ByVal author As String, ByVal imglink As String) Dim myconnection As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("connectionString")) Dim mycommand As SqlCommand = New SqlCommand("Portal_News_AddItem", myconnection) mycommand.CommandType = CommandType.StoredProcedure AddParamToSQLCmd(mycommand, "@title", SqlDbType.NVarChar, 500, ParameterDirection.Input, title) AddParamToSQLCmd(mycommand, "@summary", SqlDbType.NVarChar, 1000, ParameterDirection.Input, summary) AddParamToSQLCmd(mycommand, "@catid", SqlDbType.Int, 0, ParameterDirection.Input, catid) AddParamToSQLCmd(mycommand, "@author", SqlDbType.NVarChar, 100, ParameterDirection.Input, author) AddParamToSQLCmd(mycommand, "@img", SqlDbType.NVarChar, 100, ParameterDirection.Input, imglink) mycommand.Parameters.Add("@content", SqlDbType.NText) mycommand.Parameters("@content").Value = content myconnection.Open() mycommand.ExecuteNonQuery() myconnection.Close() End Function ‘ -Shared Function DelItem(ByVal id As Integer) Dim myconnection As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("connectionString")) Dim mycommand As SqlCommand = New SqlCommand("Portal_News_DelItem", myconnection) Dim ds As DataSet = New DataSet Dim da As SqlDataAdapter = New SqlDataAdapter mycommand.CommandType = CommandType.StoredProcedure Website: http://www.webluanvan.com Email : hotro@webluanvan.com AddParamToSQLCmd(mycommand, "@id", SqlDbType.Int, 0, ParameterDirection.Input, id) myconnection.Open() mycommand.ExecuteNonQuery() myconnection.Close() End Function ‘ -Shared Function GetNewsItem(ByVal nid As Integer) As DataSet Dim myConnection As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("connectionString")) Dim mycommand As SqlCommand = New SqlCommand("Portal_News_GetNewsItem", myConnection) Dim ds As DataSet = New DataSet Dim da As SqlDataAdapter = New SqlDataAdapter mycommand.CommandType = CommandType.StoredProcedure AddParamToSQLCmd(mycommand, "@id", SqlDbType.Int, 0, ParameterDirection.Input, nid) myConnection.Open() da = New SqlDataAdapter(mycommand) da.Fill(ds) myConnection.Close() Return ds End Function TÀI LIỆU THAM KHẢO -1 Phân tích thiết kế hệ thống – Đào Thanh Tĩnh Phân tích thiết kế hệ thống thông tin – Nguyễn Văn Ba Cấu trúc liệu giải thuật – Đỗ Xuân Lôi SQL Server2000 - Phạm Hữu Khang Lập trình Windows với C#.NET – Phương Lan XML – tảng ứng dụng – Nguyễn Phương Lan Lập trình Visual Basic.NET – Hoàng Đức Hải Website: http://www.webluanvan.com Email : hotro@webluanvan.com Khai thác hệ thống thông tin điện tử đề án 112 – Nguyễn Đình Hóa Xây dựng ứng dụng thương mại điện tử ASP.NET - Phạm Hữu Khang 10 Diễn đàn Tin Học – www.ddth.com 11 Diễn đàn Trái tim Việt Nam Online – www.ttvnol.com\forum 12 Diễn đàn Mã Nguồn – www.manguon.com 13 Diễn đàn hacker Việt Nam – www.hvaonline.net 14 Diễn đàn Khoa Công Nghệ Tin Học – Viện ĐH Mở Hà Nội – forum.fithou.net.vn 15 What is a Portal? http://www.Microsoft.com 16 Microsoft ASP.NET - http://www.asp.net 17 ASP.NET – Genetic Center - Hanoi University of Technology 18 Inside ASP.NET – Apptech Education MỤC LỤC **************************** 1.1 Định nghĩa Portal 1.2 So sánh Portal với Website thông thường II CÁC CHỨC NĂNG CƠ BẢN CỦA PORTAL 2.1 Chức tìm kiếm (Search function) 2.2 Dịch vụ thư mục (Directory service) 2.3 Ứng dụng trực tuyến (Online desktop application) Website: http://www.webluanvan.com Email : hotro@webluanvan.com 2.4 Cá nhân hoá dịch vụ (Personalization or Customization) 2.5 Cộng đồng ảo (Virtual community or Collaboration) 2.6 Một điểm tích hợp thông tin (Comporate Portal) 2.7 Kênh thông tin (Channel) III PHÂN LOẠI PORTAL 3.1 Consumer Portal 3.2 Vertical Portal 3.3 Horizontal Portal 3.4 Enterprise Portal 3.5 B2B Portal 3.6 G2G Portal IV CÁC KỸ THUẬT CỦA HỆ THỐNG PORTAL 4.1 Portlet 4.2 Phân loại Portlet dịch vụ web V KHUNG LÀM VIỆC CỦA HỆ THỐNG PORTAL VI CÁC BƯỚC XÂY DỰNG PORTAL 6.1 Lập kế hoạch 6.2 Thiết kế tổng thể 6.3 Phát triển Portal VII CÁC CÔNG NGHỆ XÂY DỰNG PORTAL 7.1 Công nghệ xây dựng phân hệ 7.2 Công nghệ để xây dựng Portal 7.3 Mô hình hoạt động J2EE NET TỔ CHỨC DỮ LIỆU, CƠ CHẾ CHUYỂN ĐỔI DỮ LIỆU TRONG PORTAL PHỤC VỤ CHO VIỆC KHAI THÁC VÀ TÌM KIẾM DỮ LIỆU I TỔ CHỨC DỮ LIỆU TRONG HỆ THỐNG THÔNG TIN 1.1 Một số mô hình tổ chức CSDL hệ thống Client/Server 1.2 Mô hình tổ chức liệu Portal II CƠ CHẾ CHUYỂN ĐỔI THÔNG TIN GIỮA CÁC SERVER TRONG PORTAL Website: http://www.webluanvan.com Email : hotro@webluanvan.com III CÁC MÔ HÌNH KHAI THÁC VÀ TÌM KIẾM THÔNG TIN TRONG HỆ THỐNG THÔNG TIN 3.1 Mô hình xử lý Master/Slave 3.2 Mô hình xử lý Client /Server 3.3 Mô hình xử lý Server/Server IV MỘT SỐ THUẬT TOÁN TÌM KIẾM DỮ LIỆU TRONG HỆ THỐNG THÔNG TIN PHÂN TÁN 4.1 Cấu trúc máy tìm kiếm: 4.2 Phương pháp biểu diễn liệu máy tìm kiếm 4.3 Mô hình tìm kiếm thông tin Cơ sở liệu phân tán [...]... server của Viện Đại Học Mở Hà Nội sẽ gửi yêu cầu của người sử dụng đến tất cả các máy chủ của các trung tâm, sau quá trình trao đổi giữa các server sẽ trả lại người sử dụng thông tin mà người sử dụng yêu cầu Server Viện Đại Học Mở Hà Nội Ta có thể mô hình hoá việc kết nối giữa các server trong Cổng thông tin Viện Đại Học Mở Hà Nội bằng sơ đồ sau đây : Người sử dụng Internet Server Khoa Tin Học Server... tích hợp thông tin trong Cổng thông tin Portal, ở đây CSDL được phân tán trên nhiều server Để có thể khai thác được hiệu quả thông tin nhằm hỗ trợ cho người sử dụng cần có một mô hình trao đổi thông tin một cách tự động giữa các Database Server Ví dụ: trong Viện Đại Học Mở Hà Nội, tại các server của các trung tâm lưu giữ thông tin sinh viên mà mình quản lý Nếu người sử dụng muốn tìm hiểu về thông tin. .. vấn sẽ thực hiện các yêu cầu từ server của Viện Đại Học Mở Hà Nội Kết quả sẽ được chuyển sang module chỉ số hoá, và được chuyển về server Viện Đại Học Mở Hà Nội Tại server Viện Đại Học Mở Hà Nội sẽ tập kết quả của các server của các trung tâm, kết quả này được chuyển sang bộ xếp hạng kết quả trước khi gửi kết quả cho người sử dụng CHƯƠNG III GIỚI THIỆU CÔNG NGHỆ ASP.NET VÀ NET FRAMEWORK Chương 3 trình... KIẾM THÔNG TIN TRONG HỆ THỐNG THÔNG TIN Mô hình xử lý CSDL trong hệ thống thông tin phân tán bao gồm: - Master/Slave - Mô hình Client/Server - Mô hình Server/Server 3.1 Mô hình xử lý Master/Slave Trong mô hình này, một hệ thống máy được gọi là slave thực hiện các công việc của chỉ thị bởi hệ thống master Như vậy, các ứng dụng chạy trên môi trường Master/Slave dường như có tính phân tán, mặc dù việc phân. .. CÔNG NGHỆ XÂY DỰNG PORTAL 7.1 Công nghệ xây dựng các phân hệ Một hệ thống Portal gồm 3 phân hệ chính : tổ chức trang thông tin; kiểm soát truy cập và quản lý thành viên; xử lý yêu cầu và xây dựng nội dung - Tổ chức trang thông tin (Page Aggregation) + Nội dung của trang được lấy từ cơ sở dữ liệu + Có khả năng trình bày trang theo những mẫu có sẵn hoặc được điều khiển bằng các chức năng trong hệ thống. .. phân tán trên các server ở các vị trí khác nhau trong hệ thống Để khai thác được các thông tin này thì việc chuyển đổi thông tin giữa các máy chủ cần phải có các cơ chế chuyển đổi thông tin nhất định II CƠ CHẾ CHUYỂN ĐỔI THÔNG TIN GIỮA CÁC SERVER TRONG PORTAL Như đã nói ở trên, thông tin trong Portal thường có cấu trúc rất khác nhau và được tích hợp từ nhiều nguồn khác nhau trong hệ thống máy chủ phân. .. phân tán Do vậy, để thiết lập được chuyển đổi thông tin trong hệ thống Portal, dữ liệu trong hệ thống cần được chuẩn hoá Đây cũng chính là xu hướng trong quá trình trao đổi thông tin trong hệ thống phân tán Hiện nay, trên thế giới đã đưa ra nhiều các phương thức để chuẩn hoá thông tin trong quá trình trao đổi thông tin, trong số các công cụ chuẩn hoá thông tin thì công cụ XML và XSLT được sử dụng nhiều... vụ của hệ thống, mô tả cấu trúc, phân cấp các thành phần của hệ thống, các trao đổi thông tin và các giao diện giữa các thành phần của hệ thống Mô hình hoạt động mô tả kiến trúc phần cứng (hạ tầng phần cứng, phương thức tổ chức mạng), kiến trúc phần mềm và các thành phần dữ liệu, các ràng buộc (tốc độ xử lý, mức độ bảo mật,…) và phần quản trị hệ thống (lập kế hoạch nguồn lực, chuyển giao hệ thống, ... tổ chức (thường được phân cấp bởi các từ khóa) để dễ dàng tìm kiếm Các dữ liệu có cấu trúc thường bao gồm các báo cáo, các phân tích, các truy vấn đã được lưu và các loại tin tức kinh tế, xã hội Các dữ liệu cấu trúc này thường được phân tán rộng trong các server riêng lẻ trên Internet Ví dụ, trong việc quản lý thông tin của Viện Đại Học Mở Hà Nội, thông tin về 1 sinh viên ở một hệ đào tạo có thể được... nghĩa là các hệ thống quản trị thư viện tự động phải cần phải có một dạng thức chung để có thể trao đổi dữ liệu với nhau Hiện nay MARC21 sử dụng XML đang trở thành chuẩn phổ biến để các tổ chức, quốc gia trên thế giới áp dụng khi xây dựng hệ thống thư viện điện tử của mình Để có thể trao đổi thông tin trong hệ thống CSDL phân tán chúng ta cần phải xây dựng được mô hình khai thác thông tin III CÁC MÔ ... bày vấn đề sau đây: - Khái niệm Portal - Các đặc trưng Portal - Phân loại Portal - Các kỹ thuật hệ thống Portal - Khung làm việc hệ thống Portal - Các bước xây dựng Portal - Các công nghệ xây... triển Portal thể qua sơ đồ sau : (1) - Thông tin hoạt động quan - Thông tin quảng cáo Portal Portal (2) - Một số dịch vụ đặc trưng Portal EMail, search, forum, - Thử nghiệm dịch vụ Portal hình thức... thủ tục cần thiết để đưa kết cuối Front-end software Trong mô hình CSDL Client/Server, thường nói đến phần mềm front-end software back-end software Front-end software chạy máy tính cá nhân workstation,