Chapter08_list8-26

X-Requested-With

リスト8-26及び次頁Note

        Function AjaxSearch(ByVal id As CategoryEnum) As ActionResult

            Debug.WriteLine(Request.Headers("X-Requested-With"))

            If Request.IsAjaxRequest Then

                Dim articles = db.Articles.Where(Function(a) a.Category = id).OrderBy(Function(a) a.Published)

                Return PartialView("_AjaxSearch", articles)

            End If

            Return Content("Ajax通信以外のアクセスはできません。")

        End Function