@Code
Dim weekday=DateTime.Now.DayOfWeek
Dim day=weekday.ToString()
Dim message=""
End Code
<html>
<body>
@Select Case day
Case "Monday"
message="這是工作日的第一天。"
Case "Thursday"
message="距離週末只有一天了。"
Case "Friday"
message="明天就是週末了！"
Case Else
message="今天是 " & day
End Select
<p>@message</p>
</body>
</html>