<%
dim lan
lan=request.servervariables("http_accept_language")
select case 1
case instr(lan,"zh-cn")
response.redirect("http:////cn/index.asp教程")
'判斷客戶端是否是中文簡體,如果是轉向/cn/index.asp
case instr(lan,"zh-tw")
response.redirect("http:////tw/index.asp")
'判斷客戶端是否是中文繁體,如果是轉向/tw/index.asp
case instr(lan,"en")
response.redirect("http:////en/index.asp")
'判斷客戶端是否是英文,如果是轉向/en/index.asp
case instr(lan,"fr")
response.redirect("http:////fr/index.asp")
'判斷客戶端是否是法文,如果是轉向/fr/index.asp
case instr(lan,"de")
response.redirect("http:////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:///")
'如果是中文那麼轉向中文頁面
else
response.redirect("http:///")
'如果不是中文,那麼統一轉向英文頁面
end if
%>