📄 customize.aspx

📁 ASP_NET程序设计教程源代码冶金工业出版社肖金秀冯沃辉　陈少涌
💻 ASPX
字号:
<%@ Page Language="VB" Debug="true" %>

<html>
 

  <script language="VB" runat="server">

      Sub Page_Load(Sender As Object, E As EventArgs)
      
          If Not (Page.IsPostBack)
            ViewState("引用站点") = Request.Headers("引用站点")

            BackColor.Value = Session("BackColor")
            ForeColor.Value = Session("ForeColor")
            LinkColor.Value = Session("LinkColor")
            FontSize.Value = Session("FontSize")
            FontName.Value = Session("FontName")
          End If
      End Sub

      Sub Submit_Click(Sender As Object, E As EventArgs)
      
        Session("BackColor") = BackColor.Value
        Session("ForeColor") = ForeColor.Value
        Session("LinkColor") = LinkColor.Value
        Session("FontSize")  = FontSize.Value
        Session("FontName")  = FontName.Value
        
        If Not ViewState("引用站点") = Nothing Then
          Response.Redirect(ViewState("引用站点").ToString())
        End If
      End Sub

      Sub Cancel_Click(Sender As Object, E As EventArgs)
        If Not ViewState("引用站点") = Nothing Then
          Response.Redirect(ViewState("引用站点").ToString())
        End If
      End Sub

      Function GetStyle(Key As String) As String
        Return Session(Key).ToString()
      End Function

  </script>

  <style>

    body {
      font: <%=GetStyle("FontSize")%> <%=GetStyle("FontName")%>;
      background-color: <%=GetStyle("BackColor")%>;
    }

    table {
      font: <%=GetStyle("FontSize")%> <%=GetStyle("FontName")%>;
      background-color: <%=GetStyle("BackColor")%>;
      foreground-color: <%=GetStyle("ForeColor")%>
    }

    a { color: <%=GetStyle("LinkColor")%> }

  </style>

  <body style="color:<%=GetStyle("ForeColor")%>"> 

    <form runat="server">

    <h3><font face="宋体">自定义此页</font></h3>

    <b>选择您的首选项：</b><p>

    <table style="color:<%=GetStyle("ForeColor")%>">
      <tr>
        <td>背景色：</td>
        <td>
          <select id="BackColor" runat="server">
            <option>beige</option>
            <option>yellow</option>
            <option>red</option>
            <option>blue</option>
            <option>lightblue</option>
            <option>lightgreen</option>
            <option>black</option>
            <option>white</option>
          </select>
        </td>
      </tr>
      <tr>
        <td>前景色：</td>
        <td>
          <select id="ForeColor" runat="server">
            <option>black</option>
            <option>beige</option>
            <option>yellow</option>
            <option>red</option>
            <option>blue</option>
            <option>lightblue</option>
            <option>lightgreen</option>
            <option>white</option>
          </select>
        </td>
      </tr>
      <tr>
        <td>超级链接的颜色：</td>
        <td>
          <select id="LinkColor" runat="server">
            <option>blue</option>
            <option>beige</option>
            <option>yellow</option>
            <option>red</option>
            <option>lightblue</option>
            <option>lightgreen</option>
            <option>black</option>
            <option>white</option>
          </select>
        </td>
      </tr>
      <tr>
        <td>字体大小：</td>
        <td>
          <select id="FontSize" runat="server">
            <option>9pt</option>
            <option>10.5pt</option>
            <option>12pt</option>
            <option>14pt</option>
          </select>
        </td>
      </tr>
      <tr>
        <td>字体名称：</td>
        <td>
          <select id="FontName" runat="server">
            <option>宋体</option>
            <option>Tahoma</option>
            <option>Aria</option>
            <option>Times</option>
          </select>
        </td>
      </tr>
    </table>

    <p>

    <input type="submit" OnServerClick="Cancel_Click" Value="取消" runat="server"/>
    <input type="submit" OnServerClick="Submit_Click" Value="提交" runat="server"/>

    </form>

  </body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -