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

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

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

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插件

解决兼容问题等

登录后方可回帖

登 录
信息栏
购买PHP虚拟主机 / VPS

Carbon Forum是一个基于话题的高性能轻型PHP论坛

下载地址:Carbon Forum v5.0.1
QQ群:12607708(QQ我不常上)

donate

手机支付宝扫描上方二维码可向本项目捐款

Loading...