良書網古代史の「謎」を歩く　見えてきた「日本の始まり」出版社: 宝島社 Code/ISBN: 9784299002686

圖片只供參考

圖書

古代史の「謎」を歩く　見えてきた「日本の始まり」

作者	関裕二／監修
出版社	宝島社
出版日期	2020-3-1
編號/ISBN	9784299002686
定價 (配送說明)	通常配送 ~~109~~93 港幣 Saved $16 3-4 週到港
數量	本

關於此書

、出雲、九州、丹波、吉備には、古代史の舞台となった史跡が数多く残っています。本誌は、そんな史跡をめぐりながら、歴史作家・関裕二氏が大胆な推理と綿密な分析で、歴史の闇に秘められた古代史の謎に迫ります。古代丹波編ヤマト政権の立役者ともいえる古代丹波（丹波・丹後・但馬）王国ですが、なぜか『日本書紀』ではその功績が無視されています。神話の舞台や注目の遺跡を歩きながら、古代丹波王国の実像に迫ります。大和編初期ヤマト政権の都とされる纒向遺跡だけでなく、それ以前の縄文・弥生遺跡にも焦点をあて、その成立の謎に迫ります。葛城氏、蘇我氏、物部氏、聖徳太子など、伝説に彩られた一族の興亡の謎にも注目。出雲編『日本書紀』の神話の舞台は、出雲と日向のふたつの地域に凝縮されています。ヤマト建国の立役者である丹波や吉備の影が薄い一方で、なぜ出雲が神話の舞台に選ばれたのか。出雲神話や遺跡をたどりながら、古代出雲勢力の実像を探っていきます。九州編ヤマト政権が造られたのは、九州の強大な勢力に対抗するためだったのか。『魏志倭人伝』『古事記』『日本書紀』の記録などをもとに、邪馬台国と天孫降臨神話に隠された九州の実力を再検証します。吉備編弥生時代後期に急速に発展した吉備は、最初に前方後円墳を築き、ヤマト政権の祭祀において重要な役割を担いました。しかし、ヤマト政権内では、やがて吉備を中心とした瀬戸内海勢力と、丹波や出雲などの日本海沿岸勢力が対立したとみられます。勝者はどちらだったのか。吉備の繁栄と没落の歴史を追っていきます。

精選產品

Name: 古代史の「謎」を歩く 見えてきた「日本の始まり」
Brand: 宝島社
Price: 93 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("