'Select Case语句
'语法:
'Select Case 条件(变量/表达式)
'Case 结果1
'执行代码
'……
'Case 结果2
'执行代码
'……
'Case Else
'执行代码
'……
'End Select
week=weekday(date())
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