检测客户端显示器分辨率、浏览器类型和客户端IP-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

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

ClientPeek.aspx

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

ClientPeek.aspx.vb

Imports System

Public 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 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> 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("<hr color=\\\'#000099\\\'>")
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("<hr color=\\\'#000099\\\'>")
strLabel.Append("客户端计算机基本配置： ")
strLabel.Append("UserHostName = " + Request.UserHostName + " ")
strLabel.Append("UserHostAddress = " + Request.UserHostAddress + " ")
Label1.Text = strLabel.ToString()
End If
End Sub

End Class

返回类别: 教程
上一教程: ASP.NET设计网络硬盘之两重要类
下一教程: asp+中常用的NameSpace的讲解

您可以阅读与"检测客户端显示器分辨率、浏览器类型和客户端IP"相关的教程:
· 检测客户端显示器分辨率、浏览器类型和客户端IP
· 在Internet上用通过.Net Remoting机制实现服务器对客户端的直接调用
· .NET客户端应用程序：.NET应用程序更新组件（5）
· 实现HtmlButton客户端控制网页提交
· .NET客户端应用程序：.NET应用程序更新组件（6）


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接