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 + -
显示快捷键?