国家的不同,网站自动实现语言的转向。

日期:2012-3-17 类型:动态网站技术

这个问题也是我花了好长时间才解决的问题,在网上搜索了很多,没有几个是实用了。今天介绍一个大家公认的。可以解决国家的不同,网站自动实现语言的转向。大家也分享一下。

<%

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

Dim AL,LG

 

AL = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") '获取用户浏览器可接受语言参数

LG = RegExpTest("^[a-z\-]+",AL) '获取用户浏览器可接受语言的首选项

'response.write "LG="&LG

'response.End()

if LG="zh-cn" then

response.Redirect("cn/deindex.asp")

else

response.Redirect("cn/index.asp")

end if

 

%>

上述代码有详细的解释,在这里我就不多说了。希望对大家学习有帮助。

深圳市蒸蒸科技有限公司

地址:深圳市龙华新区龙观西路2号宝龙大厦915室

手机:15013488376

联系人:商先生

公司网址:http://www.jixingweb.com


响应式网站
兼容手机端、电脑端、微信端
网站转静态开发
打开速度快、安全性高、利于SEO优化
HTML5+CSS3最新技术
采用最新网站排版技术,动态效果更逼真
仿站2500元起
高仿网站、价格便宜、功能齐全