在ASP.Net 2.0中实现多语言界面的方法

源代码网整理以下<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="Default2" title="Untitled Page" Culture="auto" meta:resourcekey="PageResource1" UICulture="auto" %>

源代码网整理以下…………

源代码网整理以下<asp:Localize ID="Localize1" runat="server" meta:resourcekey="Localize1Resource1"></asp:Localize>

源代码网整理以下    Private SupportedLanguages As String() = {"en-us", "fr-fr"}

源代码网整理以下    Public Const LANGUAGE_COOKIE_NAME As String = "UserLanguage"

源代码网整理以下    Sub Application_AcquireRequestState(ByVal sender As Object, ByVal e As EventArgs)

源代码网整理以下        Dim languageCookie As HttpCookie = Request.Cookies(LANGUAGE_COOKIE_NAME)

源代码网整理以下        Dim language As String = String.Empty

源代码网整理以下        If (languageCookie Is Nothing) Then

源代码网整理以下            Dim userLanguages As String() = Request.UserLanguages

源代码网整理以下            Dim index As Integer

源代码网整理以下            For i As Integer = 0 To userLanguages.Length - 1

源代码网整理以下                index = Array.IndexOf(SupportedLanguages, userLanguages(i))

源代码网整理以下                If index >= 0 Then

源代码网整理以下                    language = SupportedLanguages(index)

源代码网整理以下                    Exit For

源代码网整理以下                End If

源代码网整理以下            Next

源代码网整理以下            If language = String.Empty Then _

源代码网整理以下                language = SupportedLanguages(0)

源代码网整理以下            Response.Cookies.Add(New HttpCookie(LANGUAGE_COOKIE_NAME, language))

源代码网整理以下        Else

源代码网整理以下            language = languageCookie.Value

源代码网整理以下        End If

源代码网整理以下        Dim culture As CultureInfo = New CultureInfo(language)

源代码网整理以下        System.Threading.Thread.CurrentThread.CurrentUICulture = culture

源代码网整理以下End Sub

源代码网整理以下    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

源代码网整理以下        SetLanguage("fr-fr")

源代码网整理以下    End Sub

源代码网整理以下    Protected Sub SetLanguage(ByVal language As String)

源代码网整理以下        Response.Cookies(Global.ASP.global_asax.LANGUAGE_COOKIE_NAME).Value = language

源代码网整理以下        Dim culture As CultureInfo = New CultureInfo(language)

源代码网整理以下        System.Threading.Thread.CurrentThread.CurrentUICulture = culture

源代码网整理以下        Server.Transfer(Request.Path)

源代码网整理以下End Sub