Select應用

<%
'Select Case語句
'語法：
'Select Case 條件(變量/表達式)
'Case  結果1
'執行代碼
'……
'Case  結果2
'執行代碼
'……
'Case Else
'執行代碼
'……
'End Select

 

dim week
week=weekday(date())

select case week
 case 1
  response.Write("星期日")
 case 2
  response.Write("星期一")
 case 3
  response.Write("星期二")
 case 4
  response.Write("星期三")  
 case 5
  response.Write("星期四")  
 case 6
  response.Write("星期五")  
 case 7
  response.Write("星期六")  
 'case else
  'response.Write("星期六")  
end select

%>