<%
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
%>