帮我看看为什么红色代码部分不能实现功能 - 编程论坛

yms1232011-10-12 14:29

<html>
<head>
     <title>test</title>
</head>
<body>
     <%
     Response.write(Time())
     Response.Write(Hour(Time()))
     Dim mydate
     mydate=Hour(Time())
     Response.Write(mydate)
     Select Case mydate
     Case 12,13,14,15,16,17,18
       Response.write("下午好！")
     Case 19,20,21,22,23,24
       Response.write("晚上好！")
     Case  0,1,2,3,4,5,6
       Response.write("夜间好！")
     Case 7,8,9,10,11
       Response.write("早上好！")
     End Select


     if mydate>=12 and mydate<=18 Then
         Response.write "下午好！"
     ElseIf mydate>18 and mydate<=24 Then
         Response.write "晚上好！"
     ElseIf mydate>0 and mydate<=6 Then
         Response.write "夜间好"
     ElseIf mydate>6 and mydate<12 Then
         Response.write "早上好"
     End if
     %>
</body>
</html>