Wrox Blog Question

norman001 · January 9th, 2009, 09:06 PM

Hi,

I am trying to integrate Wrox Blog engine code to a site that does NOT implement .NET role membership
features. The site has a user table with id, password, and role information. The userRole is
declared as tinyint in SQL2K database. The 2 roles are 1 or 0. Zero goes to anonymous users and
1 goes to admin who could update blogs. I updated the following original code as follows:

Original Code has the following line..:

BlogEntries.ascx CODE:

<asp:LinkButtonID="lnkEdit"runat="server"CommandName="Edit"Text="(Edit This Entry)"CssClass="EditLink"CommandArgument='<%#Eval("Id")%>'Visible='<%#CanEdit()%>'></asp:LinkButton></h2>

BlogEntries.ascx.vb CODE has the following...

Protected ReadOnly Property CanEdit() As Boolean
Get
Return Context.User.IsInRole("Administrator")
End Get
End Property
========================
Changed CODE:

But the following code does NOT turn on "Edit this Entry" link. What am I doing wrong?

BlogEntries.ascx
<asp:LinkButtonID="lnkEdit"runat="server"CommandName="Edit"Text="(Edit This Entry)"CssClass="blog_EditLink"CommandArgument=<%#Eval("Id")%> Visible='<%#isRole()%>'></asp:LinkButton></h2>

BlogEntries.ascx.vb

Public Property isRole() As Boolean
Get
If userRole = 1 Then
Return True
ElseIf userRole = 0 Then
Return False
End If
End Get
Set(ByVal value As Boolean)
ViewState("isRole") = value
End Set
End Property

Imar · January 10th, 2009, 05:04 AM

Hi there,

Where does userRole get its value?

The setter of your proeprty stores data in VIewStae, while the getter uses a private backing variable called userRole. Looks to me that userRole never gets a value..... Maybe this works:

Code:

 
Public Property isRole() As Boolean
  Get
    Dim temp As Integer
    If ViewState("IsRole") IsNot Nothing Then
      temp = Convert.ToInt32(ViewState("IsRole"))
    End If
    Return temp = 1
  End Get
  Set(ByVal value As Boolean)
    ViewState("isRole") = value
  End Set
End Property

I haven't tested this code, but I hope it shows you the general idea: the property now uses ViewState as the backing store in the setter and the getter...

Cheers,

Imar

norman001 · January 11th, 2009, 12:02 AM

Thanks Imar! That code is perfect.!!

norman001 · January 11th, 2009, 10:53 AM

Hi Imar,

Every time I try to save a blog in blog edit/save form, I get the following error coming as pop-up window. Could I please ask how to debug this error. Thanks!

"Sys.WebForms.PageRequestManagerServerErrorExcepti on:An unknown error occurred while processing the request on the server. The status code returned from the server was:500"

Imar · January 11th, 2009, 10:56 AM

Trry removing the UpdatePanel and the ContentTemplate. That way, you get to see the real error...

Imar

norman001 · January 11th, 2009, 02:32 PM

Hi, I found a solution in the web. I added the following line to web.config and the
error is gone now..

validateRequest="false"

Imar · January 11th, 2009, 04:22 PM

Ah, yes, request validation..... Rather than setting it in web.config where it affects all the pages in your site, you could consider setting it in the page directive for the offending page only. Request validation is a security measure, and turning it off for the entire site makes your site a little less secure....

Cheers,

Imar

norman001 · January 12th, 2009, 12:21 AM

Oops! Thank you. I removed that directive from web.config and added to the blogs main page. I have another question. In the bonus chapter content, under chapter 6, there is a word document that states implimenting 3 things with first one being the paging funtionality of blogs. The sample code for other things are there except the paging code. I am wondering whether paging code exist somewhere in the Wrox site. Thanks again for your prompt responses.. here is the text from the word doc..
...................................
1.Implement paging. The BlogEntries user control now displays all the blog entries that have been published within a certain category. If you blog a lot, this list may grow very long, making it hard to load and read the page. By using paging, where you show only, say, 20 records per page, things become a lot easier for the user.
.................................................. .......

Imar · January 12th, 2009, 02:56 PM

Hi norman001,

Take a look at page 294 and onwards. It exaplains how to implement paging with controls that do not support paging out of the box (like the DataList).

Cheers,

Imar

asphelp · January 23rd, 2009, 08:23 PM

Hi Imar,

I was working on the paging for a while but it seems I am not getting anywhere. Once I run following code I get page numbers 1,2 next..but when I click them I don't see the data coming...could you please have a look at this code see what is wrong with it? The highlighted parts are added pagination code...

Thanks a bunch!

BlogEntries.ascx.vb:
=======================
Private Sub LoadData()
Dim myDataSet As DataSet = Nothing
'Dim myPageDataSource As New PagedDataSource()

If Request.QueryString.Get("startDate") IsNot Nothing Then
startDate = Convert.ToDateTime(Request.QueryString.Get("startDate"))
If Request.QueryString.Get("endDate") IsNot Nothing Then
endDate = Convert.ToDateTime(Request.QueryString.Get("endDate"))
Else
endDate = startDate
End If
startDatePass = startDate
endDatePass = endDate
Label1.Text = startDatePass
myDataSet = BlogManager.GetBlogEntries(startDate, endDate)
Process_Pagination(myDataSet)
If endDate = startDate Then
lblResults.Text = "Below you find blog entries posted on " & startDate.ToShortDateString() & "."
Else
lblResults.Text = "Below you find blog entries posted between " & startDate.ToShortDateString() & " and " & endDate.ToShortDateString() & "."
End If
Else
If Request.QueryString.Get("categoryId") IsNot Nothing Then
myDataSet = BlogManager.GetBlogEntries(Convert.ToInt32(Request .QueryString.Get("categoryId")))
Process_Pagination(myDataSet)
If myDataSet IsNot Nothing AndAlso myDataSet.Tables.Count > 0 AndAlso myDataSet.Tables(0).Rows.Count > 0 Then
lblResults.Text = "Below you find blog entries posted in the category " & myDataSet.Tables(0).Rows(0)("Description").ToString() & "."
BlogCategory = myDataSet.Tables(0).Rows(0)("Description").ToString()
End If
Else

If myDataSet IsNot Nothing AndAlso myDataSet.Tables.Count > 0 AndAlso myDataSet.Tables(0).Rows.Count > 0 Then
lblResults.Text = "Below you find the latest " & myDataSet.Tables(0).Rows.Count & " blog entries posted on the site."
End If
End If
End If

If myDataSet IsNot Nothing AndAlso myDataSet.Tables.Count > 0 AndAlso myDataSet.Tables(0).Rows.Count > 0 Then
dlBlogEntries.DataSource = myDataSet
dlBlogEntries.DataBind()
Process_Pagination(myDataSet)

Else
lblResults.Text = "No blog entries found for the date or category you requested."
End If
End Sub

â THE PAGINATION CODE WORKSâ¦BUT PROBLEM IS HOW DO I GET NEXT & PREV PAGES to CONNECT TO THE DATA..

Protected Sub Process_Pagination(ByVal ds As DataSet)
Dim objPds As New PagedDataSource()
objPds.DataSource = ds.Tables(0).DefaultView
objPds.AllowPaging = True
Dim pagesize As Integer = 3
objPds.PageSize = pagesize
objPds.CurrentPageIndex = (PageNumber - 1)

If Not objPds.IsFirstPage Then
lnk_Prev.Visible = True
Else
lnk_Prev.Visible = False
End If

If Not objPds.IsLastPage Then
lnk_Next.Visible = True
Else
lnk_Next.Visible = False
End If

Dim arr As ArrayList = _process_pagination.Return_Pagination_Link(objPds. PageCount, 3, PageNumber)
If objPds.PageCount > 1 Then
rptPages.Visible = True
rptPages.DataSource = arr
rptPages.DataBind()
Else
rptPages.Visible = False
End If

dlBlogEntries.DataSource = objPds
dlBlogEntries.DataBind()
End Sub

Protected Sub rptPages_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.RepeaterCommandEventArgs )
Dim btnPage As LinkButton = CType(e.Item.FindControl("btnPage"), LinkButton)
PageNumber = CInt(btnPage.Text)
Dim myDataSet As DataSet = Nothing
dlBlogEntries.DataSource = myDataSet
dlBlogEntries.DataBind()
Process_Pagination(myDataSet)

End Sub

Protected Sub lnk_Next_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnk_Next.Click
PageNumber = PageNumber + 1
Dim myDataSet As DataSet = Nothing
dlBlogEntries.DataSource = myDataSet
dlBlogEntries.DataBind()
Process_Pagination(myDataSet)

End Sub

Protected Sub lnk_Prev_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnk_Prev.Click
PageNumber = PageNumber - 1
Dim myDataSet As DataSet = Nothing
dlBlogEntries.DataSource = myDataSet
dlBlogEntries.DataBind()
Process_Pagination(myDataSet)

End Sub

Protected Overrides Sub OnInit(ByVal e As EventArgs)
MyBase.OnInit(e)
AddHandler rptPages.ItemCommand, AddressOf Me.rptPages_ItemCommand
End Sub

Protected Sub rptPages_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.RepeaterItemEventArgs) Handles rptPages.ItemDataBound
If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
Dim btnPage As LinkButton = CType(e.Item.FindControl("btnPage"), LinkButton)
If btnPage.Text = PageNumber Then
btnPage.CssClass = "pagination_link_selected"
Else
btnPage.CssClass = "pagination_link"
End If
End If
End Sub

BlogEntries.ascx
================
<div class="pagination_item">
<asp:LinkButton ID="lnk_Prev" runat="server" Text="Prev" CssClass="bold_link"></asp:LinkButton> 
<asp:Repeater ID="rptPages" runat="server">
<ItemTemplate>
<asp:LinkButton ID="btnPage" CommandName="Page" CommandArgument="<%# Container.DataItem %>"
Text='<%# Container.DataItem %>' runat="server"></asp:LinkButton> 
</ItemTemplate>
</asp:Repeater>
 
<asp:LinkButton ID="lnk_Next" runat="server" CssClass="bold_link" Text="Next"></asp:LinkButton>
</div>
================================================== =======================