良書網香港都市案内集成第1回配本 6巻セット出版社: ゆまに書房 Code/ISBN: 9784843343937

圖片只供參考

圖書

香港都市案内集成第1回配本 6巻セット

作者	ｙｍｚ／著
出版社	ゆまに書房
出版日期	2013-11-1
編號/ISBN	9784843343937
定價 (配送說明)	通常配送 ~~9,603~~8,163 港幣 Saved $1440 3-4 週到港
數量	本

關於此書

シリーズ・近代アジアの都市と日本香港都市案内集成　第1巻　香港事情概要／台湾、南支那、香港及海峡植民地ニ於ケル欧洲戦乱ノ影響／香港要覧／香港概観（三井物産株式会社香港支店著）

　●香港事情概要（南支那及南洋調査第五）　
　根本台湾銀行書記調査（1916年・台湾総督府）
香港の沿革、港湾設備、貿易、特殊税金等についての簡潔な報告。第一次世界大戦の時代状況を反映し、イギリスの地位の不動、ポルトガルの優柔不断、ドイツの興隆等、アジアにおけるヨーロッパの対立に注目するなど、興味深い視点を示している。
　●台湾、南支那、香港及海峡植民地ニ於ケル
　欧洲戦乱ノ影響（南支那及南洋調査第八）
　台湾銀行調査（1916年・台湾総督府）
第一次世界大戦が台湾経済に大きく影響したため、実態の解明に資すべく編纂された。台湾本島の状況及び、香港を含む中国各都市との貿易統計、石炭、綿糸等の商品取引の状況を詳説する。香港については「敵艦の来襲を告げるデマがあり、マカオ・広東に避難する者は数千に達した」と、混乱した様子を伝えている。
　●香港要覧（南支那及南洋調査第五十五）　
　台湾総督官房調査課（1922年・台湾総督官房調査課）
台湾総督府の参考資料である「南支那及南洋調査」の1冊。香港の通商に注目する類書が多いのに対して、本書では特に行政や監獄を中心とする統治機構、伝染病を予防する衛生機関、人種別の教育政策に説明を割いており、植民地経営のモデルとして香港を意識していた観点が興味深い。ほか

精選產品

Name: 香港都市案内集成 第1回配本 6巻セット
Brand: ゆまに書房
Price: 8163 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("