ASP.Net/Server/Server Variables

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

All Request Server Variables (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <script runat=server> 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)
       lblMessage.Text = lblMessage.Text _
           & NameArray(I) & ": " _
           & VisitorSV.Item(I) & "
"
   Next

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Server Variables Page</TITLE> </HEAD> <BODY LEFTMARGIN="40" TOPMARGIN="30"> <form runat="server"> <asp:Label 

   id="lblMessage"
   runat="Server"

/> </Form> </BODY> </HTML> 

      </source>


Get all server variables (VB.net)

   <source lang="csharp">

<%@ Page Language=VB Debug=true %> <script runat=server> 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 </SCRIPT> <HTML> <HEAD> <TITLE>Server Variables Sample Page</TITLE> </HEAD> <BODY > <form runat="server"> <asp:Label 

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

/> </Form> </BODY> </HTML> 

      </source>


Request Server Variables Item(REMOTE_ADDRESS) (VB.net)

   <source lang="csharp">

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

  <head>
     <title>Request property example</title>
     <script runat="server">
        Sub Page_Load()
           Message.Text = "The current request is from: " & _
              CStr(Request.ServerVariables.Item("REMOTE_ADDRESS"))
        End Sub
     </script>
  </head>

<body> 

  <asp:label id="Message" runat="server"/>

</body> </html> 

      </source>
Источник — «http://www.nfex.ru/index.php?title=ASP.Net/Server/Server_Variables&oldid=2400»