如何使用 ASP 编写开方脚本!

来源：百度知道 编辑：UC知道 时间：2024/06/18 05:28:20
请写出代码,最好有注释,方便我看!

方法1---直接使用VBscript函数Sqr()
<%
dim a
a=sqr(2)    '就是2的平方根约为1.414
response.write(a)
%>

方法2---等会儿再写!
补上刚写好的一种求开方的算法,你闻闻,还很新鲜.
<%
if request.form("ok")<>"" then
    dim a,x0,x1,b
    a=cDbl(request.form("num"))  '你要开方的数
    b=cDbl(request.form("myRadio"))  '选择的精确度
    x0=1   '这个是我们猜想的结果(也叫预报值,可取其它值,当我们取的精确度相当高时,这个值对结果的影响就极微小了),然后通过校正技术求出更准确的值x1
    do while Abs((x0+a/x0)/2-x0)>=b   '此Abs()为取绝对值
        x1=(x0+a/x0)/2
        x0=x1
    loop
end if
%>
<html>
<head><title>开方</title><head>
<body><