如何用asp.net检测用户的分辩率???????

qb515 2003-09-11 10:55:46
如何用asp.net检测用户的分辩率???????
如何用asp.net检测用户的分辩率???????
...全文
20 13 打赏 收藏 举报
写回复
13 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
qb515 2003-09-11
感谢大家!
  • 打赏
  • 举报
回复
qb515 2003-09-11
呵呵,这个我也知道,不过。。。
我在用户自定义控件ascx中使用的!!!
不是在aspx文件中用??而ascx文件中不能再有form控件了!!!!
???
  • 打赏
  • 举报
回复
jianglinchun 2003-09-11
嗬嗬,不错啊,找到了。upup。只是e章老兄要不要一下子列出这么多来,吓唬我们啊。:)
  • 打赏
  • 举报
回复
速马 2003-09-11
这个...
  • 打赏
  • 举报
回复
速马 2003-09-11
孟子E章的:

http://xml.sz.luohuedu.net/xml/ShowDetail.asp?id=HLFQ4ZOY-N3GO-4R7Y-WY5R-XZZN2JY5J8HZ
  • 打赏
  • 举报
回复
孟子E章 2003-09-11
http://xml.sz.luohuedu.net/xml/ShowDetail.asp?id=HLFQ4ZOY-N3GO-4R7Y-WY5R-XZZN2JY5J8HZ
  • 打赏
  • 举报
回复
孟子E章 2003-09-11
检测客户端显示器分辨率、浏览器类型和客户端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("浏览器基本信息:<br>")
strLabel.Append("Type = " & bc.Type & "<br>")
strLabel.Append("Name = " & bc.Browser & "<br>")
strLabel.Append("Version = " & bc.Version & "<br>")
strLabel.Append("Major Version = " & bc.MajorVersion & "<br>")
strLabel.Append("Minor Version = " & bc.MinorVersion & "<br>")
strLabel.Append("Platform = " & bc.Platform & "<br>")
strLabel.Append("Is Beta = " & bc.Beta & "<br>")
strLabel.Append("Is Crawler = " & bc.Crawler & "<br>")
strLabel.Append("Is AOL = " & bc.AOL & "<br>")
strLabel.Append("Is Win16 = " & bc.Win16 & "<br>")
strLabel.Append("Is Win32 = " & bc.Win32 & "<br>")
strLabel.Append("支持 Frames = " & bc.Frames & "<br>")
strLabel.Append("支持 Tables = " & bc.Tables & "<br>")
strLabel.Append("支持 Cookies = " & bc.Cookies & "<br>")
strLabel.Append("支持 VB Script = " & bc.VBScript & "<br>")
strLabel.Append("支持 JavaScript = " & bc.JavaScript & "<br>")
strLabel.Append("支持 Java Applets = " & bc.JavaApplets & "<br>")
strLabel.Append("支持 ActiveX Controls = " & bc.ActiveXControls & "<br>")
strLabel.Append("CDF = " & bc.CDF & "<br>")
strLabel.Append("W3CDomVersion = " + bc.W3CDomVersion.ToString + "<br>")
strLabel.Append("UserAgent = " + Request.UserAgent + "<br>")
strLabel.Append("UserLanguages = " + Request.UserLanguages(0).ToString + "<br>")
strLabel.Append("<hr color='#000099'>")
strLabel.Append("客户端计算机基本配置:<br>")
strLabel.Append("UserHostName = " + Request.UserHostName + "<br>")
strLabel.Append("UserHostAddress = " + Request.UserHostAddress + "<br>")
Label1.Text = strLabel.ToString()
End If
End Sub

End Class


  • 打赏
  • 举报
回复
qb515 2003-09-11
up
  • 打赏
  • 举报
回复
jianglinchun 2003-09-11
:( 不好意思,好没有找到和javascript共享值的好办法哦。
  • 打赏
  • 举报
回复
jianglinchun 2003-09-11
嗯,也只能用javascript了。不过你上面的代码是错误的。
  • 打赏
  • 举报
回复
qb515 2003-09-11
up
  • 打赏
  • 举报
回复
qb515 2003-09-11
能直接得到bs的值吗?我想得到分辩率的宽???????
<input type=text value=javascript:window.screen.width; name=bs>
  • 打赏
  • 举报
回复
qb515 2003-09-11
????????
  • 打赏
  • 举报
回复
相关推荐
最新单片机仿真 独立式键盘调时的数码时钟实验 最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的数码时钟实验最新单片机仿真 独立式键盘调时的
发帖
.NET社区
加入

6.0w+

社区成员

.NET技术交流专区
帖子事件
创建了帖子
2003-09-11 10:55
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。