源代码:
<html> <body> <FONT COLOR=#ff0000><% Set MyBrow=Server.CreateObject("MSWC.BrowserType") %></FONT> <table border="1" width="65%"> <tr> <td width="52%">Client OS</td> <td width="48%"><FONT COLOR=#ff0000><%=MyBrow.platform%></FONT></td> </tr> <tr> <td >Web Browser</td> <td ><FONT COLOR=#ff0000><%=MyBrow.browser%></FONT></td> </tr> <tr> <td>Browser version</td> <td><FONT COLOR=#ff0000><%=MyBrow.version%></FONT></td> </tr> <tr> <td>Frame support?</td> <td><FONT COLOR=#ff0000><%=MyBrow.frames%></FONT></td> </tr> <tr> <td>Table support?</td> <td><FONT COLOR=#ff0000><%=MyBrow.tables%></FONT></td> </tr> <tr> <td>Sound support?</td> <td><FONT COLOR=#ff0000><%=MyBrow.backgroundsounds%></FONT></td> </tr> <tr> <td>Cookies support?</td> <td><FONT COLOR=#ff0000><%=MyBrow.cookies%></FONT></td> </tr> <tr> <td>VBScript support?</td> <td><FONT COLOR=#ff0000><%=MyBrow.vbscript%></FONT></td> </tr> <tr> <td>JavaScript support?</td> <td><FONT COLOR=#ff0000><%=MyBrow.javascript%></FONT></td> </tr> </table> </body> </html>
运行结果：
<html> <body> <FONT COLOR=#ff0000><% Set MyBrow=Server.CreateObject("MSWC.BrowserType") %></FONT> <table border="1" width="65%"> <tr> <td width="52%">Client OS</td> <td width="48%"><FONT COLOR=#ff0000><%=MyBrow.platform%></FONT></td> </tr> <tr> <td >Web Browser</td> <td ><FONT COLOR=#ff0000><%=MyBrow.browser%></FONT></td> </tr> <tr> <td>Browser version</td> <td><FONT COLOR=#ff0000><%=MyBrow.version%></FONT></td> </tr> <tr> <td>Frame support?</td> <td><FONT COLOR=#ff0000><%=MyBrow.frames%></FONT></td> </tr> <tr> <td>Table support?</td> <td><FONT COLOR=#ff0000><%=MyBrow.tables%></FONT></td> </tr> <tr> <td>Sound support?</td> <td><FONT COLOR=#ff0000><%=MyBrow.backgroundsounds%></FONT></td> </tr> <tr> <td>Cookies support?</td> <td><FONT COLOR=#ff0000><%=MyBrow.cookies%></FONT></td> </tr> <tr> <td>VBScript support?</td> <td><FONT COLOR=#ff0000><%=MyBrow.vbscript%></FONT></td> </tr> <tr> <td>JavaScript support?</td> <td><FONT COLOR=#ff0000><%=MyBrow.javascript%></FONT></td> </tr> </table> </body> </html>