检测客户端显示器分辨率、浏览器类型和客户端IP

最新推荐文章于 2021-07-23 17:36:18 发布

hejishan

最新推荐文章于 2021-07-23 17:36:18 发布

阅读量302

点赞数

文章标签：浏览器 button javascript cookies web class

本文链接：https://blog.csdn.net/hejishan/article/details/2167595

版权

检测客户端显示器分辨率、浏览器类型和客户端IP

作者：孟宪会出自：【孟宪会之精彩世界】发布日期： 2003-7-24 17:33:48

下面的代码实现了检测客户端显示器分辨率、浏览器类型和客户端IP的功能。你可以把客户端信息保存到Session，ViewState等中以便在其它的页面直接使用。

ClientPeek.aspx

       &amp;lt;%@ Page language="vb" EnableViewState="false" Codebehind="ClientPeek.aspx.vb" AutoEventWireup="false" Inherits="aspxWeb.ClientPeek"%&amp;gt;&amp;lt;!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" &amp;gt;&amp;lt;HTML&amp;gt; &amp;lt;HEAD&amp;gt; &amp;lt;title&amp;gt;检测客户端显示器分辨率、浏览器类型和客户端IP&amp;lt;/title&amp;gt; &amp;lt;META http-equiv="Content-Type" content="text/html; charset=gb2312"&amp;gt; &amp;lt;meta content="Microsoft Visual Studio 7.0" name="GENERATOR"&amp;gt; &amp;lt;meta content="C#" name="CODE_LANGUAGE"&amp;gt; &amp;lt;meta content="【孟子E章】：http://xml.sz.luohuedu.net/" name="CopyRight"&amp;gt; &amp;lt;meta content="JavaScript" name="vs_defaultClientScript"&amp;gt; &amp;lt;meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema"&amp;gt; &amp;lt;/HEAD&amp;gt; &amp;lt;body id="MyBody" MS_POSITIONING="GridLayout" runat="server"&amp;gt; &amp;lt;form id="browserpeek" runat="server"&amp;gt; &amp;lt;asp:label id="Label1" runat="server"&amp;gt;&amp;lt;/asp:label&amp;gt;&amp;lt;/form&amp;gt; &amp;lt;/body&amp;gt;&amp;lt;/HTML&amp;gt;

ClientPeek.aspx.vb

       Imports SystemPublic Class ClientPeek Inherits System.Web.UI.Page Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents MyBody As System.Web.UI.HtmlControls.HtmlGenericControl#Region " Web 窗体设计器生成的代码 " '该调用是 Web 窗体设计器所必需的。 &amp;lt;System.Diagnostics.DebuggerStepThrough()&amp;gt; Private Sub InitializeComponent() End Sub '注意: 以下占位符声明是 Web 窗体设计器所必需的。 '不要删除或移动它。 Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Init 'CODEGEN: 此方法调用是 Web 窗体设计器所必需的 '不要使用代码编辑器修改它。 InitializeComponent() End Sub#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load Dim Button1 As New System.Web.UI.WebControls.Button If Not Me.IsPostBack Then Dim btnW As New System.Web.UI.HtmlControls.HtmlInputHidden Dim btnH As New System.Web.UI.HtmlControls.HtmlInputHidden Button1.ID = "Button1" btnW.Name = "WidthPixel" btnW.ID = "WidthPixel" btnH.Name = "HeightPixel" btnH.ID = "HeightPixel" Me.FindControl("browserpeek").Controls.Add(btnW) Me.FindControl("browserpeek").Controls.Add(btnH) Me.FindControl("browserpeek").Controls.Add(Button1) Dim scriptString As String = "" scriptString += "document.browserpeek.WidthPixel.value=window.screen.width;" scriptString += "document.browserpeek.HeightPixel.value=window.screen.height;" Me.RegisterOnSubmitStatement("Meng", scriptString) Me.MyBody.Attributes.Add("onload", "document.browserpeek.Button1.click();") Else Me.MyBody.Attributes.Remove("onload") If Me.FindControl("browserpeek").Controls.Contains(Button1) Then Me.FindControl("browserpeek").Controls.Remove(Button1) Button1.Dispose() End If Dim strLabel As New System.Text.StringBuilder Dim bc As HttpBrowserCapabilities = Request.Browser strLabel.Append("您的浏览器的分辨率为：") strLabel.Append(Request.Form("WidthPixel")) strLabel.Append("×") strLabel.Append(Request.Form("HeightPixel")) strLabel.Append("&amp;lt;hr color='#000099'&amp;gt;") strLabel.Append("浏览器基本信息：&amp;lt;br&amp;gt;") strLabel.Append("Type = " &amp;amp; bc.Type &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("Name = " &amp;amp; bc.Browser &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("Version = " &amp;amp; bc.Version &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("Major Version = " &amp;amp; bc.MajorVersion &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("Minor Version = " &amp;amp; bc.MinorVersion &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("Platform = " &amp;amp; bc.Platform &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("Is Beta = " &amp;amp; bc.Beta &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("Is Crawler = " &amp;amp; bc.Crawler &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("Is AOL = " &amp;amp; bc.AOL &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("Is Win16 = " &amp;amp; bc.Win16 &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("Is Win32 = " &amp;amp; bc.Win32 &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("支持 Frames = " &amp;amp; bc.Frames &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("支持 Tables = " &amp;amp; bc.Tables &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("支持 Cookies = " &amp;amp; bc.Cookies &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("支持 VB Script = " &amp;amp; bc.VBScript &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("支持 JavaScript = " &amp;amp; bc.JavaScript &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("支持 Java Applets = " &amp;amp; bc.JavaApplets &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("支持 ActiveX Controls = " &amp;amp; bc.ActiveXControls &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("CDF = " &amp;amp; bc.CDF &amp;amp; "&amp;lt;br&amp;gt;") strLabel.Append("W3CDomVersion = " + bc.W3CDomVersion.ToString + "&amp;lt;br&amp;gt;") strLabel.Append("UserAgent = " + Request.UserAgent + "&amp;lt;br&amp;gt;") strLabel.Append("UserLanguages = " + Request.UserLanguages(0).ToString + "&amp;lt;br&amp;gt;") strLabel.Append("&amp;lt;hr color='#000099'&amp;gt;") strLabel.Append("客户端计算机基本配置：&amp;lt;br&amp;gt;") strLabel.Append("UserHostName = " + Request.UserHostName + "&amp;lt;br&amp;gt;") strLabel.Append("UserHostAddress = " + Request.UserHostAddress + "&amp;lt;br&amp;gt;") Label1.Text = strLabel.ToString() End If End Sub End Class