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("
")
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("
")
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("
")
' Payment Methods
sb.Append("
")
sb.Append("
")
sb.Append("
")
sb.Append("
")
sb.Append("
")
Return sb.ToString()
End Function
End Class
![" & title & "](https://www.yoihon.com/sc/images/" & img & ")
")
sb.Append(" ")
sb.Append("
")
sb.Append(" ")
' Right: Text and Button
sb.Append(" 
")
sb.Append(" ")
sb.Append("
")
sb.Append(" ")
sb.Append(" 
")
sb.Append(" ")
sb.Append(" 
良書網 Yoihon.com