ASP.Net/Request/Visitor Info

Материал из .Net Framework эксперт
Перейти к: навигация, поиск

Request.UserHostAddress (VB.net)

   <source lang="csharp">

<%@ Page Language="vb" %> <html>

  <head>
     <title>Displaying the HTTP headers collection in ASP.NET</title>
  </head>

<body>

<% Dim HostAddress, HostName, Languages() As String Dim iCounter As Integer HostAddress = Request.UserHostAddress HostName = Request.UserHostName Languages = Request.UserLanguages Response.Write("Client IP Address: " & HostAddress & "
") Response.Write("Client Machine Name: " & HostName & "
") For iCounter = 0 To Languages.GetUpperBound(0) Response.Write("Client Language " & iCounter & ": " & CStr(Languages(iCounter)) & "
") Next iCounter %>

</body> </html>

      </source>
   
  


Request.UserHostName (VB.net)

   <source lang="csharp">

<%@ Page Language="vb" %> <html>

  <head>
     <title>Displaying the HTTP headers collection in ASP.NET</title>
  </head>

<body>

<% Dim HostAddress, HostName, Languages() As String Dim iCounter As Integer HostAddress = Request.UserHostAddress HostName = Request.UserHostName Languages = Request.UserLanguages Response.Write("Client IP Address: " & HostAddress & "
") Response.Write("Client Machine Name: " & HostName & "
") For iCounter = 0 To Languages.GetUpperBound(0) Response.Write("Client Language " & iCounter & ": " & CStr(Languages(iCounter)) & "
") Next iCounter %>

</body> </html>

      </source>
   
  


Request.UserLanguages (VB.net)

   <source lang="csharp">

<%@ Page Language="vb" %> <html>

  <head>
     <title>Displaying the HTTP headers collection in ASP.NET</title>
  </head>

<body>

<% Dim HostAddress, HostName, Languages() As String Dim iCounter As Integer HostAddress = Request.UserHostAddress HostName = Request.UserHostName Languages = Request.UserLanguages Response.Write("Client IP Address: " & HostAddress & "
") Response.Write("Client Machine Name: " & HostName & "
") For iCounter = 0 To Languages.GetUpperBound(0) Response.Write("Client Language " & iCounter & ": " & CStr(Languages(iCounter)) & "
") Next iCounter %>

</body> </html>

      </source>