<%dim n
select case hour(now)
case "6","7","8","9","10","11" n="上午"
case "12" n="中午"
case "13","14","15","16","17" n="下午"
case "18","19","20","21","22","23" n="晚上"
case "0","1","2","3","4","5" n="凌晨"
end select
response.write n&"好"%>
<%@ language=vbscript %>
<html>
<body>
<font color=blue>
<% if time<#12:00:00# and time>=#00:00:00# then %>
上午好!
<% elseif time<#19:00:00# and time>=#12:00:00# then %>
下午好!
<% else %>
晚上好!
<% end if %>
</font>
</body>
</html>