良書網近代日本の歴史都市　古都と城下町出版社: 思文閣出版 Code/ISBN: 9784784217007

圖片只供參考

圖書

近代日本の歴史都市　古都と城下町

作者	高木博志／編
出版社	思文閣出版
出版日期	2013-7-1
編號/ISBN	9784784217007
定價 (配送說明)	通常配送 ~~772~~656 港幣 Saved $116 3-4 週到港
數量	本

關於此書

昨今、世界遺産登録など、空前の「古都」ブームであるが、そもそも「古都」とは近代に生み出された概念であり、改めて「古都」を相対化した学問研究が求められている。本書は「都市の歴史性」をキーワードに、京都・奈良など王権と関わった都市である「古都」、金沢・仙台などの「城下町」を対象に、近代史を中心に分野を超えた研究者たちが多数参加した京都大学人文科学研究所・共同研究「近代古都研究」班の成果である。
歴史都市の歴史性　高木博志著．　修学旅行と奈良・京都・伊勢　高木博志著．　郡区町村編制法と京都　小林丈広著．　創建神社の造営と近代京都　清水重敦著．　一八九三年オーストリア皇族の来京　高久嶺之介著．　明治期「洛外」の朝廷由緒と「古都」　谷川穣著．　幸野楳嶺《秋日田家図》について　高階絵里加著．　橋梁デザインに見る風致に対する二つの認識　中川理著．　京都の風致地区指定過程に重層する意図とその主体　中嶋節子著．　歴史を表象する空間としての京都御所・御苑　河西秀哉著．　権門寺社の歴史と奈良町の歴史との間　幡鎌一弘著．　平城神宮創建計画と奈良　黒岩康博著．　神都物語　ジョン・ブリーン著．　「城下町金沢」の記憶　本康宏史著．　誰が藩祖伊達政宗を祀るのか　佐藤雅也著．　武士と武家地の行方　岩城卓二著．　帝国の風景序説　小野芳朗著．　高等中学校制度と地方都市　田中智子著．　近代「三都」考　丸山宏著

精選產品

Name: 近代日本の歴史都市 古都と城下町
Brand: 思文閣出版
Price: 656 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("