IE跳转

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

%>
posted on 2005-09-02 11:36  lhx  阅读(319)  评论(0编辑  收藏  举报