ASP中使用ServerVariables集合详解

＜%

strUA = Request.ServerVariables(“HTTP_USER_AGENT”)

Response.Write “The User Agent string is ＜B＞” & strUA & “＜/B＞

”

If InStr(strUA, “MSIE”) Then

Response.Write “To upgrade your browser go to “_

& “＜A HREF=” & Chr(34) & http://www.microsoft.com/ie/”_

& Chr(34) & “＞http://www.microsoft.com/ie/＜A＞

"http://dev.21tx.com/2005/11/16/”"

intVersion = Cint(Mid(strUA, InStr(strUA, “MSIE"http://dev.21tx.com/2005/11/16/”") + 5, 1))

If intVersion ＞=4 Then

Response.Write “You can use Microsoft Dynamic HTML"http://dev.21tx.com/2005/11/16/”"

End If

Else

If InStr(strUA, “Mozilla"http://dev.21tx.com/2005/11/16/”") Then

If InStr(strUA, “compatible;"http://dev.21tx.com/2005/11/16/”") = 0 Then

Response.Write “Your browser is probably Navigator. You can “_

& “download the latest version of Navigator from “_

& “＜A HREF="http://dev.21tx.com/2005/11/16/”" & Chr(34) & http://home.netscape.com/"http://dev.21tx.com/2005/11/16/”"_

& “download/”& Chr(34) & “＞http://home.netscape.com”_

& “/download/＜/A＞

"http://dev.21tx.com/2005/11/16/”"

intVersion = Cint(Mid(strUA, InStr(strUA, “/"http://dev.21tx.com/2005/11/16/”") +1, 1))

If intVersion ＞= 4 Then

Response.Write “You can probably use Netscape Dynamic HTML"http://dev.21tx.com/2005/11/16/”"

End If

Else