ASP.Net/Request/URI URL

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

Uri for current page (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 TheRef As Uri 
   TheRef = Request.UrlReferrer
   lblMessage1.Text = _
       "Port: " & TheRef.Port & "
" _
       & "Path: " & TheRef.AbsolutePath & "
" _
       & "Protocol: " & TheRef.Scheme & "
" _
       & "User Agent: " & Request.UserAgent & "
" _
       & "User Host Address: " & Request.UserHostAddress & "
" _
       & "User Host Name: " & Request.UserHostName & "
"

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>URI Sample Page</TITLE> </HEAD> <BODY > <form runat="server"> <asp:Label 

   id="lblMessage1"
   runat="Server"
   Font-Bold="True"

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

      </source>


URL Encoding (VB.net)

   <source lang="csharp">

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

  <head>
     <title>URLEncoding</title>
  <script runat="server">
     Sub Page_Load()
        If IsPostBack
           Response.Write(Server.UrlEncode(Request.Form("name")))
        End If
     End Sub
  </script>
  </head>

<body> <%-- <form id="form1" action="UrlEncode.aspx" method="POST" runat="server"> 

--%>
  <form id="form1" method="POST" runat="server">

Name:

     <input type="text" id="name" runat="server">
     <input type="submit" runat="server">
  </form>

</body> </html> 

      </source>


Url Referrer: scheme (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 TheRef As Uri 
   TheRef = Request.UrlReferrer
   lblMessage.Text = "You connected to this page " _
       & "from this page: " & TheRef.AbsolutePath _
       & "
Using this protocol: " _
       & TheRef.Scheme

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Referrer Information</TITLE> </HEAD> <form runat="server"> <asp:label 

   id="lblMessage" 
   font-size="12pt"
   font-name="Tahoma"
   runat="server"

/> </form> </BODY> </HTML> 

      </source>


Url Referrer: your path (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 TheRef As Uri 
   TheRef = Request.UrlReferrer
   lblMessage.Text = "You connected to this page " _
       & "from this page: " & TheRef.AbsolutePath _
       & "
Using this protocol: " _
       & TheRef.Scheme

End Sub </SCRIPT> <HTML> <HEAD> <TITLE>Referrer Information</TITLE> </HEAD> <form runat="server"> <asp:label 

   id="lblMessage" 
   font-size="12pt"
   font-name="Tahoma"
   runat="server"

/> </form> </BODY> </HTML> 

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