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

%>

转载于:https://blog.51cto.com/brightdream/297117