编制一个三角形几何参数的ASP程序
1)在第一个页面能够输入三角形的三条边,并允许下拉框选择“面积”、“周长”、“面积和周长”进行计算;
2)在第二个页面根据要求完成计算,并校验三角形的合法性,并判断是否为等腰、等边、直角三角形。
答案:Input.asp 输入边长信息页面:(第一个页面)
<form id="form1" name="form1" method="post" action="result.asp">
边长一:
<input type="text" name="a" id="a" />
<p>边长二:
<input type="text" name="b" id="b" />
</p>
<p>边长三:
<input type="text" name="c" id="c" />
</p>
<p>我要计算:
<select name="js" id="js">
<option value="1">周长</option>
<option value="2">面积</option>
</select>
<input type="submit" name="button" id="button" value="马上计算" />
</p>
</form>
-------------------------------------------------
技术支持:武汉装修在线
result.asp计算结果页面:(第二个页面)
<%
' 判断三边
dim a,b,c
a=cint(request("a"))
b=cint(request("b"))
c=cint(request("c"))
if a+b<=c or a+c<=b or b+c<=a then
%>
<script language=javascript>
alert( "请正确输入三角形三边,必须两边大于第三边." );
location.href = "Input.asp"
</script>
<%
response.end()
else
'三角形类型判断
dim Stype
if a=b=c then
Stype="等边三角形"
elseif a*a + b*b = c*c or a*a + c*c = b*b or b*b+c*c=a*a then
Stype="直角三角形"
elseif a=b or a=c or b=c then
Stype="等腰三角形"
end if
'判断计算类型并计算
dim S,p
if request("js")="1" then
S=a+b+c
else
p=(a+b+c)/2
S=Sqr(p*(p-a)*(p-b)*(p-c)) '海伦公式
end if
'输出结果
response.write("你输入的是:"&Stype&",计算结果:"&S)
end if
%>
上一个:如何让服务器同时运行asp和java程序富阳
下一个:ASP.NET 如何调用本地的应用程序打开服务器文档