ASP判斷客戶端浏覽器語言自動跳轉

<%
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
%>