ex37vb.aspx

来自「突破ASP.NET编程实例五十讲源码」· ASPX 代码 · 共 36 行

ASPX
36
字号
<html>
<title>第三十七例 编写global.asax举例</title>
<head>

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

      Sub Page_Load(Sender As Object, E As EventArgs)
         Response.Write("页面装载中()...<br>")
      End Sub

      Sub Session_Click(Sender As Object, E As EventArgs)
'忽略此次进程,页面重新指向本文件
         Session.Abandon()
         Response.Redirect("ex37VB.aspx")
      End Sub
'当页面产生错误时如何处理
      Sub Error_Click(Sender As Object, E As EventArgs)
         throw New Exception()
      End Sub

  </script>
</head>
  <body>

    <form runat="server">
      <input type="submit" Value="刷新页面" runat="server"/>
      <input type="submit" OnServerClick="Session_Click" Value="结束此次进程" runat="server"/>
      <input type="submit" OnServerClick="Error_Click" Value="进入错误页面" runat="server"/><p>
      <hr>
    </form>
    
  </body>

</html>

  

⌨️ 快捷键说明

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