browser.asp

来自「asp教程」· ASP 代码 · 共 60 行

ASP
60
字号
<%@ LANGUAGE=VBScript%>
<HTML>
<HEAD>
<TITLE>用ASP提供的浏览器性能组件来辨别客户浏览器</TITLE>
</HEAD>
<BODY BGCOLOR="White" Topmargin="10" leftmargin="10">    
         <font size="4">
     <b>用</b></font><b><font size="4" face="Arial,Helvetica">ASP</font><font size="4">提供的浏览器性能组件来辨别客户浏览器</font></b><br>
         <hr size="1" color="#000000">
     <!--定义并创建浏览器性能对象-->
     <%
          Dim bc
          Set bc=Server.CreateObject("MSWC.BrowserType")
      %>
     <!--在表格中描述客户浏览器的信息-->
<p>            <Table border="1">
      <tr>
      <td>Browser Name</td>  
      <td><%=bc.Browser%></Td>
            </tr>
      <tr>
      <td>Browser Version</td> 
      <td><%=bc.Version%></Td>
            </tr>
      <tr>
      <td>Major Version</td> 
      <td><%=bc.Majorver%></Td>
            </tr>
      <tr>
      <td>Minor Version</td> 
      <td><%=bc.Minorver%></Td>
            </tr>
      <tr>
      <td>Frame Support</td> 
      <td><%=bc.Frames%></Td>
            </tr>
      <tr>
      <td>Table Support</td> 
      <td><%=bc.Tables%></Td>
            </tr>
      <tr>
      <td>Cookie Support</td> 
      <td><%=bc.Cookies%></Td>
            </tr>
      <tr>
      <td>Background SoundSupport</td> 
      <td><%=bc.BackgroundSounds%></Td>
            </tr>
      <tr>
      <td>VBScript Support</td> 
      <td><%=bc.VBScript%></Td>
            </tr>
      <tr>
      <td>JavaScript Support</td> 
      <td><%=bc.JavaScript%></Td>
            </tr>
    </table>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?