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

【 tulaoshi.com - Web开发 】

　　    过去在一家软件外企工作时写过一个小的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
　　%