sexta-feira, 16 de março de 2001

Checando os recursos do browser

<%
dim bc
Set bc = Server.CreateObject("MSWC.BrowserType")


if bc.ActiveXControls and bc.cookies    and bc.frames and _
   bc.Javaapplets     and bc.Javascript and bc.Tables and _
   bc.Vbscript then
  
   response.redirect "principal.asp"
   response.end
end if
%>
<body>
 <table border=1 align=center>
  <tr>
   <th>Característica</th>
   <th>Disponível?</th>
  </tr>
  <tr>
   <td>ActiveX Controls</td>
   <td align=center><%= iif( bc.ActiveXControls, "Sim", "<b>NAO</b>" ) %></td>
  </tr>
  <tr>
   <td>Background Sounds</td>
   <td align=center><%= iif( bc.Backgroundsounds, "Sim", "<b>NAO</b>" ) %></td>
  </tr>
  <tr>
   <td>Beta Specifies</td>
   <td align=center><%= iif( bc.BetaSpecifies, "<b>SIM</b>", "Nao" ) %></td>
  </tr>
  <tr>
   <td>Cdf Specifies</td>
   <td align=center><%= iif( bc.CdfSpecifies, "Sim", "Nao" ) %></td>
  </tr>
  <tr>
   <td>Browser</td>
   <td align=center><%= bc.Browser & " " & bc.version & " " & bc.Platform %></td>
  </tr>
  <tr>
   <td>Cookies</td>
   <td align=center><%= iif( bc.Cookies, "Sim", "<b>NAO</b>" ) %></td>
  </tr>
  <tr>
   <td>Frames</td>
   <td align=center><%= iif( bc.Frames, "Sim", "<b>NAO</b>" ) %></td>
  </tr>
  <tr>
   <td>Java Applets</td>
   <td align=center><%= iif( bc.Javaapplets, "Sim", "<b>NAO</b>" ) %></td>
  </tr>
  <tr>
   <td>JavaScript</td>
   <td align=center><%= iif( bc.Javascript, "Sim", "<b>NAO</b>" ) %></td>
  </tr>
  <tr>
   <td>VBScript</td>
   <td align=center><%= iif( bc.Vbscript, "Sim", "<b>NAO</b>" ) %></td>
  </tr>
  <tr>
   <td>Tables</td>
   <td align=center><%= iif( bc.Tables, "Sim", "<b>NAO</b>" ) %></td>
  </tr>
 </table>
 </body>
</html><%
function iif( condicao, valor1, valor2 )
if condicao then iif = valor1 else iif = valor2
end function
%>



Esta matéria foi postada originalmente no ASP4Developers por Rubens N. Farias (site), que na época era "pós-graduado em análise de sistemas orientados a objetos, MCP, MCSD, MCAD, MCSD.NET e consultor em TI, além de idealizador do projeto ASP4Developers. Desenvolve sistemas sob medida, focados na satisfação do usuário, com qualidade e custo realista.". Hoje, vai saber...

0 comentários: