<%
dim lan
lan=Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
select case 1
case instr(lan,"zh-cn")
response.Redirect("http://www.mingjue888.com/cn/")
'判斷客戶端是否是中文簡體，如果是轉向/cn/
case instr(lan,"zh-tw")
response.Redirect("http://www.mingjue888.com/tw/")
'判斷客戶端是否是中文繁體，如果是轉向/tw/
case instr(lan,"en")
response.Redirect("http://www.mingjue888.com/en/")
'判斷客戶端是否是英文，如果是轉向/en/
case instr(lan,"fr")
response.Redirect("http://www.mingjue888.com/fr/")
'判斷客戶端是否是法文，如果是轉向/fr/
case instr(lan,"de")
response.Redirect("http://www.mingjue888.com/de/")
'判斷客戶端是否是德文，如果是轉向/fr/
end select
%>
當然如果只有中文和英文頁面，那么也可以用if函數來判斷。

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