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

qb515 2003-09-11 10:55:46
如何用asp.net检测用户的分辩率???????
如何用asp.net检测用户的分辩率???????
...全文
38 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
回复
????????

62,025

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

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

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

试试用AI创作助手写篇文章吧