<html>
<head>
<title>浏览器选择</title>
<%
Dim BrowseMsg
BrowseMsg=Request.ServerVariables("HTTP_USER_AGENT")
Response.Write(BrowseMsg)
If Instr(BrowseMsg,'FireFox')>0 then
Response.Write('为FireFox浏览器')
Else
If instr(BrowseMsg,'MSIE')>0 then
Response.Write('为IE')
End If
End If
%>
</html>