<%
dim lan
lan=Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
select case 1
case instr(lan,"zh-cn")
response.Redirect("http://www.eucms.cn/cn/")
'判断客户端是否是中文简体，如果是转向/cn/
case instr(lan,"zh-tw")
response.Redirect("http://www.eucms.cn/tw/")
'判断客户端是否是中文繁体，如果是转向/tw/
case instr(lan,"en")
response.Redirect("http://www.eucms.cn/en/")
'判断客户端是否是英文，如果是转向/en/
case instr(lan,"fr")
response.Redirect("http://www.eucms.cn/fr/")
'判断客户端是否是法文，如果是转向/fr/
case instr(lan,"de")
response.Redirect("http://www.eucms.cn/de/")
'判断客户端是否是德文，如果是转向/fr/
end select
%>
当然如果只有中文和英文页面，那么也可以用if函数来判断。

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