答案:<html>
<title>
查看浏览器属性
</title>
<body>
<% Set bc = Server.CreateObject("MSWC.BrowserType") %>
<center>
<font size=5 color=red>查看浏览器属性</font><hr>
<TABLE BORDER=1>
<TR><TD width=50>浏览器</TD><TD width=50> <%= bc.browser %> </td>
<TR><TD>版本</TD><TD> <%= bc.version %> </TD></TR>
<TR><TD>框架</TD><TD>
<% if (bc.frames = TRUE) then %> TRUE
<% else %> FALSE
<% end if %> </td></TR>
<TR><TD>表单</TD><TD>
<% if (bc.tables = TRUE) then %> TRUE
<% else %> FALSE
<% end if %> </TD></TR>
<TR><TD>背景音乐</TD><TD>
<% if (bc.BackgroundSounds = TRUE) then %> TRUE
<% else %> FALSE
<% end if %> </TD></TR>
<TR><TD>VBScript</TD><TD>
<% if (bc.vbscript = TRUE) then %> TRUE
<% else %> FALSE
<% end if %> </TD></TR>
<TR><TD>JScript</TD><TD>
<% if (bc.javascript = TRUE) then %> TRUE
<% else %> FALSE
<% end if %> </TD></TR>
</TABLE>
</center>
</body>
</html>
上一个:ASP满天星实例
下一个:ASP读取INI文件代码实例