良書網 Sonar Pocket<br>ソナポケイズム　SUPER　BEST<br>＜通常盤＞出版社: 徳間ジャパンコミュニケーション Code/ISBN: TKCA-73985

圖片只供參考

音樂/CD

Sonar Pocket
ソナポケイズム　SUPER　BEST
＜通常盤＞

演出	ソナーポケット
發行商	徳間ジャパンコミュニケーション
出版日期	2013-9-3
商品編號	TKCA-73985
定價 (配送說明)	通常配送 ~~300~~255 港幣 Saved $45 3-4 週到港
數量	本

關於此產品

本作為日本3人樂團Sonar Pocket結成5週年所發行推出的精選專輯。
Sonar Pocket 由3位來自名古屋的成員於2005年組成，現時成員為主唱ko-dai和eyeron及DJ matty。
本專輯收錄多首大熱作品如“好きだよ。～100回の後悔～”、“365日のラブストーリー。”
及剛於8月發行的“線香花火～８月の約束～”。

J-Pop
CD 1
1.365日のラブストーリー。（ソナーポケット）
2.好きだよ。～100回の後悔～（ソナーポケット）
3.100年先まで愛します。（ソナーポケット）
4.失恋　～君は今、幸せですか？～（ソナーポケット）
5.ラブレター。～いつだって逢いたくて～（ソナーポケット）
6.二人いつまでも（ソナーポケット）
7.ゴメンね・・・。～お前との約束～（ソナーポケット）
8.遠恋だけど逢えない時間もアイシテル。（ソナーポケット）
9.「でも・・・。でも・・・。でも・・・。」（ソナーポケット）
10.君と見る未来。（ソナーポケット）
11.片想い。～リナリア～（ソナーポケット）
12.涙（ソナーポケット）
13.線香花火　～8月の約束～（ソナーポケット）
14.Promise（ソナーポケット）
15.夜空咲いた星の下で。～I　promise　you～（ソナーポケット）

CD 2
1.あなたのうた（ソナーポケット）
2.月火水木金土日。～君に贈る歌～（ソナーポケット）
3.世界で一番ステキな君へ。（ソナーポケット）
4.ネバギバ！（ソナーポケット）
5.友達に贈る歌（ソナーポケット）
6.泣いてもいいんだ（ソナーポケット）
7.支え（ソナーポケット）
8.マイペース（ソナーポケット）
9.スタートライン！（ソナーポケット）
10.アリガトウ（ソナーポケット）
11.君へ・・・（ソナーポケット）
12.going　my　way（ソナーポケット）
13.口笛（ソナーポケット）
14.MY　SWEET　HOME（ソナーポケット）
15.キミ記念日　～生まれて来てくれてアリガトウ。～（ソナーポケット）
16.花（ソナーポケット）

精選產品

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