检测客户端显示器分辨率、浏览器类型和客户端IP
来源:互联网 发布:时钟 知乎 编辑:程序博客网 时间:2024/04/25 09:11
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<%@ Page language="vb" EnableViewState="false" Codebehind="ClientPeek.aspx.vb" AutoEventWireup="false" Inherits="aspxWeb.ClientPeek"%> 检测客户端显示器分辨率、浏览器类型和客户端IP IPt" name="vs_defaultClientScrIPt"> 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 窗体设计器所必需的。 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("
") strLabel.Append("浏览器基本信息:
") strLabel.Append("Type = " & bc.Type & "
") strLabel.Append("Name = " & bc.Browser & "
") strLabel.Append("Version = " & bc.Version & "
") strLabel.Append("Major Version = " & bc.MajorVersion & "
") strLabel.Append("Minor Version = " & bc.MinorVersion & "
") strLabel.Append("Platform = " & bc.Platform & "
") strLabel.Append("Is Beta = " & bc.Beta & "
") strLabel.Append("Is Crawler = " & bc.Crawler & "
") strLabel.Append("Is AOL = " & bc.AOL & "
") strLabel.Append("Is Win16 = " & bc.Win16 & "
") strLabel.Append("Is Win32 = " & bc.Win32 & "
") strLabel.Append("支持 Frames = " & bc.Frames & "
") strLabel.Append("支持 Tables = " & bc.Tables & "
") strLabel.Append("支持 Cookies = " & bc.Cookies & "
") strLabel.Append("支持 VB ScrIPt = " & bc.VBScrIPt & "
") strLabel.Append("支持 JavaScrIPt = " & bc.JavaScrIPt & "
") strLabel.Append("支持 Java Applets = " & bc.JavaApplets & "
") strLabel.Append("支持 ActiveX Controls = " & bc.ActiveXControls & "
") strLabel.Append("CDF = " & bc.CDF & "
") strLabel.Append("W3CDomVersion = " + bc.W3CDomVersion.ToString + "
") strLabel.Append("UserAgent = " + Request.UserAgent + "
") strLabel.Append("UserLanguages = " + Request.UserLanguages(0).ToString + "
") strLabel.Append("
") strLabel.Append("客户端计算机基本配置:
") strLabel.Append("UserHostName = " + Request.UserHostName + "
") strLabel.Append("UserHostAddress = " + Request.UserHostAddress + "
") Label1.Text = strLabel.ToString() End If End Sub End Class <script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
检测客户端显示器分辨率、浏览器类型和客户端IP 作者: 孟宪会 出自: 【孟宪会之精彩世界】 发布日期: 2003-7-24 17:33:48 下面的代码实现了检测客户端显示器分辨率、浏览器类型和客户端IP的功能。你可以把客户端信息保存到Session,ViewState等中以便在其它的页面直接使用。
ClientPeek.aspx
ClientPeek.aspx.vb
") strLabel.Append("浏览器基本信息:
") strLabel.Append("Type = " & bc.Type & "
") strLabel.Append("Name = " & bc.Browser & "
") strLabel.Append("Version = " & bc.Version & "
") strLabel.Append("Major Version = " & bc.MajorVersion & "
") strLabel.Append("Minor Version = " & bc.MinorVersion & "
") strLabel.Append("Platform = " & bc.Platform & "
") strLabel.Append("Is Beta = " & bc.Beta & "
") strLabel.Append("Is Crawler = " & bc.Crawler & "
") strLabel.Append("Is AOL = " & bc.AOL & "
") strLabel.Append("Is Win16 = " & bc.Win16 & "
") strLabel.Append("Is Win32 = " & bc.Win32 & "
") strLabel.Append("支持 Frames = " & bc.Frames & "
") strLabel.Append("支持 Tables = " & bc.Tables & "
") strLabel.Append("支持 Cookies = " & bc.Cookies & "
") strLabel.Append("支持 VB ScrIPt = " & bc.VBScrIPt & "
") strLabel.Append("支持 JavaScrIPt = " & bc.JavaScrIPt & "
") strLabel.Append("支持 Java Applets = " & bc.JavaApplets & "
") strLabel.Append("支持 ActiveX Controls = " & bc.ActiveXControls & "
") strLabel.Append("CDF = " & bc.CDF & "
") strLabel.Append("W3CDomVersion = " + bc.W3CDomVersion.ToString + "
") strLabel.Append("UserAgent = " + Request.UserAgent + "
") strLabel.Append("UserLanguages = " + Request.UserLanguages(0).ToString + "
") strLabel.Append("
") strLabel.Append("客户端计算机基本配置:
") strLabel.Append("UserHostName = " + Request.UserHostName + "
") strLabel.Append("UserHostAddress = " + Request.UserHostAddress + "
") Label1.Text = strLabel.ToString() End If End Sub End Class
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
- 检测客户端显示器分辨率、浏览器类型和客户端IP
- 检测客户端显示器分辨率、浏览器类型和客户端IP
- 检测客户端显示器分辨率、浏览器类型和客户端IP
- 检测客户端显示器分辨率、浏览器类型和客户端IP
- 检测客户端显示器分辨率、浏览器类型和客户端IP
- 检测客户端显示器分辨率、浏览器类型和客户端IP
- 检测客户端显示器分辨率、浏览器类型和客户端IP
- 检测客户端显示器分辨率、浏览器类型和客户端IP
- 检测客户端显示器分辨率、浏览器类型和客户端IP
- 检测客户端显示器分辨率、浏览器类型和客户端IP
- 检测客户端显示器分辨率、浏览器类型和客户端IP
- 检测客户端显示器分辨率、浏览器类型和客户端IP
- 检测客户端显示器分辨率、浏览器类型和客户端IP的功能
- ASP.NET检测客户端显示器分辨率、浏览器类型和客户端IP
- Javascript检测客户端分辨率,操作系统,浏览器,屏幕色彩信息
- 通过jsp获取客户端的IP以及通过js检测浏览器类型
- javascript客户端检测浏览器
- 认识Javascript中的navigator对象以及检测浏览器类型和版本,获取浏览器版本号,检测客户端操作系统
- 好的工作习惯
- eclipse插件 SWT-Designer 下载
- 磁道,扇区,柱面和磁头数
- java中的字符编码
- 网络项目寻找创业合作伙伴
- 检测客户端显示器分辨率、浏览器类型和客户端IP
- 理解拖动的实现原理。
- 用C#和microsoft webbrowser控件创建自己的ie
- 用vb.net实现写字板程序报告(一)
- 用vb.net与acess结合实现简单的电话号码本程序(一)
- jsp页面返回代码
- 人人都是“环卫监督员”.
- dotnet学习笔记五 - 无用资源回收之二
- 关于无法创建aps.web项目的解决办法