良書網本居宣長『古事記伝』を読む　４出版社: 講談社 Code/ISBN: 9784062585859

圖片只供參考

圖書

本居宣長『古事記伝』を読む　４

作者	神野志隆光／著
出版社	講談社
出版日期	2014-9-1
編號/ISBN	9784062585859
定價 (配送說明)	通常配送 ~~178~~151 港幣 Saved $27 3-4 週到港
數量	本

關於此書

要旨

本居宣長の大著『古事記伝』―。名のみ知られて、ほぼ読み通されることのないこの歴史的名著を、全四十四巻すべて詳細に読み、丁寧に解説する画期的シリーズ、ついに完結！第４巻は、三十二之巻・応神天皇から四十四之巻・推古天皇まで。巻末に、「直毘霊」について、を附す。「聖帝」仁徳天皇が寵愛する八田若郎女、軽太子と軽大郎女の恋など、歌物語を中心に、宣長は『古事記』をどう読み解いたか―。

『古事記伝』三十二之巻・明宮上巻―宇遅能和紀郎子をめぐって
『古事記伝』三十三之巻・明宮中巻―宇遅能和紀郎子と大雀命の天下の譲り合い
『古事記伝』三十四之巻・明宮下巻―天の日矛と、秋山の下氷壮夫・春山の霞壮夫
『古事記伝』三十五之巻・高津宮上巻―「聖帝」仁徳天皇
『古事記伝』三十六之巻・高津宮中巻―石之日売の物語
『古事記伝』三十七之巻・高津宮下巻―歌物語をならべる
『古事記伝』三十八之巻・若桜宮巻、多治比宮巻―墨江中王の反逆
『古事記伝』三十九之巻・遠飛鳥宮巻―軽太子の物語
『古事記伝』四十之巻・穴穂宮巻―不名誉な天皇
『古事記伝』四十一之巻・朝倉宮上巻―歌物語のなかの雄略天皇
『古事記伝』四十二之巻・朝倉宮下巻―豊楽のめでたい歌
『古事記伝』四十三之巻・甕栗宮巻、近飛鳥宮巻、広高宮巻、列木宮巻―顕宗天皇・仁賢天皇の物語
『古事記伝』四十四之巻・玉穂宮、金箸宮、檜〓（ひのくま）宮、師木嶋宮、他田宮、池辺宮、倉椅宮、小治田宮巻―系譜記事だけの天皇たち

精選產品

Name: 本居宣長『古事記伝』を読む ４
Brand: 講談社
Price: 151 HKD
Availability: InStock

Disney 廸士尼

涵蓋樂園攻略、經典故事、繪本、手作與樂譜等。

陶瓷藝術日本陶藝書

收錄大師工藝、器物美學與技法指南，領略職人精神。

日本寫真集

人氣影星與偶像的限定寫真集。

日本週刊組裝雜誌

每期收集精密零件，親手打造高階經典模型。

MOOK 日本品牌附錄書

附贈限定潮牌包款與雜貨，超值收藏熱門潮流。

樂譜專區

動漫影視、J-Pop與古典，鋼琴、吉他、管樂等樂器一應俱全。

日本旅遊

日本自由行, 賞櫻絕景, 溫泉攻略, 飲飲食食, 自駕遊推薦。

《Casa BRUTUS》雜誌書

專注日本建築、設計與生活美學指南。

日本手作書

日本手作書：從飾品到生活小物，啟發無限創意，打造質感生活美學。

Imports System.Xml.Linq Imports System.Text Public NotInheritable Class SideBannerService Private Sub New() End Sub ' ========================================================================= ' FACEBOOK + SIDE BANNERS ' ========================================================================= Public Shared Function RenderSideFacebook() As String Dim path As String = "F:\xml_data\sidebanner.xml" Dim sb As New StringBuilder() sb.Append("

") ' 1. Load XML Banners (if file exists) If System.IO.File.Exists(path) Then Dim doc As XDocument = XDocument.Load(path) Dim items As IEnumerable(Of XElement) = doc.Root.Elements("side_banner") For Each item As XElement In items Dim url As String = If(item.Element("url") IsNot Nothing, item.Element("url").Value, "") Dim title As String = If(item.Element("title") IsNot Nothing, item.Element("title").Value, "") Dim isBlank As String = If(item.Element("isblank") IsNot Nothing, item.Element("isblank").Value, "") Dim img As String = If(item.Element("images") IsNot Nothing, item.Element("images").Value, "") Dim target As String = If(isBlank.ToUpper() = "Y", " target='_blank' rel='noopener noreferrer'", "") sb.Append("

") sb.Append(" ") sb.Append("

") Next End If ' 2. Facebook Widget Box (Matching exact legacy layout) sb.Append("

") sb.Append("

") ' Top Blue Header Bar sb.Append("

") sb.Append(" facebook") sb.Append("

") ' Inner Body: Logo + Name + Follow Button sb.Append("

") ' Left: Logo sb.Append(" ") sb.Append(" yoihon

") sb.Append(" ") ' Right: Text and Button sb.Append("

") sb.Append(" yoihon....") sb.Append(" ") sb.Append(" ") sb.Append(" Follow Page") sb.Append(" ") sb.Append("

") sb.Append("

") Return sb.ToString() End Function ' ========================================================================= ' FEATURE SECTION (FREE DELIVERY + PAYMENT METHODS) ' ========================================================================= Public Shared Function RenderSideFeature(lang As String) As String Dim sb As New StringBuilder() Dim altText As String = LanguagePack.GetText("lang_txt_freedelivery", lang) If String.IsNullOrEmpty(altText) Then altText = "Free Delivery" sb.Append("

") ' Free Delivery Banner sb.Append("

") sb.Append(" ") sb.Append(" " & altText & "

") sb.Append(" ") sb.Append("

") ' Payment Methods sb.Append("

") sb.Append("

") sb.Append(" ") sb.Append(" Payment Method Paypal, Payme, FPS, Visa, Mastercard

") sb.Append(" ") sb.Append("