ASP动态网页设计-使用SelectCase语句

如果需要实现多重分支选择，一般使用Select Case 语句，而不使用If⋯Then Else If语句。Select Case 语句可以根据测试表达式的值，来执行几组语句中的一组。

语法格式：

Select Case testexpression

[Case expressionlist-n

[statements-n]

⋯

[Case Else expressionlist-n

elsestatements-n

End Select

说明：testexpression 是任意数值或字符串表达式，expressionlist-n 是一个或多个表达式的分界列表。statements-n 是当testexpression 与expressionlist-n 中的任意部分匹配时执行的一条或多条语句。elsestatements-n 是当testexpression 与Case 子句的任何部分不匹配时执行的一条或多条语句。

如果testexpression 与任何Case expressionlist表达式匹配，则执行此Case子句与下一个Case 子句之间的语句，对于最后的子句，则会执行该子句到End Select之间的语句，然后控制权会转到End Select之后的语句。如果testexpression 与多个Case 子句中的expressionlist表达式匹配，则只有第一个匹配表达式后的语句被执行。Case Else用于指示若在testexpression和任何其他Case选项的expressionlist之间未找到匹配，则执行elsestatements。如果没有Case expressionlist与testexpression 匹配且无Case Else语句，则继续执行End Select之后的语句。

【例3.7】Select Case 语句的使用方法，运行结果如图3-7所示。

图3-7 Select Case语句应用示例页面

文件命名为3-7.htm 的代码如下：

〈HTML〉

〈HEAD〉

〈TITLE〉SELECT CASE语句应用示例〈/TITLE〉

〈SCRIPT LANGUAGE＝″VBScript″FOR＝″btnshow″EVENT＝″on Click″〉

Dim X，Msg

X＝FORM1.Txtchoice.VALUE

select case X

case ″1″

Msg＝″计算机及应用″

case ″2″

Msg＝″计算机网络技术″(www.xing528.com)

case ″3″

Msg＝″计算机图形图像″

case ″4″

Msg＝″电子技术及应用 ″

case else

Msg＝″其他″

end select

Msgbox ″你选择的是″& Msg & ″专业。 ″，vbonlyok＋vbinformation，″select case应用示例 ″语句

〈/SCRIPT〉

〈/HEAD〉

〈BODY〉〈H3〉本系开设以下专业：〈/H3〉

〈OL〉

〈LI〉计算机及应用〈/LI〉

〈LI〉计算机网络技术〈/LI〉

〈LI〉计算机图形图像〈/LI〉

〈LI〉电子技术及应用〈/LI〉

〈/OL〉

〈FORM NAME＝″FORM1″〉

〈P〉请输入你的选择（1-4）：〈INPUT TYPE＝″TEXT″NAME＝″Txtchoice″SIZE＝″6″〉〈/P

〈P〉〈INPUT TYPE＝″button″NAME＝″btnshow″VALUE＝″显示结果″〉〈/P〉

〈/FORM〉

〈/BODY〉

〈/HTML〉