良書網東国の戦国合戦出版社: 吉川弘文館 Code/ISBN: 9784642063203

圖片只供參考

圖書

東国の戦国合戦

作者	市村高男／著
出版社	吉川弘文館
出版日期	2009-1-1
編號/ISBN	9784642063203
定價 (配送說明)	通常配送 ~~248~~211 港幣 Saved $37 3-4 週到港
數量	本

關於此書

要旨	一五世紀末の公方家、管領家の抗争の中で幕が上がる戦国の動乱。北条、越後上杉、武田氏が台頭するなか、千葉、小田、佐竹氏ら東国諸氏は、独自の地位を築く。武士団を中心に「東」の戦国時代を大きなスケールで描く。
目次	１　戦国世界の成立―明応の乱から永正の乱へ（伊勢宗瑞の登場と伊豆・相模山内・扇谷上杉氏の抗争と古河公方家の内紛旧族領主層の内部抗争上野の旧族と山内上杉氏家臣の同行戦国状況の開幕）２　戦国合戦の展開―大永・天文の乱の時代（北条氏と両上杉氏の抗争房総の天文の乱と第一次国府台合戦河越城の光芒と両上杉氏の没落常陸・下野の天文の乱戦国合戦の展開）３　北条・上杉両氏の相剋と東国領主―弘治・永禄の争乱の時代（常陸・下野の政局と北条氏の房総侵攻北条氏と上杉謙信の抗争第二次国府台合戦と房総佐竹氏と南奥・下野上杉謙信の退勢と上野・武蔵豊穣・上杉氏同盟の成立とその衝撃杜動くの地域統一への胎動）４　関東統一と天下統一の競合（北条氏の北進と反北条連合の形成佐竹氏と南奥の戦局常陸・房総の戦局反北条連合と織田信長本能寺の変の衝撃北条氏の攻勢と反北条連合終焉に向かう東国の戦国）
出版社商品紹介	１５世紀末の戦国動乱期、北条氏、越後上杉、武田氏が台頭する狭間で独自の地位を築いた千葉・小田・佐竹氏ら関東武士団の合戦絵巻。

精選產品

Name: 東国の戦国合戦
Brand: 吉川弘文館
Price: 211 HKD
Availability: InStock

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

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

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

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

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

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

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

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

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

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("