📄 browsernew.asp
字号:
<%@ 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>
<%if(bc.frames=TRUE)then%>
你的浏览器支持框架!<br>
<%else%>
难道现在你还在使用不支持框架的浏览器???<br>
<%End if%>
<%if(bc.tables=TRUE)then%>
你的浏览器支持表格。<br>
<%else%>
难道现在你还在使用不支持表格的浏览器???<br>
<%End if%>
<%if(bc.BackgroundSounds=TRUE)then%>
有没有听到美妙的音乐???<br>
<%else%>
可惜,您的浏览器不支持背景音乐。<br>
<%End if%>
<%if(bc.vbscript=TRUE)then%>
您的浏览器支持Vbscript。<br>
<%else%>
您的浏览器不支持Vbscript。<br>
<%End if%>
<%if(bc.javascript=TRUE)then%>
您的浏览器支持Javascript。<br>
<%else%>
您的浏览器不支持Javascript。<br>
<%End if%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -