动态网页设计与网站管理实验指导书(14)

w="星期六" end select

str="现在日期时间为：" & y & "年" & m & "月" & d & "日" & w & t

& "<br>"

response.write str '输出当前日期时间和星期信息 %>

<center><h3>欢迎你使用图书馆"好书共享"协会会员购书款折扣计算程序</h3>

请输入你的总书款：<input type="text" name="txtprice"> <input type="button" name="okbtn" value="确定"></center> <script language="vbscript" for="okbtn" event="onclick"> 'okbtn按钮的单击事件代码

dim totalprice,giveprice totalprice=txtprice.value

select case true '该循环计算应付书款 case totalprice<1000

giveprice=0.95*totalprice

case totalprice>=1000 and totalprice<2000 giveprice=0.9*totalprice

case totalprice>=2000 and totalprice<4000 giveprice=0.8*totalprice case else

giveprice=0.7*totalprice end select

msgbox "你的应付书款为：" & giveprice </script> </body> </html>

2．循环结构程序设计 （1）任务描述

为图书馆网站编写一个休闲游戏网页，该游戏网页由“猜数”、“判断某数是否为素数”、“百钱买百鸡”三个小游戏组成。网页的浏览界面如图3-5所示。