動態套用CSS樣式的方法

就這ㄇ簡單，在Page_Load的時候指定你要套用的CSS樣式

Protected Sub Page_Load(ByVal sender As Object, _ByVal e As System.EventArgs)

Dim cssLink As New HtmlLink()
cssLink.Href = "~/styles.css"
cssLink.Attributes.Add("rel", "stylesheet")
cssLink.Attributes.Add("type", "text/css")
Header.Controls.Add(cssLink)

End Sub

或是完整一點的寫法

在同一頁面上，您只要使用下列方法(或用SWITCH ..CASE判斷)：

Dim RED As String = "RED"
Dim BLUE as String="BLUE"

IF 使用者選擇RED THEN
Response.Write("<link href =""App_Themes/" & RED & "/Mycss.css"" type=""text/css"" rel=""stylesheet"" />")
ELSE IF 使用者選擇BLUE THEN
Response.Write("<link href =""App_Themes/" & BLUE& "/Mycss.css"" type=""text/css"" rel=""stylesheet"" />")
END IF

就可以達到根據使用者的選擇，達到頁面套用適合的CSS。