ASP.Net/Request/Visitor Info
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>