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 刷新当前页以显示新的主题可以这么做: