<%@ Page Language="vb" %>
<html> 
<head>
   <script Runat="server">
      Sub Calculate(src As Object, e As EventArgs)
	Amount.Text = Cstr(cint(qty.text)*cint(price.text))
     End sub
  </script>
 </head> 

   <body style="background-color='beige'; font-family='verdana'; font-size='10pt'">
    <h4> 页面事件 </h4>
   <form method="POST" runat="server">
     数量:<asp:TextBox id="Qty" Runat="server"/>
     价格:    <asp:TextBox id="Price" Runat="server"/>
     总计:<asp:TextBox id="Amount" ReadOnly = "true" Runat="server"/>
    <asp:Button id="btnCalculate" Text="Calculate" OnClick="Calculate" Runat="server"/><br>
  
   </form> 
  </body>
</html>
