1Protected Overrides Sub OnPreInit()Sub OnPreInit(ByVal e As EventArgs) 2 MyBase.OnPreInit(e) 3 4 If Not Session("Theme") Is Nothing Then 5 Page.Theme = Session("Theme") 6 End If 7End Sub 8 2. 將其他所有的page頁都繼承自 ThemePage類，登錄頁可以除外。
3. 在切換主題頁里這么處理：
1If ddlTheme.SelectedIndex = 0 Then 2 Session("Theme") = "Default" ' Use the default Theme 3Else 4 Session("Theme") = ddlTheme.SelectedValue 5End If 6UpdateTheme() ' Store to database 刷新當前頁以顯示新的主題可以這么做：
