Đang chuẩn bị liên kết để tải về tài liệu:
ASP.NET at Work: Building 10 Enterprise Projects PHẦN 9

nó vào nhãn kiểm soát ở giữa của bảng trên trang. Điều này cho chúng ta tiêu đề của chúng tôi và cấu trúc bảng cơ bản khi chúng tôi cho thấy các hàng khác nhau. Mã phía sau trang này được thể hiện trong Liệt kê 8,12 và sử dụng rất nhiều các tính năng thể hiện trong dự án đầu tiên để tạo ra các đầu ra. | Teamwork Network Discussion Boards 495 it into the label control in the middle of the table on the page. This gives us our headers and basic table structure when we show the various rows. The code behind this page is shown in Listing 8.12 and uses a lot of the features demonstrated in the first project to generate the output. Imports System Imports System.Data Imports System.Data.SqlClient Imports System.Web Imports System.Web.UI Imports System.Web.UI.WebControls Imports TWNWObjects Namespace TWNW Public Class PostsView Inherits Page Protected lblPageTitle As Label Protected lblContent As Label Sub Page_Load objSender As Object objArgs As EventArgs Dim strColor As String tabletext If Request.Cookies mID Is Nothing Then Response.Redirect login.aspx msg 403 rURL _ Request.ServerVariables SCRIPT_NAME _ Request.ServerVariables QUERY_STRING End If Dim DB As New AtWorkUtilities.Database Dim DBR As New AtWorkUtilities.Database Dim SD SDR As SqlDataReader If Int16.Parse Request.QueryString tID 0 Then Dim T As New Team DB Request.QueryString tID Dim DR As DataRow T.GetRow lblPageTitle.Text View Posts - DR Name DB.Execute sp_UpdateMemberDiscussionHistory _ Request.Cookies mID .Value _ Request.QueryString tID Else lblPageTitle.Text View Posts - Public Forum DB.Execute sp_UpdateMemberDiscussionHistory _ Request.Cookies mID .Value 0 End If SD DB.GetDataReader sp_RetrieveOriginalPostsByTeam _ Request.QueryString tID True Dim SB As New System.Text.StringBuilder Do While SD.Read Listing 8.12 posts_view.aspx.vb 496 Project 8 SB.AppendFormat tr class 0 _ strColor SB.AppendFormat td o td _ SD Author SB.AppendFormat td 0 td _ SD Subject SB.AppendFormat td align center 0 1 td _ SD PostDate .ToShortDateString _ SD PostDate .ToShortTimeString SDR DBR.GetDataReader sp_RetrieveStatisticsByPost SD pkPostID If SDR LastReplyDate .ToString Then SB.Append td align center None td Else SB.AppendFormat td align center 0 1 td SDR LastReplyDate .ToShortDateString _ SDR LastReplyDate .