By admin at 2007-05-20
0人收藏 • 971人看过

我一般都用这种方法来获得浏览器的类型,希望对大家有启发

Dim BrowserString
BrowserString = Request.ServerVariables("HTTP_USER_AGENT")
BrowserString = Lcase(BrowserString)

Dim broFirefox,broMSIE,broOpera,broWap
broFirefox = "firefox"
broMSIE = "msie"
broOpera = "opera"
broWap = "wap"

';;如果是Firefox
if Instr(BrowserString, broFirefox) <> 0 then
Response.Redirect(broFirefox & ".asp")
end if
';;如果是MSIE
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

可以用于开发wap插件

解决兼容问题等