ASP/Visual Basic代碼
- <%
- '以下信息由易天科技收集整理。此代碼可用于判斷客戶端的瀏覽器所用的核心（FIRFOX、微軟、GOOGLE的chrome、OPERA、WAP手機(jī)端等）
- 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 這個(gè)是指火狐
- if Instr(BrowserString, broFirefox) <> 0 then
- Response.Redirect(broFirefox & ".asp")
- end if
- '如果是MSIE 這個(gè)就是微軟的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（沒(méi)有用過(guò)所以還要看HTTP_USER_AGENT表示的結(jié)果）
- if Instr(BrowserString, broWap) <> 0 then
- Response.Redirect(broWap & ".asp")
- end if
- '如果是google chrome 注意：很多國(guó)內(nèi)的瀏覽器在用這個(gè)核心。
- if Instr(BrowserString, borchrome) <> 0 then
- Response.Redirect(borchrome & ".asp")
- end if
- %>
- 以下是輸出瀏覽器的相關(guān)數(shù)據(jù)，如果上面的判斷都沒(méi)有起效，可以通過(guò)下面的代碼查看所使用的瀏覽器
- <%=BrowserString%>
以上功能是ASP判斷瀏覽器、asp代碼獲取客戶端瀏覽器以后轉(zhuǎn)向不同的網(wǎng)址中，大家也可以跟據(jù)不同的瀏覽器作出不同的判斷。
