📄 listing0406.aspx
字号:
<%@Page Language="VB" %>
<script runat="server">
sub Page_Load(obj as object,e as eventArgs)
dim Now as DateTime =DateTime.Now
dim intHour as integer =Now.Hour
Label1.Text ="The time is now " & _
Now.ToString("T")+"<p>"
if intHour <12 then
Label1.Text +="Good morning!"
elseif intHour >12 &intHour <18 then
Label1.Text +="Good afternoon!"
else
Label1.Text +="Good evening!"
end if
end sub
</script>
<html><body>
<form runat="server">
<asp:Label id="Label1" runat="server"/>
</form>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -