<form name="form1" method="post" action="2.asp">
  <p>操作数1：
    <input type="text" name="Num1">
</p>
  <p>操作数2：
    <input type="text" name="Num2">
</p>
  <p>选择你所要进行的操作<br>
     <input Type=radio Name=operation value="加" checked>加<br>
  <input Type=radio Name=operation value="减">减<br>
  <input Type=radio Name=operation value="乘">乘<br>
  <input Type=radio Name=operation value="除">除<br>
  <input type="submit" name="Submit" value="提交">
  <input type="reset" name="Submit2" value="重置">  
    </p>
</form>
<Hr>
<%
dim intN1,intN2,strOp
if Request.form.count=0 then
    Request.end
end if
intN1=Request.form("Num1")
intN2=Request.form("Num2")
strOp=Request.form("operation")
if strOp="加" then
　 response.write intN1&"+"&intN2&"="&clng(intN1)+clng(intN2)
elseif strOp="减" then
   Response.Write intN1&"-"&intN2&"="&clng(intN1)-clng(intN2)
elseif strOp="乘" then
　Response.Write intN1&"*"&intN2&"="&clng(intN1)*clng(intN2)
elseif strOp="除" then
　Response.Write intN1&"/"&intN2&"="&clng(intN1)/clng(intN2)
end if
%>

[此贴子已经被作者于2005-3-3 21:10:39编辑过]

呵呵，跟具你的意思做了一下修改，测试过，能用！！！可以计算！

<%
dim intN1,intN2,strOp
if Request.form.count<>0 then
intN1=Request.form("Num1")
intN2=Request.form("Num2")
strOp=Request.form("operation")
Select case strOp
  Case "加"
      Response.write intN1&"+"&intN2&"="&clng(intN1)+clng(intN2)
  Case "减"
      Response.Write intN1&"-"&intN2&"="&clng(intN1)-clng(intN2)
  Case "乘"
      Response.Write intN1&"*"&intN2&"="&clng(intN1)*clng(intN2)
  Case "除"
      Response.Write intN1&"/"&intN2&"="&clng(intN1)/clng(intN2)
end Select
end if
%>
<form name="form1" method="post" action="">
  <p>操作数1：
    <input type="text" name="Num1">
</p>
  <p>操作数2：
    <input type="text" name="Num2">
</p>
  <p>选择你所要进行的操作<br>
  <input Type=radio Name=operation value="加" checked>加<br>
  <input Type=radio Name=operation value="减">减<br>
  <input Type=radio Name=operation value="乘">乘<br>
  <input Type=radio Name=operation value="除">除<br>
  <input type="submit" name="Submit" value="提交">
  <input type="reset" name="Submit2" value="重置">  
    </p>
</form>
<Hr>

为什么倒一下头就行了呢？

可以指出我那段程序的错误吗？谢谢

倒不倒都无所谓，一样能出来，你只是把IF语句格式书写错了 <% dim intN1,intN2,strOp if Request.form.count<>0 then intN1=Request.form("Num1") intN2=Request.form("Num2") strOp=Request.form("operation") if strOp="加" then Response.write intN1&"+"&intN2&"="&clng(intN1)+clng(intN2) if strOp="减" then Response.Write intN1&"-"&intN2&"="&clng(intN1)-clng(intN2) if strOp="乘" then Response.Write intN1&"*"&intN2&"="&clng(intN1)*clng(intN2) if strOp="除" then Response.Write intN1&"/"&intN2&"="&clng(intN1)/clng(intN2) end if %> 呵呵，自己比较一下列，！！ 不过我个人觉得用Select Case方便得多！

[此贴子已经被作者于2005-3-4 14:02:39编辑过]

那是那是