当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP.Net写的浏览器间谍

ASP
对连串英文自动换行的解决方法 IE5.5
怎样写你自己的EMAIL组件(原理)
ASP中有关timeout超时的体会
用ASP实现从SQL Server导出数据到Access
ASP向NT域中加一个用户
ASP乱码的解决方法
关于 aspsmartupload 注册问题
利用XML不离开页面刷新数据
IIS 处理 SEARCH 请求漏洞
不用组件实现上载功能(1)
不用组件实现上载功能(2)
在网页中实现OICQ里的头像选择的下拉框
仅用xsl和asp实现分页功能
如何使用context()方法将数据置入表格(XML)
利用ASP从远程服务器上接收XML数据
将数据库里面的内容生成EXCEL
怎样在ASP里面创建统计图表
加密你的Access数据库
利用global.asp定时执行ASP
加密QueryString数据

ASP.Net写的浏览器间谍


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 69 ::
收藏到网摘: n/a

  下面是我写的一个关于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:Lab