例10-1.asp

来自「深入浅出XML示例下载」· ASP 代码 · 共 25 行

<HTML>
<HEAD>
<TITLE>简单的ASP页面</TITLE>
</HEAD>
<BODY>
<font color=#0000FF size=5>
<%
 Dim theHour
 theHour = Hour(Now())
 If theHour < 8 Then
  Response.Write "早上好！"
 ElseIf theHour >= 8 And theHour < 12 Then
  Response.Write  "上午好！"
 ElseIf theHour >= 12 And theHour < 13 Then
  Response.Write  "中午好！"
ElseIf theHour >= 13 And theHour < 18 Then
  Response.Write  "下午好！"
Else
  Response.Write  "上午好！"
End If
%>
</font>
</BODY>
</HTML>