让你的网站首页自动选择语言

衣明志 发表于 , 阅读 (16322)

过去在一家软件外企工作时写过一个小的web实验性项目,其中一部分需求是用户界面的多种语言(简体中文、繁体中文、英语、朝鲜语、日语)支持,当时使用了模板技术来实现了该需求,并用Cookies保存了用户的设置,但是用户第一次登陆时(或者是将Cookies删除了以后)仍然需要选择语言种类,那么能不能更方便用户呢?能不能用程序来自动帮助选择呢?

答案是肯定的,大家都在用google,你用中文系统打开google的首页,打开的自然是中文首页,而不会是其他语言。因为google会自动判断用户系统使用的首选语言是什么。

怎样才能做到像google那样呢,其实很简单,

在浏览器发给web服务器的 HTTP Headers Information 中包含了这样一个信息 Accept-Language,这个信息就是,浏览器中 工具->gt;Internet选项->gt;常规下的语言,它就是用来设置浏览器可接受的语言首选项的, 它可以是多种可接受语言的优先排序列。 下面我以asp为例简单介绍一下“如何来自动判断用户语言”:

<%
Function RegExpTest(patrn, strng)
   Dim regEx,Match,Matches'建立变量。
  Set regEx = New RegExp'建立正则表达式。
  regEx.Pattern = patrn'设置模式。
  regEx.IgnoreCase = True'设置是否区分字符大小写。
  regEx.Global = True'设置全局可用性。
  Set Matches = regEx.Execute(strng)'执行搜索。
  For Each Match in Matches'遍历匹配集合。
        RetStr = RetStr&Match.Value
   Next 
   RegExpTest = RetStr
End Function 
 AL = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")'获取用户浏览器可接受语言参数
LG = RegExpTest("^[a-z\-]+",AL)'获取用户浏览器可接受语言的首选项
select case LG
  case "zh-cn" 
         response.write "中文(中国)" 
  case "zh-tw" 
         response.write "中文(台湾)" 
  case "zh-mo" 
         response.write "中文(澳门特别行政区)" 
  case "zh-hk" 
         response.write "中文(香港特别行政区)" 
  case "zh-sg" 
         response.write "中文(新加坡)" 
  case "en-us" 
         response.write "英语(美国)" 
  case "ja" 
         response.write "日语" 
  case "ko" 
         response.write "朝鲜语" 
end select 
%>
2 条评论
heybye
heybye 2006-08-27 12:17
在找相关资料,看到这篇文章,多谢。 不过用正则表达式太麻烦了,可以改成这样: AL = Request.ServerVariables(&quot;HTTP_ACCEPT_LANGUAGE&quot;)'获取用户浏览器可接受语言参数 LG = Split(AL &amp; &quot;,&quot;, &quot;,&quot;) Select Case LG(0) 另外,英语中还要加一个: Case &quot;en-us&quot;, &quot;en&quot; 再次谢谢共享。
qihangnet
qihangnet 2006-08-28 08:00
To:heybye 也谢谢你:)