Crie seu Weblog com ASP.NET, JavaScript e OleDB (Parte I)

Clique aqui para ler este artigo em pdf

Clique aqui para ler todos os artigos desta ediç�o

Crie seu Weblog com ASP.NET, JavaScript e OleDB (Parte I)

por Marco Bellinaso

Nos dias atuais, parece que todo mundo quer um blog. No entanto, voc� n�o encontrar� nenhum c�digo para blog predefinido no ASP.NET que contenha os recursos mostrados neste artigo. A grande vantagem de construir seu pr�prio aplicativo de blog � que voc� adquire muita pr�tica com controles de servidor (Server Controls) ASP.NET, como Repeater, DataList e Calendar. A primeira vista, um aplicativo de blog pode parecer um exerc�cio simples, mas na verdade ele requer que voc� implemente muitos recursos necess�rios em um t�pico aplicativo de geraç�o de relat�rios, tais como criar e implantar relacionamentos Master-Detail, editar e excluir registros, ocultar ou exibir conte�dos e controles de acordo com o usu�rio e gerenciar validaç�o de dados para m�ltiplos formul�rios na mesma p�gina.

Este artigo apresenta os detalhes de design e de implementaç�o de um projeto Web e explica as t�cnicas que podem ser facilmente aplicadas a uma variedade de projetos em ASP.NET, independentemente de terem sido criados para fins de neg�cios ou divertimento.

Antes de começar a criar o c�digo, voc� deve decidir que tipo de blog deseja criar, quais recursos ele conter� e como ser� projetado o armazenamento de dados. Um blog eficaz dever� conter v�rios recursos diferentes. As mensagens do blog devem ser mostradas na ordem da mais nova para a mais antiga. � poss�vel postar v�rias mensagens no mesmo dia e agrup�-las visualmente em uma tabela, distinguindo-as como mensagens separadas, ordenadas cronologicamente. Al�m disso, o usu�rio deve ser capaz de selecionar um intervalo de tempo para as entradas que deseja ler. Isso � importante porque voc� n�o quer recuperar um conte�do antigo, que j� tenha sido visto pelo usu�rio.

O usu�rio pode fazer coment�rios sobre qualquer mensagem, e os coment�rios postados devem ser mostrados diretamente abaixo da mensagem a que se referem, facilitando o acompanhamento da thread. Al�m disso, o propriet�rio do blog deve ser capaz de postar, editar e excluir mensagens e coment�rios, enquanto o usu�rio s� poder� ler mensagens e postar coment�rios. Para permitir ou negar que um certo usu�rio poste e edite dados, � necess�rio que alguns controles sejam exibidos ou ocultos e requeiram alguma forma de autenticaç�o.

O Design do Banco de Dados

Em seguida, voc� precisa decidir como deseja armazenar as mensagens e coment�rios. Neste projeto, foi utilizado um banco de dados SQL Server�, mas o c�digo de exemplo inclui tamb�m um banco de dados do Microsoft� Access, caso voc� prefira usa-lo. O banco de dados cont�m apenas duas tabelas: uma para as mensagens e outra para os coment�rios. A tabela de mensagens armazena IDs exclusivas, um t�tulo ou cabeçalho opcional, o texto da mensagem e a data e hora em que a mensagem foi postada. A tabela de coment�rios armazena IDs exclusivas, a ID da mensagem � qual o coment�rio se refere, o nome do autor, o endereço de e-mail do autor, o texto do coment�rio e a data e hora em que a mensagem foi postada. A Figura 1 mostra o projeto das tabelas.

Figura 1 Tabelas Pai/filho

Como voc� v�, existe uma relaç�o �um para muitos� entre as duas tabelas, vinculadas ao campo MessageID, que tamb�m reforça a integridade referencial com exclus�es e atualizaç�es em cascata. Observe que os nomes da tabela começam com o prefixo "Blog_". Isso facilita a localizaç�o no Enterprise Manager do SQL Server quando forem listadas alfabeticamente. Al�m disso, os planos de hospedagem para Web geralmente oferecem apenas um banco de dados SQL Server, que voc� precisa dividir entre todos os m�dulos de Web que utiliza. Se voc� n�o usou um prefixo de tabela, poder� se deparar com um m�dulo que j� use uma tabela denominada Messages, e solucionar esse tipo de problema de conflito de nomes n�o ser� t�o simples e r�pido durante a implantaç�o.

Outro detalhe importante a ser lembrado � que nenhum campo deve ser nulo (null), mesmo que o usu�rio o deixe em branco. Em vez de permitir valores nulos, voc� deve definir os campos vazios como uma seq��ncia de caracteres vazia, a fim de impedir Exceptions n�o-tratadas. Se voc� usar Web Forms para entrada de dados, n�o haver� problema, porque os controles retornar�o uma seq��ncia de caracteres vazia se n�o houver conte�do.

A Camada de Neg�cio

Em um aplicativo de banco de dados t�pico, voc� tem as camadas de dados, neg�cio e apresentaç�o. A camada de dados pode consistir em um conjunto de stored procedures, enquanto a camada de neg�cio pode ser um conjunto de classes (opcionalmente compiladas em sua pr�pria assembly separada) que empacotam as stored procedures para garantir a integridade dos dados, validaç�es e reforçar outras regras de neg�cio. No entanto, este projeto n�o conter� stored procedures; os comandos (commands) e consultas SQL foram codificados diretamente na assembly principal para facilitar o uso do blog com o MS-Access. Tamb�m n�o foram separadas as classes para as camadas de dados e neg�cios, mas como h� apenas duas tabelas e somente regras de neg�cio simples, foi criada uma �nica classe, que se encarregar� de validar a entrada e executar as instruç�es SQL apropriadas. Todo o c�digo estar� na mesma assembly, junto com a camada de apresentaç�o, porque a classe de neg�cio n�o ser� atualizada separada do programa que a utiliza e tampouco ser� distribuida a classe de neg�cio com outros tipos de aplicativos ou nos clientes. Desse modo, n�o h� problema em compil�-la com o aplicativo ASP.NET principal (denominado WebLogger). A classe de neg�cio � chamada Blog e est� localizada em um namespace denominado "Business", a fim de que n�o entrar em conflito com as classes codebehind. Veja como implementar o m�todo que adiciona uma nova mensagem:

Public Sub InsertMessage(ByVal title As String, ByVal message As String)

Dim cmd As New OleDbCommand("INSERT INTO Blog_Messages (Title, _

Message) VALUES (?, ?)")

cmd.Parameters.Add("Title", OleDbType.VarChar).Value = title

cmd.Parameters.Add("Message", OleDbType.LongVarChar).Value = _

message.Replace(m_brChar, "<br>")

ExecuteCommand(cmd)

End Sub

O m�todo obt�m todos os valores de que necessita para adicionar um novo registro. N�o � preciso passar o ID da mensagem, j� que ela � incrementada automaticamente na tabela do banco de dados e o AddedDate usa a data atual como o valor padr�o. O m�todo define um comando SQL INSERT e o executa com o m�todo ExecuteCommand. Observe que o valor do par�metro Message � o texto da mensagem passado como argumento, ao passo que os caracteres de �nova linha� s�o substitu�dos pela tag HTML <br>. O administrador tem permiss�o para usar a formataç�o HTML em suas postagens, mas como existem muitas novas linhas, elas s�o automaticamente convertidas em HTML para poupar o trabalho de digitaç�o. Como voc� j� deve ter adivinhado, o m�todo ExecuteCommand simplesmente executa o objeto de comando que recebe como entrada:

Private Sub ExecuteCommand(ByVal cmd As OleDbCommand)

cmd.Connection = m_Connection

Try

m_Connection.Open()

cmd.ExecuteNonQuery()

Finally

m_Connection.Close()

End Try

End Sub

O m�todo ExecuteCommand define a conex�o do comando, que � criada no m�todo construtor da classe por meio de uma seq��ncia de caracteres de conex�o (connection string) lida de uma custom key definida na seç�o appSettings do arquivo web.config. Em seguida, a conex�o � aberta, o comando � executado em um bloco Try, e a conex�o � fechada no bloco Finally correspondente. A conex�o ser� fechada mesmo que o m�todo ExecuteNonQuery gere uma Exception. No entanto, n�o existe nenhum bloco Catch porque n�o � preciso executar nenhuma operaç�o espec�fica de neg�cio, como reverter uma transaç�o ou registrar um erro em um arquivo de log. Podemos apenas capturar e tratar a Exception diretamente na p�gina de chamada, por exemplo, para mostrar ao usu�rio uma mensagem amig�vel de erro. Os outros m�todos Insertxxx, Updatexxx e Deletexxx funcionam de forma similar, por isso n�o foram abordados aqui. No entanto, recomenda-se examinar o m�todo InsertComment porque, al�m de adicionar um novo registro � tabela Blog_Comments, ele tamb�m envia um e-mail de notificaç�o com o texto de coment�rio e algumas das mensagens referem-se ao propriet�rio do blog.

Com esse recurso ativado, o propriet�rio do blog n�o precisa carregar cont�nuas vezes o blog para verificar se h� novos e-mails. � claro, se o blog for muito popular e receber bastantes coment�rios, voc� ter� sempre muitos e-mails. Desse modo, o arquivo web.config do aplicativo dever� ter uma custom key que permita que o administrador decida se quer ser notificado por e-mail a respeito de qualquer novo coment�rio. Contudo, ser� necess�ria outra custom key para armazenar o endereço de e-mail de destino. Essas duas configuraç�es s�o denominadas, respectivamente, Blog_SendNotifications e Blog_AdminEmail, e s�o declaradas na seç�o appSettings do arquivo web.config (juntamente com a custom key da connection string), da seguinte maneira:

O valor 1 em Blog_SendNotifications significa que o recurso de notificaç�o est� ativo. Qualquer outro valor ou a aus�ncia da chave indica que ele est� inativo.

Ap�s inserir o novo coment�rio e verificar se a notificaç�o de coment�rio est� ativada, voc� precisar� criar o corpo do e-mail. Al�m do texto do coment�rio, voc� precisa incluir tamb�m o t�tulo, a data e a hora em que a mensagem-pai foi postada, a fim de que haja uma conex�o clara entre a mensagem original e os coment�rios. A recuperaç�o dos dados da mensagem-pai � executada pelo c�digo a seguir com um comando que recupera os campos apropriados a partir do registro da mensagem em quest�o.

Dim sendNotifications As String = ConfigurationSettings.AppSettings( _

"Blog_SendNotifications")

If Not sendNotifications Is Nothing AndAlso sendNotifications = "1" Then

Dim msgTitle, msgDate As String

' l� os detalhes da mensagem-pai

cmd.CommandText = "SELECT Title, AddedDate FROM Blog_Messages" & _

"WHERE MessageID = " & messageID

m_Connection.Open()

Dim reader As OleDbDataReader = cmd.ExecuteReader( _

CommandBehavior.CloseConnection)

If reader.Read Then

msgTitle = reader("Title")

msgDate = CType(reader("AddedDate"), Date).ToString("hh:mm tt" & _

"on dddd, MMMM dd")

reader.Close()

End If

��

Uma vez obtidos todos os dados necess�rios, voc� pode criar e enviar a mensagem de e-mail. O texto do e-mail � criado por meio de uma chamada para o m�todo String.Format, que utiliza uma seq��ncia de caracteres modelo com namespaces para n�meros (no formato ) e os valores que substituem os diversos namespaces no modelo:

' criar o conte�do da mensagem

Dim msg As String = String.Format( _

" (email: ) acabou de postar um coment�rio na mensagem """" " & _

"de seu BLOG que voc� postou em . Aqui est� o coment�rio:", _

author, email, msgTitle, msgDate, Environment.NewLine, comment)

' envie a mensagem

System.Web.Mail.SmtpMail.Send("WebLogger", _

ConfigurationSettings.AppSettings("Blog_AdminEmail"), _

"Notificaç�o de novo coment�rio ", msg)

End If

O elemento mais importante da classe de neg�cio � o m�todo GetData, que recupera as mensagens postadas no intervalo especificado, juntamente com seus respectivos coment�rios. Aqui voc� precisa escolher se deseja usar um DataReader ou um DataAdapter (com um DataSet) para recuperar e ler os dados. Quando se trata de aplicativos Web, o DataReader � geralmente a melhor opç�o, especialmente se voc� n�o precisa editar nem manter uma c�pia dos dados em cache. No entanto, usaremos o DataSet porque ele permite armazenar v�rias tabelas e criar relacionamentos pai-filho entre elas. Isso facilita recuperar e navegar em todos os registros pai-filhos de uma �nica vez sem executar consultas separadas, como seria necess�rio se fosse utilizado o DataReader. Esse m�todo � mais simples para o programador e poupa os recursos do banco de dados e o tr�fego na rede, j� que s�o enviadas menos instruç�es SQL ao banco de dados.

A capacidade de criar relacionamentos entre as tabelas � outro recurso �til porque voc� pode adicionar colunas calculadas �s tabelas, com express�es referentes a outras tabelas no relacionamento. Crie um relacionamento entre as tabelas Blog_Messages e Blog_Comments e vincule-as ao campo MessageID, assim como definido no banco de dados f�sico na Figura 1. O objetivo era fazer com que o DataTable com os dados do Blog_Messages tivesse uma coluna calculada que retornasse o n�mero de coment�rios-filho relativos ao registro dessa mensagem. Se fosse utilizado um DataReader, esse m�todo exigiria consultas separadas ou, pelo menos, uma subconsulta (coisa que n�o � poss�vel com o MS-Access). Com um DataSet, essa aç�o � realizada com a c�pia desconectada dos dados, sem pedir ao banco de dados que conte os registros-filho.

Este m�todo utiliza duas datas como entrada, um DataAdapter para recuperar as mensagens postadas naquele intervalo e, em seguida, armazena-as em uma tabela DataSet denominada Messages, desta forma:

Public Function GetData(ByVal fromDate As Date, ByVal toDate As Date) _

As DataSet

Dim ds As New DataSet()

�intervalo

Dim da As New OleDbDataAdapter("SELECT * FROM Blog_Messages WHERE" & _

"AddedDate BETWEEN ? AND ?" & _

"ORDER BY AddedDate DESC", m_Connection)

da.SelectCommand.Parameters.Add("FromDate", OleDbType.Date).Value = _

fromDate

da.SelectCommand.Parameters.Add("ToDate", OleDbType.Date).Value = _

toDate.AddDays(1)

m_Connection.Open()

da.Fill(ds, "Messages")

��

Observe que voc� precisa adicionar um dia � data final para que as mensagens postadas naquela data sejam inclu�das no resultset. Para obter apenas os coment�rios das mensagens retornadas, na instruç�o SELECT, use um filtro IN que cont�m uma lista delimitada por v�rgulas de todas as IDs de mensagens dos registros retornados pela consulta exibida. Veja o seguinte c�digo.

If ds.Tables("Messages").Rows.Count > 0 Then

Dim inFilter As String = ""

Dim dr As DataRow

For Each dr In ds.Tables("Messages").Rows

If inFilter = "" Then

inFilter = dr("MessageID")

Else

inFilter &= ", " & dr("MessageID")

End If

' Define o SELECT da tabela Comments

da.SelectCommand.CommandText = "SELECT * FROM Blog_Comments" & _

"WHERE MessageID IN (" & _

"inFilter & ") ORDER BY AddedDate DESC"

Else

da.SelectCommand.CommandText = "SELECT * FROM Blog_Comments" & _

"WHERE MessageID = -1"

End If

da.Fill(ds, "Comments")

m_Connection.Close()

Em seguida, voc� cria o relacionamento entre as duas tabelas, desta forma:

ds.Relations.Add(New DataRelation("MsgComments", _

ds.Tables("Messages").Columns("MessageID"), _

ds.Tables("Comments").Columns("MessageID")))

Depois, voc� adiciona uma coluna calculada � tabela Messages que retorna o n�mero de coment�rios-filho:

ds.Tables("Messages").Columns.Add("CommentsCount", _

GetType(Integer), "Count(Child(MsgComments).CommentID)")

A funç�o Child(MsgComments) retorna todas as linhas de dados-filho do relacionamento especificado, e a funç�o Count funciona da mesma forma que no SQL.

O �ltimo detalhe a ser observado � que, antes de retornar o DataSet preenchido e terminar a funç�o, se a tabela Comments estiver vazia, essa coluna calculada avaliar� a express�o como NULL, e n�o 0, o que causar� problemas mais tarde quando voc� mostrar esse valor na p�gina ASP.NET ou us�-lo em outras express�es. Para solucionar esse problema, voc� pode adicionar um coment�rio falso, que n�o se refira � nenhuma mensagem:

If ds.Tables("Comments").Rows.Count = 0 Then

Dim dr As DataRow = ds.Tables("Comments").NewRow()

dr("CommentID") = -1

dr("Author") = "none"

dr("Email") = "none"

dr("Comment") = "none"

dr("AddedDate") = Date.Today

ds.Tables("Comments").Rows.Add(dr)

dr.AcceptChanges()

End If

Return ds

End Function

Dessa maneira, a express�o ser� avaliada como 0 se a mensagem n�o contiver nenhum coment�rio-filho.

Exibindo Mensagens e Coment�rios-Filho

Agora que a camada de neg�cio est� completa, a pr�xima etapa ser� escrever a camada de apresentaç�o, onde voc� poder� apreciar os recursos do ASP.NET. Grande parte do trabalho � realizado em uma �nica p�gina, Default.aspx, que processar� as mensagens e coment�rios e permitir� que o administrador modere os coment�rios e edite suas pr�prias mensagens (veja o painel inferior da Figura 2).

Figura 2 O Blog no Modo Administrator

A p�gina Default.aspx mostra uma lista das mensagens agrupadas por dia; cada mensagem poder� ter v�rios ou nenhum coment�rio. Inicialmente, os coment�rios estar�o ocultos, mas quando o usu�rio clicar no link View (Exibir), uma lista interna de coment�rios ser� dinamicamente expandida ou encolhida. � poss�vel expandir v�rias listas de coment�rios de mensagens ao mesmo tempo, como se fosse um controle TreeView com um �nico n�vel de sub-n�s. O desenvolvimento dessa p�gina apresenta alguns desafios, tais como classificar as mensagens por dia, agrup�-las em tabelas HTML separadas e exibir ou ocultar as listas internas de registros-filho.

Vamos ao primeiro t�pico. Suponha que voc� deseje exibir cinco mensagens na p�gina; as primeiras tr�s foram postadas no mesmo dia e as outras duas em outro dia. Suponha tamb�m que voc� deseje inicialmente manter cada mensagem em sua pr�pria tabela HTML. Caso deseje agrupar as primeiras tr�s mensagens e as duas mensagens remanescentes em duas tabelas separadas, voc� deveria remover as tags de abertura e fechamento da tabela das mensagens existentes no meio da tabela (as mensagens que n�o forem a primeira nem a �ltima daquele dia), remover a tag de fechamento da tabela da primeira mensagem e a tag de abertura da tabela da �ltima mensagem. Como usaremos um modelo de controle data-bound para processar essa exibiç�o (view), e j� que � necess�rio ter amplo controle sobre todo o HTML produzido, usaremos o controle Repeater. O controle Repeater n�o tem nenhuma sa�da ou layout pr�-definido, al�m daqueles especificado em seus modelos. O c�digo a seguir � uma definiç�o parcial do modelo do controle Repeater.

<asp:repeater id="Blog" Runat="server">

</HeaderTemplate>

<asp:Literal Runat="server" ID="DayBox">

</td></tr></table><table width="100%" border="1"><tr><td>

</asp:Literal>

<asp:Panel Runat="server" ID="DayTitle">

<h3><%# DataBinder.Eval(Container.DataItem, _

"AddedDate", "{0:dddd, MMMM dd}") %></h3>

</asp:Panel>

<!�aqui est� o restante do template para exibir os dados... -->

</ItemTemplate>

</asp:repeater>

O HeaderTemplate cont�m as tags de abertura da tabela, e o FooterTemplate fecha a tabela. As tags que abrem e fecham as v�rias tabelas que agrupam as mensagens por data s�o definidas em um controle Literal dentro da seç�o ItemTemplate. Ao alternar a visibilidade do controle Literal, voc� decide se deseja mostrar essas tags e, desse modo, define quando deseja fechar a tabela atual e abrir uma nova. A quest�o �: quando ocultar o controle Literal para que a tabela atual seja mantida aberta e as mensagens agrupadas e quando exibi-la, para que a tabela seja fechada e uma nova tabela seja aberta.

A resposta � simples: as mensagens ser�o agrupadas enquanto a data da mensagem que est� sendo processada for a mesma que a da mensagem anterior. Quando a data for alterada, o controle Literal ser� exibido e um novo grupo ser� iniciado. A outra quest�o � quando e onde o conte�do do controle dever� estar vis�vel. Voc� precisa decidir isso enquanto o item de dados (o registro da mensagem do blog) estiver sendo processado e vinculado ao modelo do Repeater no evento ItemDataBound do Repeater. Aqui voc� pode ler todos os valores do item de dados atual e compar�-los aos dados da mensagem anterior, o qual foi armazenado em uma vari�vel est�tica (Static prevDayDate) para que seu valor fosse preservado entre as chamadas de m�todo. Voc� obt�m uma refer�ncia ao controle Literal do modelo e pode definir sua visibilidade de acordo com ele. Aqui est� o c�digo:

Private Sub Blog_ItemDataBound(...) Handles Blog.ItemDataBound

Static prevDayDate As Date

If e.Item.ItemType <> ListItemType.Item AndAlso _

e.Item.ItemType <> ListItemType.AlternatingItem Then Return

Dim dayDate As Date = e.Item.DataItem("AddedDate")

Dim isNewDay As Boolean = (dayDate.ToShortDateString() <> _

prevDayDate.ToShortDateString())

prevDayDate = dayDate

CType(e.Item.FindControl("DayTitle"), Panel).Visible = isNewDay

CType(e.Item.FindControl("DayBox"), Literal).Visible = ( _

isNewDay AndAlso e.Item.ItemIndex > 0)

End Sub

Como voc� pode ver, a propriedade Visible est� especificada para o controle Panel (tamb�m declarada no mesmo modelo) que exibe a data para o dia da tabela atual. Esse painel ser� mostrado se a data da mensagem atual diferir da data da mensagem anterior, ou ele mostrar� a data padr�o se esta for a primeira mensagem vinculada. A visibilidade do controle Literal ter� mais uma restriç�o se for definida como True: a mensagem vinculada n�o poder� ser a primeira porque, nesse caso, a tabela do dia ser� aberta com as tags declaradas na seç�o HeaderTemplate do Repeater. Para encolher e expandir dinamicamente a lista de coment�rios sem que haja um postback para o servidor e o conseq�ente reprocessamento da p�gina, inclua os coment�rios dentro de uma tag <DIV> cujo estilo de exibiç�o possa ser definido como "none" ou como uma seq��ncia de caracteres vazia, para ocult�-la ou exibi-la, respectivamente. A DIV � declarada da seguinte forma, atribuindo-se a ela um ID baseado no item de dados que est� sendo vinculado:

<div

ID='<%# "div" & Container.DataItem("MessageID") %>'>

<!�coloque aqui os coment�rios do DataList -->

</div>

O ID foi atribu�do dessa maneira para que se tornasse exclusivo de cada DIV (lembre-se de que existe uma para cada mensagem). Para expandir ou encolher a DIV, foi usado um hyperlink que chama o c�digo JavaScript personalizado (custom JavaScript) que recebe as informaç�es do ID da DIV:

<asp:HyperLink Runat="server"

Visible='<%# Container.DataItem("CommentsCount") > 0 %>'

NavigateUrl='<%# "javascript:ToggleDivState(div" & _

Container.DataItem("MessageID") & ");" %>'>

View

</asp:HyperLink>

Observe tamb�m que a propriedade Visible � vinculada a uma express�o que retornar� True apenas se a mensagem tiver coment�rios para mostrar (se o valor em sua coluna CommentsCount calculada for maior que 0). O ToggleDivState apenas inverte o valor do estilo de exibiç�o da DIV para fazer com que ele alterne entre o modo vis�vel ou oculto:

function ToggleDivState(ctrl)

{

div = eval(ctrl);

if (div.style.display == "none")

div.style.display = "";

else

div.style.display = "none";

}

Agora, vamos analisar a apresentaç�o dos coment�rios. O DataList far� o trabalho agora porque o layout da tabela � exatamente o que precisamos. Geralmente, � atribu�da dinamicamente a propriedade DataSource de um controle (ou qualquer outro controle de lista de data-bound) no codebehind (ou em uma seç�o de script no lado servidor). Neste caso, por�m, n�o h� uma refer�ncia direta ao DataList porque ele foi criado dinamicamente pelo Repeater-pai. No entanto, a exemplo de muitas outras propriedades, ele pode ter uma express�o data binding que defina seu valor em tempo de execuç�o. Se voc� estava usando a abordagem DataReader para recuperar os dados, a propriedade DataSource poderia ser vinculada a um m�todo personalizado que recebesse a ID da mensagem e retornasse os coment�rios-filho em um DataTable, DataReader ou em qualquer outro tipo de dado que implementasse a interface IEnumerable. Neste exemplo, isso n�o � necess�rio porque todos os dados de que voc� precisa j� est�o armazenados no mesmo DataSet que cont�m as mensagens. Como voc� criou um relacionamento entre as tabelas (mensagem e coment�rios), � poss�vel recuperar facilmente um array com os coment�rios-filho, usando o m�todo GetChildRows do DataRow do item de dados atual. A express�o � declarada desta forma:

<asp:DataList Runat="server" DataSource=

'<%# Container.DataItem.Row.GetChildRows("MsgComments") %>'>

Complete o ItemTemplate do DataList com as express�es para mostrar o nome e o endereço de e-mail do autor, o texto da mensagem e a data; e ent�o, o c�digo que gera o conte�do do blog estar� completo. A Listagem 1 mostra o c�digo finalizado para o m�dulo gerado.

Listagem 1 � C�digo completo do Repeater

<asp:repeater id="Blog" Runat="server">

</HeaderTemplate>

<asp:Literal Runat="server" ID="DayBox">

</td></tr></table><div align="right"><a href="#TopPage">Top

</a></div><br>

<table width="100%" border="1" cellpadding="0"

cellspacing="0"><tr><td>

</asp:Literal>

<asp:Panel Runat="server" ID="DayTitle">

<h3><%# DataBinder.Eval(Container.DataItem, "AddedDate",

"{0:dddd, MMMM dd}") %></h3>

</asp:Panel>

@ <%# DataBinder.Eval(Container.DataItem, "AddedDate",

"{0:hh:mm tt}") %>

<br>

<%# Container.DataItem("Message") %>

<br>

-- <%# Container.DataItem("CommentsCount") %>

comments:

<asp:HyperLink Runat="server" Visible='

<%# Container.DataItem("CommentsCount") > 0 %>'

NavigateUrl='<%# "javascript:ToggleDivState(div" &

Container.DataItem("MessageID") & ");" %>'>

View</asp:HyperLink>

- <a href='<%# "javascript:ShowCommentBox(" &

Container.DataItem("MessageID") & ");" %>'>

Post your own comment</a>

<div style="display:'none'; margin-left:2.0em;

margin-top:.8em; "

ID='<%# "div" & Container.DataItem("MessageID") %>'>

<asp:DataList Runat="server" Width="500px"

ItemStyle-BackColor="whitesmoke"

AlternatingItemStyle-BackColor="white"

DataSource='<%# Container.DataItem.Row.GetChildRows

("MsgComments") %>'

OnDeleteCommand="Comments_DeleteCommand"

OnItemCreated="Comments_ItemCreated"

OnEditCommand="Comments_EditCommand">

<u>Posted by <a class="comment"

href='<%# "mailto:" &

Container.DataItem("Email") %>'>

<%# Container.DataItem("Author") %></a></b>

@ <%# CType(Container.DataItem("AddedDate"),

Date).ToString("hh:mm tt, MMMM dd") %>

</u>

<br>

<%# Container.DataItem("Comment") %>

</p>

</ItemTemplate>

</asp:DataList>

</div>

</p>

</ItemTemplate>

</td></tr></table><div align="right"><a href="#TopPage">Top</a>

</div><br>

</FooterTemplate>

</asp:repeater>

Este artigo foi a primeira parte que ensina como criar um blog. Na segunda parte voc� ver� como selecionar o blog em um per�odo de datas, trabalhar com janelas de calend�rio pop-up, inserir coment�rios e administrar o blog.

Crie seu Weblog com ASP.NET, JavaScript e OleDB (Parte I)

Este artigo apresenta os detalhes de design e de implementação de um projeto Web e explica as técnicas que podem ser facilmente aplicadas a uma variedade de projetos em ASP.NET.

Artigos relacionados