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
C#代码
ClientPeek.aspx
<%@ Page language="c#" EnableViewState = "false" Codebehind="ClientPeek.aspx.cs" AutoEventWireup="false" Inherits="eMeng.Exam.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">
<script language=javascript>
var PDFPlugin = false;
try
{
pdftest=new ActiveXObject("PDF.PdfCtrl.6");
}
catch(e)
{
PDFPlugin = false
}
</script>
</HEAD>
<body id="MyBody" MS_POSITIONING="GridLayout" runat="server">
<form id="browserpeek" runat="server" name="browserpeek">
<asp:label id="Label1" runat="server"></asp:label></form>
</body>
</HTML>
ClientPeek.aspx.cs
using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;
做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。
热心网友
回答时间：2025-01-10 19:59
