ASP.NET写的浏览器间谍
你当前的位置:烁空 --> 技术文档全集
下面是我写的一个关于HTTPBROWSERCAPABILITIES组件的应用例子。

程序执行的例子在 HTTP://ASPX1.BRINKSTER.COM/FEIDAO/CODE/BROWSERSPY.ASPX

下面是源程序:

<HTML>
<HEAD>
  <SCRIPT RUNAT="SERVER" LANGUAGE="C#">
    PUBLIC VOID PAGE_LOAD(OBJECT SOURCE, EVENTARGS E)
    {
      HTTPBROWSERCAPABILITIES BC= REQUEST.BROWSER;

      WELCOME.TEXT = "您好,您正在使用 " + BC.BROWSER + " V." + BC.VERSION + ",你的运行平台是 " + BC.PLATFORM ;


      ACTIVEXCONTROLS.TEXT = BC.ACTIVEXCONTROLS.TOSTRING();
      AOL.TEXT = BC.AOL.TOSTRING();
      BACKGROUNDSOUNDS.TEXT = BC.BACKGROUNDSOUNDS.TOSTRING();
      BETA.TEXT = BC.BETA.TOSTRING();
      BROWSER.TEXT = BC.BROWSER.TOSTRING();
      CDF.TEXT = BC.CDF.TOSTRING();
      COOKIES.TEXT = BC.COOKIES.TOSTRING();
      CRAWLER.TEXT = BC.CRAWLER.TOSTRING();
      FRAMES.TEXT = BC.FRAMES.TOSTRING();
      JAVAAPPLETS.TEXT = BC.JAVAAPPLETS.TOSTRING();
      JAVASCRIPT.TEXT = BC.JAVASCRIPT.TOSTRING();
      MAJORVERSION.TEXT = BC.MAJORVERSION.TOSTRING();
      MINORVERSION.TEXT = BC.MINORVERSION.TOSTRING();
      PLATFORM.TEXT = BC.PLATFORM.TOSTRING();
      TABLES.TEXT = BC.TABLES.TOSTRING();
      TYPE.TEXT = BC.TYPE.TOSTRING();
      VBSCRIPT.TEXT = BC.VBSCRIPT.TOSTRING();
      VERSION.TEXT = BC.VERSION.TOSTRING();
      WIN16.TEXT = BC.WIN16.TOSTRING();
      WIN32.TEXT = BC.WIN32.TOSTRING();
    }
  </SCRIPT>
<ASP:LABEL ID="CSS1" RUNAT="SERVER" />
</HEAD>
<BODY>
<FORM RUNAT="SERVER" METHOD="POST">
您的浏览器信息已经完全在我们的掌握中了^&^:<BR>
<P><ASP:LABEL RUNAT="SERVER" ID="WELCOME" FONT-BOLD="TRUE" /></P>
<TABLE BORDER="1" WIDTH="400" BORDERCOLOR="BLACK" CELLPADDING="4" CELLSPACING="0">
<TR CLASS="EVENROW" BGCOLOR="SKYBLUE">
  <TD WIDTH="50%"><B>浏览器属性</B></TD>
  <TD WIDTH="50%"><B>测试结果</B></TD>
</TR>
<TR CLASS="ODDROW">
  <TD WIDTH="50%"><B>ACTIVEXCONTROLS:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="ACTIVEXCONTROLS" /></TD>
</TR>
<TR CLASS="EVENROW" BGCOLOR="SKYBLUE">
  <TD WIDTH="50%"><B>AOL:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="AOL" /></TD>
</TR>
<TR CLASS="ODDROW">
  <TD WIDTH="50%"><B>BACKGROUNDSOUNDS:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="BACKGROUNDSOUNDS" /></TD>
</TR>
<TR CLASS="EVENROW" BGCOLOR="SKYBLUE">
  <TD WIDTH="50%"><B>BETA:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="BETA" /></TD>
</TR>
<TR CLASS="ODDROW">
  <TD WIDTH="50%"><B>BROWSER:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="BROWSER" /></TD>
</TR>
<TR CLASS="EVENROW" BGCOLOR="SKYBLUE">
  <TD WIDTH="50%"><B>CDF:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="CDF" /></TD>
</TR>
<TR CLASS="ODDROW">
  <TD WIDTH="50%"><B>COOKIES:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="COOKIES" /></TD>
</TR>
<TR CLASS="EVENROW" BGCOLOR="SKYBLUE">
  <TD WIDTH="50%"><B>CRAWLER:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="CRAWLER" /></TD>
</TR>
<TR CLASS="ODDROW">
  <TD WIDTH="50%"><B>FRAMES:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="FRAMES" /></TD>
</TR>
<TR CLASS="EVENROW" BGCOLOR="SKYBLUE">
  <TD WIDTH="50%"><B>JAVAAPPLETS:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="JAVAAPPLETS" /></TD>
</TR>
<TR CLASS="ODDROW">
  <TD WIDTH="50%"><B>JAVASCRIPT:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="JAVASCRIPT" /></TD>
</TR>
<TR CLASS="EVENROW" BGCOLOR="SKYBLUE">
  <TD WIDTH="50%"><B>MAJORVERSION:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="MAJORVERSION" /></TD>
</TR>
<TR CLASS="ODDROW">
  <TD WIDTH="50%"><B>MINORVERSION:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="MINORVERSION" /></TD>
</TR>
<TR CLASS="EVENROW" BGCOLOR="SKYBLUE">
  <TD WIDTH="50%"><B>PLATFORM:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="PLATFORM" /></TD>
</TR>
<TR CLASS="ODDROW">
  <TD WIDTH="50%"><B>TABLES:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="TABLES" /></TD>
</TR>
<TR CLASS="EVENROW" BGCOLOR="SKYBLUE">
  <TD WIDTH="50%"><B>TYPE:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="TYPE" /></TD>
</TR>
<TR CLASS="ODDROW">
  <TD WIDTH="50%"><B>VBSCRIPT:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="VBSCRIPT" /></TD>
</TR>
<TR CLASS="EVENROW" BGCOLOR="SKYBLUE">
  <TD WIDTH="50%"><B>VERSION:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="VERSION" /></TD>
</TR>
<TR CLASS="ODDROW">
  <TD WIDTH="50%"><B>WIN16:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="WIN16" /></TD>
</TR>
<TR CLASS="EVENROW" BGCOLOR="SKYBLUE">
  <TD WIDTH="50%"><B>WIN32:</B></TD>
  <TD WIDTH="50%"><ASP:LABEL RUNAT="SERVER" ID="WIN32" /></TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>