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表示的結(jié)果)
- if Instr(BrowserString, broWap) <> 0 then
- Response.Redirect(broWap & ".asp")
- end if
- '如果是google chrome 注意:很多國內(nèi)的瀏覽器在用這個核心。
- if Instr(BrowserString, borchrome) <> 0 then
- Response.Redirect(borchrome & ".asp")
- end if
- %>
- 以下是輸出瀏覽器的相關(guān)數(shù)據(jù),如果上面的判斷都沒有起效,可以通過下面的代碼查看所使用的瀏覽器
- <%=BrowserString%>
以上功能是ASP判斷瀏覽器、asp代碼獲取客戶端瀏覽器以后轉(zhuǎn)向不同的網(wǎng)址中,大家也可以跟據(jù)不同的瀏覽器作出不同的判斷。