正在加载图片...
三、实验器材: Windows2000 Server计算机系统;安装IIS、 Dreamweaver mx 2004、 Access2000数据库系统等。 四、实验内容: 1、利用Ⅴ Script在页面中输出当前的日期 2、上机验证 VBScript各函数的用法和功能; 3、试用 VBScript编写一个求数n阶乘的函数 Power,利用表单获得要求阶 乘的数,然后通过调用 Power函数,实现阶乘的计算并输出结果 [参考代码 shuru. htm <form name="form1"method="post"action="jisuan asp"> <table width=519"height="25"border="1" align="center"> <tr> < td width=·174">请输入一个整数:</td> td width=329"><input name="number1 ype=text id="number"></td> </tr> <td colspan =2"><div align ="center"> <input type="submit"name="Submit "value=itt"> </div></td> </tr> /table> </form> JIshan. asp <%function jiecheng t dim」 for i=1 to t next JIecheng =j end function </head> <%data=cint(request Form("number1")) response. Write("阶乘为:"& tiecheng(data) % </body> 4、 VBScript编程,实现计算并输出100至500间的水仙花数。(水仙花数 是指该数的值与各位数字的立方和相等); [参考代码 <body7 三、实验器材：Windows 2000 Server 计算机系统；安装 IIS、Dreamweaver MX 2004、Access 2000 数据库系统等。 四、实验内容： 1、利用 VBScript 在页面中输出当前的日期； 2、上机验证 VBScript 各函数的用法和功能； 3、试用 VBScript 编写一个求数 n 阶乘的函数 Power，利用表单获得要求阶 乘的数，然后通过调用 Power 函数，实现阶乘的计算并输出结果； [参考代码] shuru.htm <form name="form1" method="post" action="jisuan.asp"> <table width="519" height="25" border="1" align="center"> <tr> <td width="174">请输入一个整数：</td> <td width="329"><input name="number1" type="text" id="number"></td> </tr> <tr> <td colspan="2"><div align="center"> <input type="submit" name="Submit" value="计算"> </div></td> </tr> </table> </form> jisuan.asp <%function jiecheng(t) dim j j=1 for i=1 to t j=j*i next jiecheng=j end function %> </head> <body> <%data=cint(request.Form("number1")) response.Write("阶乘为："&jiecheng(data)) %> </body> 4、VBScript 编程，实现计算并输出 100 至 500 间的水仙花数。（水仙花数 是指该数的值与各位数字的立方和相等）； [参考代码] <body>