Server ASP.Net

  1. Home
  2. ASP.Net
  3. Server
  4. Get all server variables (VB net)
<%@ Page Language=VB Debug=true %>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    Dim NameArray() As String
    Dim VisitorSV As NameValueCollection
    Dim I as Integer
    VisitorSV = Request.ServerVariables
    NameArray = VisitorSV.AllKeys
    For I = 0 To UBound(NameArray)
        If NameArray(I) <> "ALL_HTTP" and _ 
        NameArray(I) <> "ALL_RAW" Then
            lblMessage1.Text = lblMessage1.Text _
                & NameArray(I) & ": " _
                & VisitorSV.Item(I) & "
"
        End If
    Next
End Sub



Server Variables Sample Page




    id="lblMessage1"
    runat="Server"
    Font-Bold="True"
    FOnt-Size="9"
/>