Server ASP.Net

<%@ Page Language=VB Debug=true %>

Sub SubmitHTMLEncode_Click(Sender As Object, E As EventArgs)
    Dim MySU as HTTPServerUtility
    MySU = Server
    lblMessage1.Text = "Encoded: " _
        & MySU.HTMLEnCode(txtHTMLEncode.Text) & "
" _
        & "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) & "
" _
        & "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) & "
" _
        & "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) & "
" _
        & "Enter URL text to decode"
End Sub



Encoding and DeCoding Sample Page




    id="lblMessage1"
    runat="server"
    Text="Enter HTML text to encode"
    Font-Bold="True"
/>
    id="txtHTMLEncode"
    runat="server"
/>



    id="butEncode"
    runat="server"
    text="Encode"
    Type="Submit"
    OnClick="SubmitHTMLEncode_Click" 
/>



    id="lblMessage2"
    runat="server"
    Text="Enter HTML text to decode"
    Font-Bold="True"
/>
    id="txtHTMLDecode"
    runat="server"
/>



    id="butDecode"
    runat="server"
    text="Decode"
    Type="Submit"
    OnClick="SubmitHTMLDecode_Click" 
/>



    id="lblMessage3"
    runat="server"
    Text="Enter URL text to encode"
    Font-Bold="True"
/>
    id="txtURLEncode"
    runat="server"
/>



    id="butEncode2"
    runat="server"
    text="Encode"
    Type="Submit"
    OnClick="SubmitURLEncode_Click" 
/>



    id="lblMessage4"
    runat="server"
    Text="Enter URL text to decode"
    Font-Bold="True"
/>
    id="txtURLDecode"
    runat="server"
/>



    id="butDecode2"
    runat="server"
    text="Decode"
    Type="Submit"
    OnClick="SubmitURLDecode_Click" 
/>