ASP/Visual Basic代码
- <%
- '以下信息由易天科技收集整理。此代码可用于判断客户端的浏览器所用的核心（FIRFOX、微软、GOOGLE的chrome、OPERA、WAP手机端等）
- Dim BrowserString
- BrowserString = Request.ServerVariables("HTTP_USER_AGENT")
- BrowserString = Lcase(BrowserString)
- Dim broFirefox,broMSIE,broOpera,broWap,borchrome
- broFirefox = "firefox"
- broMSIE = "msie"
- broOpera = "opera"
- broWap = "wap"
- borchrome="chrome"
- '如果是Firefox 这个是指火狐
- if Instr(BrowserString, broFirefox) <> 0 then
- Response.Redirect(broFirefox & ".asp")
- end if
- '如果是MSIE 这个就是微软的IE
- if Instr(BrowserString, broMSIE) <> 0 then
- Response.Redirect(broMSIE & ".asp")
- end if
- '如果是Opera
- if Instr(BrowserString, broOpera) <> 0 then
- Response.Redirect(broOpera & ".asp")
- end if
- '如果是Wap（没有用过所以还要看HTTP_USER_AGENT表示的结果）
- if Instr(BrowserString, broWap) <> 0 then
- Response.Redirect(broWap & ".asp")
- end if
- '如果是google chrome 注意：很多国内的浏览器在用这个核心。
- if Instr(BrowserString, borchrome) <> 0 then
- Response.Redirect(borchrome & ".asp")
- end if
- %>
- 以下是输出浏览器的相关数据，如果上面的判断都没有起效，可以通过下面的代码查看所使用的浏览器
- <%=BrowserString%>
以上功能是ASP判断浏览器、asp代码获取客户端浏览器以后转向不同的网址中，大家也可以跟据不同的浏览器作出不同的判断。
