<%
Dim strAcceptLanguage
strAcceptLanguage = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
Select Case strAcceptLanguage
Case "zh-cn"
Response.Redirect "簡體中文版的網頁位址"
Case "en-us"
Response.Redirect "英文版的網頁位址"
Case Else
End Select
%>
转载于:https://www.cnblogs.com/lhxhappy/archive/2005/09/02/228610.html