ASP  制作计算器
程序在输入正确数据的时候往往运行良好，但是在用户由于疏忽或者恶意，输入错误数据的情况下，系统将无法正常运行。作为一个合格的程序开发人员，就一定要对由可能出现的错误进行处理，尽可能的保证程序的安全。
本次练习将建立一个简单的计算器，并对计算器有可能出现的错误进行了具体处理，具体步骤如下：
（1）设计表单。使用两个文本框、4个单选按钮、两个功能按钮。具体效果图如图2-6所示。
图2-6  页面效果
（2）添加错误处理代码。当由输入的格式不正确或者输入除数为0等原因，使脚本引擎无法顺利执行的时候，提示相应的警示信息，并返回操作页面。具体代码如下所示：
On Error Resume Next
Dim n1,n2,op
'获取用户输入的数据
n1=clng(request.form("txt1"))
n2=clng(request.form("txt2"))
op=Request.form("radio1")
If op="除" And n2=0 Then
Response.Write "<font color=red>操作过程发生错误，除数不可以为0，请重新输入"
Response.End()
Err.Clear
Elseif Err Then
Response.Write "<font color=red>操作过程发生错误,请重新输入"
Response.End()
Err.Clear
End If
（3）设计具体操作功能。获取用户的操作信息，编写脚本语句对其做相应的处理并输出处理结果，具体代码如下：
<%
Dim n1,n2,op
'获取用户输入的数据
n1=clng(request.form("txt1"))
n2=clng(request.form("txt2"))
op=Request.form("radio1")
If op="加" Then
    Response.Write n1
    Response.Write "+"
    Response.Write n2
    Response.Write "="
    Response.Write clng(n1)+clng(n2)
Elseif op="减" Then
    Response.Write n1
    Response.Write "-"
    Response.Write n2
    Response.Write "="
    Response.Write clng(n1)-clng(n2)
Elseif op="乘" Then
    Response.Write n1
    Response.Write "*"
    Response.Write n2
    Response.Write "="
    Response.Write clng(n1)*clng(n2)
Elseif op="除" Then
    Response.Write n1
    Response.Write "/"
    Response.Write n2
    Response.Write "="
    Response.Write clng(n1)/clng(n2)
End If
%>
（4）将文件保存在默认网站或者虚拟目录的物理路径下。
（5）在IE浏览器中输入网页文件的相对地址并运行。运行效果如图2-7所示。
图2-7  运算结果
（6）检测刚才定义的错误处理方案，在两个文本框中分别输入“10”和“0”，操作效果如图2-8所示。asp数据
图2-8  错误处理

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。