ASP.NET写的浏览器间谍
下面是一个关于HTTPBROWSERCAPABILITIES组件的应用例子。
下面是源程序:
<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>