ASP中用select case代替其他语言中的switch case, default用case else

select case expression 
  case label_1
   statements_1
  case label_2
   statements_2
  ...
  case else
   statements_n
end select

<%@ language="vbscript">
<%
Dim Flower
Flower = "rose"
select case flower
 case "rose" 
   response.write(flower & " costs $2.50")
 case "daisy"
   response.write(flower & " costs $1.25")
 case "orchild" 
   response.write(flower & " costs $1.50")
 case else 
   response.write("There is no such flower in our shop")
end select
%>

<%
'/*ASP中用select case代替其他语言中的switch case, default用case else*/
dim today
today = 5
select case today
 case 0 
 str = "星期天"
 case 1
 str = "星期一"
 case 2
 str = "星期二"
 case 3
 str = "星期三"
 case 4
 str = "星期四" 
 case 5
 str = "星期五"
 case 6
 str = "星期六"
 case 7, 8, 9
 str = "today的值是7，8，或9"
 case else
 	str = "未知"
end select

response.write str
response.End()
%>

/*------------输出结果--------
星期五
------------*/

board=request("board")
 select case board   
     case "1"
     boardName = "技术版"
     case "2"
     boardName = "信息版"    
     case "3"
     boardName = "客服星空"
     case "4"
     boardName = "灌水区"
     case "5"
     boardName = "市场营销"
     case "6"
     boardName = "经理论坛"
     case "7"
     boardName = "影音论坛"
     case "8"
     boardName = "延伸服务"
     case "9"
     boardName = "东北片区"
     case "10"
     boardName = "市场动态"
     case "11"
     boardName = "群发交流"
     case "12"
     boardName = "hombre"
     case "14"
     boardName = "论坛"
     case "15"
     boardName = "在线答疑"
		 case else
		boardName = "Codercto.com"
end select