ASP.Net/Server/URL Encode Decode

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

Decoding Encoded HTML Strings (VB.net)

<%@ Page Language="VB" %>
<html>
<head>
   <title>Decoding Encoded HTML Strings</title>
   <script runat="server">
      Sub HtmlDecode()
         Dim StrToDecode As String
         Dim StrToReturn As String
         StrToDecode = "&lt;p&gt;Hello, World!&lt;/p&gt;"
         StrToReturn = Server.HtmlDecode(StrToDecode)
         Response.Write(StrToReturn)
      End Sub
   </script>
</head>
<body>
<% HtmlDecode %>
</body>
</html>



Encoding HTML Strings (VB.net)

<%@ Page Language="VB" %>
<html>
<head>
   <title>Encoding HTML Strings</title>
   <script runat="server">
      Sub HtmlEncode()
         Dim StrToEncode As String
         Dim StrToReturn As String
         StrToEncode = "<%@ Page Language=""VB"" %>"
         StrToReturn = Server.HtmlEncode(StrToEncode)
         Response.Write(StrToReturn)
      End Sub
   </script>
</head>
<body>
<% HtmlEncode %>
</body>
</html>



Encoding URL Strings in C#

<%@ Page Language="C#" %>
<html>
<head>
   <title>Encoding URL Strings</title>
   <script runat="server">
      void UrlPathEncode()
      {
         string StrToEncode;
         string StrToReturn;
         StrToEncode = "UrlPathEncode.aspx? Arg = foo";
         StrToReturn = Server.UrlPathEncode(StrToEncode);
         Response.Write("<a href=\"" + StrToReturn + "\">" + StrToReturn + "</a>");
      }
   </script>
</head>
<body>
<% UrlPathEncode(); %>
</body>
</html>



Encoding URL Strings in VB.net

<%@ Page Language="VB" %>
<html>
<head>
   <title>Encoding URL Strings</title>
   <script runat="server">
      Sub UrlPathEncode()
         Dim StrToEncode As String
         Dim StrToReturn As String
         StrToEncode = "UrlPathEncode.aspx? Arg = foo"
         StrToReturn = Server.UrlPathEncode(StrToEncode)
         Response.Write("<a href=""" & StrToReturn & """>" & StrToReturn & "</a>")
      End Sub
   </script>
</head>
<body>
<% UrlPathEncode %>
</body>
</html>



Encoding URL Strings (VB.net)

<%@ Page Language="VB" %>
<html>
<head>
   <title>Encoding URL Strings</title>
   <script runat="server">
      Sub UrlEncode()
         Dim StrToEncode As String
         Dim StrToReturn As String
         StrToEncode = "Hello, World!"
         StrToReturn = Server.UrlEncode(StrToEncode)
         Response.Write("<a href=""UrlDecode.aspx?StrToDecode=" & _
            StrToReturn & """>" & StrToReturn & " - Click to Decode!</a>")
      End Sub
   </script>
</head>
<body>
<% UrlEncode %>
</body>
</html>

<%-- UrlDecode.aspx
<%@ Page Language="VB" %>
<html>
<head>
   <title>Decoding Encoded URL Strings</title>
   <script runat="server">
      Sub UrlDecode()
         Dim StrToDecode As String
         Dim StrToReturn As String
         StrToDecode = Request.QueryString("StrToDecode")
         StrToReturn = Server.UrlDecode(StrToDecode)
         Response.Write(StrToReturn)
      End Sub
   </script>
</head>
<body>
<% UrlDecode %>
</body>
</html>

--%>



Server.HtmlEncode (VB.net)

<%@ Page Language="vb" %>
<html>
   <head>
      <title>Server property example</title>
      <script runat="server">
         Sub Page_Load()
            Message.Text = Server.HtmlEncode("<em>Hello, World!</em>")
         End Sub
      </script>
   </head>
<body>
   <asp:label id="Message" runat="server"/>
</body>
</html>



URL Encode and Decode Demo (VB.net)

<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub SubmitHTMLEncode_Click(Sender As Object, E As EventArgs)
    Dim MySU as HTTPServerUtility
    MySU = Server
    lblMessage1.Text = "Encoded: " _
        & MySU.HTMLEnCode(txtHTMLEncode.Text) & "<BR>" _
        & "Enter HTML text to encode"
End Sub
Sub SubmitHTMLDecode_Click(Sender As Object, E As EventArgs)
    Dim MySU as HTTPServerUtility
    MySU = Server
    lblMessage2.Text = "Decoded: " _
        & MySU.HTMLDeCode(txtHTMLDecode.Text) & "<BR>" _
        & "Enter HTML text to decode"
End Sub
Sub SubmitURLEncode_Click(Sender As Object, E As EventArgs)
    Dim MySU as HTTPServerUtility
    MySU = Server
    lblMessage3.Text = "Encoded: " _
        & MySU.URLEnCode(txtURLEncode.Text) & "<BR>" _
        & "Enter URL text to encode"
End Sub
Sub SubmitURLDecode_Click(Sender As Object, E As EventArgs)
    Dim MySU as HTTPServerUtility
    MySU = Server
    lblMessage4.Text = "Decoded: " _
        & MySU.URLDeCode(txtURLDecode.Text) & "<BR>" _
        & "Enter URL text to decode"
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Encoding and DeCoding Sample Page</TITLE>
</HEAD>
<BODY TEXT="black" LINK="darkred" VLINK="darkred" ALINK="red" LEFTMARGIN="40" TOPMARGIN="40">
<form runat="server">
<Font Face="Tahoma">
<asp:Label
    id="lblMessage1"
    runat="server"
    Text="Enter HTML text to encode"
    Font-Bold="True"
/>
<asp:TextBox
    id="txtHTMLEncode"
    runat="server"
/>
<BR><BR>
<asp:button 
    id="butEncode"
    runat="server"
    text="Encode"
    Type="Submit"
    OnClick="SubmitHTMLEncode_Click" 
/>
<BR><BR>
<asp:Label
    id="lblMessage2"
    runat="server"
    Text="Enter HTML text to decode"
    Font-Bold="True"
/>
<asp:TextBox
    id="txtHTMLDecode"
    runat="server"
/>
<BR><BR>
<asp:button 
    id="butDecode"
    runat="server"
    text="Decode"
    Type="Submit"
    OnClick="SubmitHTMLDecode_Click" 
/>
<BR><BR>
<asp:Label
    id="lblMessage3"
    runat="server"
    Text="Enter URL text to encode"
    Font-Bold="True"
/>
<asp:TextBox
    id="txtURLEncode"
    runat="server"
/>
<BR><BR>
<asp:button 
    id="butEncode2"
    runat="server"
    text="Encode"
    Type="Submit"
    OnClick="SubmitURLEncode_Click" 
/>
<BR><BR>
<asp:Label
    id="lblMessage4"
    runat="server"
    Text="Enter URL text to decode"
    Font-Bold="True"
/>
<asp:TextBox
    id="txtURLDecode"
    runat="server"
/>
<BR><BR>
<asp:button 
    id="butDecode2"
    runat="server"
    text="Decode"
    Type="Submit"
    OnClick="SubmitURLDecode_Click" 
/>
</Font>
</Form>
</BODY>
</HTML>
Источник — «http://nfex.ru/index.php?title=ASP.Net/Server/URL_Encode_Decode&oldid=2411»