Просмотр исходного текста страницы ASP.Net/Response/Response Javascript

==Using the Response to output Javascript code (VB.net)==



   
  <!-- start source code -->
   
    <source lang="csharp">
       
<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
    If chkMailingList.Checked = "True" Then 
        Response.Write ("<SCRIPT LANGUAGE=""JavaScript"">" _
            & Chr(13) & "<!--" & Chr(13) _
            & "alert("You have been added to " _
            & "our mailing list")" & Chr(13) _
            & "--><" & "/" & "SCRIPT>")
    End If
    If chkContact.Checked = "True" Then 
        Response.Write ("<SCRIPT LANGUAGE=""JavaScript"">" _
            & Chr(13) & "<!--" & Chr(13) _
            & "alert("We will contact you " _
            & "by phone")" & Chr(13) _
            & "--><" & "/" & "SCRIPT>")
    End If    
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Displaying a Basic CheckBox Control</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
<asp:checkbox
    id="chkMailingList"
    text="Would you like to be on our mailing list?"
    checked="true"
    backcolor="LightYellow"
    bordercolor="DarkRed"
    borderwidth=3
    font-size="12pt"
    font-name="Comic Sans MS"
    textalign="Left"
    runat="server" 
/>
<BR><BR>
<asp:checkbox
    id="chkContact"
    text="Would you like us to contact you by phone?"
    checked="false"
    backcolor="LightYellow"
    bordercolor="DarkRed"
    borderwidth=3
    font-size="12pt"
    font-name="Comic Sans MS"
    textalign="Right"
    runat="server" 
/>
<BR><BR>
<asp:button 
    id="butOK"
    text="OK"
    Type="Submit"
    OnClick="SubmitBtn_Click" 
    runat="server"
/>
</form>
</BODY>
</HTML>
           
       </source>