browser.asp

来自「ASP编程实例入门与提高书中的实例源代码」· ASP 代码 · 共 70 行

ASP
70
字号
<html>
<head>
<TITLE>Browser组件</TITLE>
</head>
<body bgcolor="#FFFFFF">

<%
'创建浏览器组件
Set bc = Server.CreateObject("MSWC.BrowserType") 
%> 

浏览器名称: <%=bc.browser %>
<p> 
浏览器版本: <%=bc.version%>
<p>
<% 
if (bc.frames = TRUE) then
%> 
支持frame<p>
<% else %>
不支持frame<p>
<% 
end if
%>
<% 
if (bc.tables = TRUE) then 
%> 
支持表格<p>
<% else %>
不支持表格<p>
<% 
end if 
%>
<% 
if (bc.BackgroundSounds = TRUE)then 
%>
支持背景音乐<p>
<% else %>
不支持背景音乐<p>

<% 
end if
%>

<% 
if (bc.vbscript = TRUE) then 
%>
支持VBscript
<p>
<% else %>
不支持VBscript<p>
<% 
end if
%>

<%
if (bc.javascript = TRUE) then 
%>
支持Javascript
<p>
<% else %>
不支持Javascript<p>

<%
end if
set bc=nothing
%>

</body>
</html>

⌨️ 快捷键说明

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