根据语言跳转

<%Dim Accept_Language
Accept_Language = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
select case left(Accept_Language,5)
Case "zh-cn"
response.redirect "/chinese/" '中国大陆
Case "zh-tw"
response.redirect "/big5/" '中国台湾
Case "zh-hk"
response.redirect "/hk/" '中国香港
Case "en-us"
response.redirect "/english/" '英语美国
Case Else
response.redirect "/chinese/"
End Select

'更多语言代码在 工具->Internet选项->常规->语言->添加 可以找到
%>