虚位以待(AD)
虚位以待(AD)
首页 > 网络编程 > ASP编程 > 用ASP判断客户端浏览器语言自动跳转代码

用ASP判断客户端浏览器语言自动跳转代码
类别:ASP编程   作者:码皇   来源:互联网   点击:

我们打开Google的时候可能大家会发现,无论你输入Google的任何网址,它都根据你使用的语言自动判断并跳转到不同的语言界面。用ASP获取客户端浏览器的语言,然后实现类似Google的判断语言自动跳转和网页自动转向功能。

我们打开Google的时候可能大家会发现,无论你输入Google的任何网址,它都根据你使用的语言自动判断并跳转到不同的语言界面。

也就是你用不同的语言,那么输入Google首页就可以自动转向你使用的语言。

那么我们的网站能否实现这个功能呢?我们可以根据浏览器的语言来进行判断并自动转向。

如果你的网站使用ASP搭建的,或者你的网站空间支持ASP,那么就可以用Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")来判断客户端语言然后自动跳转。

比如你的不同语言的页面分别是:

中文:http://www.iCoA.cn/cn/index.asp

英文:http://www.iCoA.cn/en/index.asp

在你首页前面加入以下代码,或者将网站首页设置为如下代码的ASP文档:

<%
dim lan
lan=Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")

select case 1

case instr(lan,"zh-cn")
response.Redirect("http://www.iCoA.cn/cn/index.asp")
'判断客户端是否是中文简体,如果是转向/cn/index.asp

case instr(lan,"zh-tw")
response.Redirect("http://www.iCoA.cn/tw/index.asp")
'判断客户端是否是中文繁体,如果是转向/tw/index.asp

case instr(lan,"en")
response.Redirect("http://www.iCoA.cn/en/index.asp")
'判断客户端是否是英文,如果是转向/en/index.asp

case instr(lan,"fr")
response.Redirect("http://www.iCoA.cn/fr/index.asp")
'判断客户端是否是法文,如果是转向/fr/index.asp

case instr(lan,"de")
response.Redirect("http://www.iCoA.cn/de/index.asp")
'判断客户端是否是德文,如果是转向/fr/index.asp

end select

%>

当然如果只有中文和英文页面,那么也可以用if函数来判断。

<%
dim lan
lan=Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")

if InStr(lan,"zh")>0 then
response.redirect("http://www.iCoA.cn/cn/")
'如果是中文那么转向中文页面
else
response.redirect("http://www.iCoA.cn/en/")
'如果不是中文,那么统一转向英文页面
end if
%>

备注:instr函数用来判断字符串中是否含有某些字符串在什么位置。如instr("中华人民共和国","中华")=1

详细了解instr函数点击:http://www.icoa.cn/a/317.html

相关热词搜索: 语言 跳转 ASP