良書網 VOCE SPECIAL 2026年09月号【表紙: 佐野勇斗（M!LK）】出版社: 講談社 Code/ISBN: 10075

圖片只供參考

雜誌

VOCE SPECIAL 2026年09月号【表紙: 佐野勇斗（M!LK）】

出版社	講談社
出版日期	2026-7-22
週期	單行本/預購
編號/ISBN	10075 / 4912100750968
定價 (配送說明)	通常配送 ~~135~~115 港幣 Saved $20 3-4 週到港
	現已停止接受訂購

關於此書

封面由佐野勇斗（M!LK）擔綱，本期聚焦「猛暑肌急救」主題，提供鎮靜 → 修復 → 預防的完整護膚方案，幫助讀者應對紫外線、泛紅、痘痘等夏季肌膚困擾。

豪華附錄：
ドクターケイ(Dr.K) ABC-G 修護卸妝油 (13ml)
アヴァンセ(AVANCÉ) 液體眼線筆（隨機 1 色）
TSUDA COSMETICS 美肌名品 BOX
PERFECT DIARY 精緻彩妝套裝（隨機 1 色）

內容亮點：
夏季肌膚急救護理全攻略
「找到最適合自己的妝容」專題
2026 秋季新色 BOOK 完整收錄
#ほのみく共演企劃：夏秋交替的光澤肌 × 秋色妝容
美容專家分享持妝與護膚新知

表紙：佐野勇斗（Ｍ！ＬＫ）／猛暑肌に今すぐ！鎮静→回復→先取ケア！｜別添：ドクターケイ、ＴＳＵＤＡ　ＣＯＳＭＥ、アヴァンセ、ＰＥＲＦＥＣＴ　ＤＩＡＲＹ

【特別付録】・ドクターケイ　　ＡＢＣ－Ｇリペア　クレンジングオイル・アヴァンセ　　ジョリ・エ　ジョリ・エ　リキッドアイライナー・ＴＳＵＤＡ　ＣＯＳＭＥＴＩＣＳ　　美肌大名品付録ＢＯＸ・ＰＥＲＦＥＣＴ　ＤＩＡＲＹ　　洗練メイクセット・紫外線、赤み、ほてり、ニキビ……　　猛暑肌に今すぐ！　　　鎮静→回復→先取りケア！・自分のメイクに飽きた。プロはどう「似合う」を見つけてる？　　「私、もう何年も同じ顔してる」！　　　「今の自分に似合うメイク」の探し方・２０２６　秋新色ＢＯＯＫ・＃ほのみく共演　夏から楽しむ秋カラー　　ツヤ肌×秋色１点投入でサマーフェイス…ほか

精選產品

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

") sb.Append("

") sb.Append(" ") sb.Append(" Octopus Card

") sb.Append(" ") sb.Append("

") sb.Append("

") Return sb.ToString() End Function End Class