ASP 判断浏览器类型显示不同网页

1
<%
2
Dim BrowserString
3
BrowserString = Request.ServerVariables("HTTP_USER_AGENT")
4
BrowserString = Lcase(BrowserString)
5

6
Dim broFirefox, broMSIE, broOpera, broWap
7
broFirefox = "firefox"
8
broMSIE = "msie"
9
broOpera = "opera"
10
broWap = "wap"
11

12
' 如果是 Firefox
13
If Instr(BrowserString, broFirefox) <> 0 Then
14
    Response.Redirect(broFirefox & ".asp")
15
End If
16

17
' 如果是 MSIE
18
If Instr(BrowserString, broMSIE) <> 0 Then
19
    Response.Redirect(broMSIE & ".asp")
20
End If
21

22
' 如果是 Opera
23
If Instr(BrowserString, broOpera) <> 0 Then
24
    Response.Redirect(broOpera & ".asp")
25
End If
26

27
' 如果是 Wap 手机浏览器
28
If Instr(BrowserString, broWap) <> 0 Then
29
    Response.Redirect(broWap & ".asp")
30
End If
31
%>