mathclient.aspx

来自「asp做的新闻系统」· ASPX 代码 · 共 49 行

ASPX
49 行
字号 
<%@ Import Namespace="MathServiceVB" %>

<html>
<script language="VB" runat="server">
  Dim Op1 As Single = 0
  Dim Op2 As Single = 0
  Public Sub Submit_Click(Sender As Object, E As EventArgs)
      Try
        Op1 = Single.Parse(Operand1.Text)
        Op2 = Single.Parse(Operand2.Text)
      Catch Exp As Exception
          ' Ignored
      End Try

      Dim Service As MathServiceVB.MathService = New MathServiceVB.MathService()
      Select (CType(sender,Control).ID)
        Case "Add" :
            Result.Text = "<b>Result</b> = " & Service.Add(Op1, Op2).ToString()
        Case "Subtract" :
            Result.Text = "<b>Result</b> = " & Service.Subtract(Op1, Op2).ToString()
        Case "Multiply" :
            Result.Text = "<b>Result</b> = " & Service.Multiply(Op1, Op2).ToString()
        Case "Divide" :
            Result.Text = "<b>Result</b> = " & Service.Divide(Op1, Op2).ToString()
      End Select
  End Sub
</script>

<body style="font: 10pt verdana">
  <h4>Using a Simple Math Service </h4>
  <form runat="server">
  <div style="padding:15,15,15,15;background-color:beige;width:300;border-color:black;border-width:1;border-style:solid">
    Operand 1: <br><asp:TextBox id="Operand1" Text="15" runat="server"/><br>
    Operand 2: <br><asp:TextBox id="Operand2" Text="5" runat="server"/><p>
    <input type="submit" id="Add" value="Add" 
        OnServerClick="Submit_Click" runat="server">
    <input type="submit" id="Subtract" value="Subtract" 
        OnServerClick="Submit_Click" runat="server">
    <input type="submit" id="Multiply" value="Multiply" 
        OnServerClick="Submit_Click" runat="server">
    <input type="submit" id="Divide" value="Divide" 
        OnServerClick="Submit_Click" runat="server">
    <p>
    <asp:Label id="Result" runat="server"/>
  </div>
  </form>
</body>
</html>

mathclient.aspx - 源码说明

本页面展示了「asp做的新闻系统」中的 mathclient.aspx 源码文件，采用 ASPX 编程语言编写，共 49 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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