Yoihon 良書網 訂購日本書籍、雜誌、動漫，WhatsApp 9411 6767 查詢

title=

  1. HOME
  2. 歴史・地理・紀行
  3. 日本史
良書網 温泉の日本史　記紀の古湯、武将の隠し湯、温泉番付 出版社: 中央公論新社 Code/ISBN: 9784121024947

圖片只供參考

產品查詢

圖書

温泉の日本史　記紀の古湯、武将の隠し湯、温泉番付

作者石川理夫／著
出版社 中央公論新社
出版日期2018-6-1
編號/ISBN 9784121024947
定價 (配送說明)通常配送 8774 港幣   Saved $13
3-4 週到港
數量  本
  • 關於此書

要旨

日本人と温泉の関わりは古く、三古湯と称される道後・有馬・白浜温泉は『日本書紀』にも出てくる。中世には箱根・熱海・草津・別府などの名湯が歴史の表舞台に現れた。武田信玄ら戦国大名が直轄した領国内の温泉地は「隠し湯」として知られる。江戸時代に入ると大名や藩士、幕臣らはこぞって湯治旅を楽しむようになり、旅行案内書や温泉番付が登場。初の秘湯ブームも到来した―。多彩なエピソードでつづる通史。
目次

第１章　“日本三古湯”の登場―飛鳥・奈良時代まで
第２章　王朝と温泉の縁―平安時代
第３章　箱根・熱海・草津・別府が表舞台に―鎌倉・室町時代
第４章　惣湯と戦国大名の“隠し湯”―戦国・安土桃山時代
第５章　“徳川の平和”が広めた湯治旅と御殿湯―江戸時代
第６章　自然湧出から掘削開発の時代へ―明治・大正時代
第７章　温泉観光の発展と変容―昭和・平成時代
終章　日本の温泉はこれからどうなるのか

精選產品

Disney 廸士尼
Disney 廸士尼
涵蓋樂園攻略、經典故事、繪本、手作與樂譜等。
陶瓷藝術日本陶藝書
陶瓷藝術日本陶藝書
收錄大師工藝、器物美學與技法指南，領略職人精神。
日本寫真集
日本寫真集
人氣影星與偶像的限定寫真集。
日本週刊組裝雜誌
日本週刊組裝雜誌
每期收集精密零件，親手打造高階經典模型。
MOOK 日本品牌附錄書
MOOK 日本品牌附錄書
附贈限定潮牌包款與雜貨，超值收藏熱門潮流。
樂譜專區
樂譜專區
動漫影視、J-Pop與古典，鋼琴、吉他、管樂等樂器一應俱全。
日本旅遊
日本旅遊
日本自由行, 賞櫻絕景, 溫泉攻略, 飲飲食食, 自駕遊推薦。
《Casa BRUTUS》雜誌書
《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(" " & title & "") 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("
") 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("
") sb.Append("
") sb.Append(" ") sb.Append(" Octopus Card") sb.Append(" ") sb.Append("
") sb.Append("
") sb.Append("
") Return sb.ToString() End Function End Class
免費送貨

Payment Method Paypal, Payme, FPS, Visa, Mastercard

Octopus Card