选择报表的工作一样如果语句然而不同的是他们可以检查多个值当然你有
多个相同的如果 else语句但是这并不总是最好的方法
选择语句允许一个程序来计算表达式并试图匹配表达式的值案件标签如果找到匹
配程序执行相关的声明对于SELECT语句的语法如下
select case expression
case label_
statements_
case label_
statements_
case else
statements_n
end select
该计划首先查找与匹配的表达式的值标签的情况然后条控制转移到该条款执行相
关的声明如果没有找到匹配的标签程序查找任择案Else子句如果发现将控制
转移到该条款执行相关的声明如果没有Case Else子句发现程序继续执行的声明
后选择结束利用休息时间避免因进入下一个代码自动执行
让我们考虑一个例子
<%@ language="vbscript">
<%
Dim Flower
Flower = "rose"
select case flower
case "rose"
responsewrite(flower & " costs $")
case "daisy"
responsewrite(flower & " costs $")
case "orchild"
responsewrite(flower & " costs $")
case else
responsewrite("There is no such flower in our shop")
end select
%>