ASP中select-case用法
根據表達式的值執行幾組語句之一。
Select Case testexpression
[Case expressionlist-n
[statements-n]] . . .
[Case Else expressionlist-n
[elsestatements-n]]
End Select
參數
testexpression
任意數值或字串表達式。
expressionlist-n
如Case 出現則必選項。一個或多個表達式的分界列表。
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 Else 語句置於Select Case 區塊中以處理不可預見的testexpression 值。如果沒有Case expressionlist 與testexpression 相符且無Case Else 語句，則繼續執行End Select 之後的語句。
Select Case 語句可以是巢狀的，每一層巢狀的Select Case 語句必須有與之相符的End Select 語句。
以下範例舉例說明如何使用Select Case 語句:
Dim Color, MyVar
Sub ChangeBackground (Color)
MyVar = lcase (Color)
Select Case MyVar
Case red document.bgColor = red
Case green document.bgColor = green
Case blue document.bgColor = blue
Case Else MsgBox 選擇另一種顏色
End Select
End Sub
二。例程（判斷）
<%
dim money
money=request(money)
select case true
case money > 5
response.Write5
case else
response.Writeelse
end select
%>
三。例程
<%
select case request.querystring(su)
case 1,3,5,7,9
response.write 單數
case 2,4,6,8
response.write 雙數
case else
response.write 很複雜的數
end select
%>