📄 weeksub.asp
字号:
<HTML>
<BODY>
今天是：
<%
Week = DatePart("w", Date() )
OutputWeekColor
Response.Write WeekdayName(Week)
Response.Write "</FONT>"
%>
</BODY>
</HTML>
<%
Sub OutputWeekColor
If Week = 1 Then ' 星期日
Response.Write "<FONT COLOR=Red>"
ElseIf Week = 7 Then ' 星期六
Response.Write "<FONT COLOR=Green>"
Else
Response.Write "<FONT COLOR=Blue>"
End If
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -