成免费的crm,久久国产精品新农夫导航新妓网,恋夜秀场全部视频安卓手机,女校花强奷在线播放A级

VB 實例 Select 條件

vb 實例

select 條件

@code
dim weekday=datetime.now.dayofweek
dim day=weekday.tostring()
dim message=""
end code
<html>
<body>
@select case day
case "monday"
    message="this is the first weekday."
case "thursday"
    message="only one day before weekend."
case "friday"
    message="tomorrow is weekend!"
case else
    message="today is " & day
end select
<p>@message</p>
</body>
</html>

相關文章