案例:ASP.net案例     状态:不可编辑再运行    进入竖版
 运行结果 
AخA
 
1
@Code
2
Dim weekday=DateTime.Now.DayOfWeek
3
Dim day=weekday.ToString()
4
Dim message=""
5
End Code
6
<html>
7
<body>
8
@Select Case day
9
Case "Monday"
10
    message="This is the first weekday."
11
Case "Thursday"
12
    message="Only one day before weekend."
13
Case "Friday"
14
    message="Tomorrow is weekend!"
15
Case Else
16
    message="Today is " & day
17
End Select
18
<p>@message</p>
19
<p>此案例仅供展示,日期只是示例</p>
20
</body>
21
</html>