@代码
Dim weekday=DateTime.Now.DayOfWeek
Dim day=weekday.ToString()
Dim message=""
End 代码
<html>
<body>
@选择情况 day
情况“星期一”
信息=“这是第一个工作日。”
情况“星期四”
信息=“距离周末仅剩一天。”
情况“星期五”
信息=“明天是周末！”
情况其他
信息=“今天是” + day
结束选择
<p>
@信息
</p>
</body>
</html>