<%
Head_NowTime=Hour(Now)
Select Case Head_NowTime
Case 1 To 4
Head_NowNote="清晨"
Case 5 To 7
Head_NowNote="早上"
Case 8 To 11
Head_NowNote="上午"
Case 12 To 13
Head_NowNote="中午"
Case 14 To 17
Head_NowNote="下午"
Case 18 To 19
Head_NowNote="黄昏"
Case 20 To 22
Head_NowNote="晚上"
Case Else
Head_NowNote="午夜"
End Select
Response.Write Head_NowNote
%>
上来就提示
错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/SpoForum/head.asp, line 5, column 7
Case 1 To 4
------^
我觉得应该没有错误啊，这是一个独立的文件，没有其他的代码。
请问大家如何解决呢？？？
參考答案:二楼的可以，代码长点。
三楼的用过asp吗？ 来单引号？ asp里单引号是注释！
Select Case Head_NowTime
Case 1,2,3,4
Head_NowNote="清晨"
Case 5,6,7
Head_NowNote="早上"
Case 8,9,10,11
Head_NowNote="上午"
Case 12,13
Head_NowNote="中午"
Case 14,15,16,17
Head_NowNote="下午"
Case 18,19
Head_NowNote="黄昏"
Case 20,21,22
Head_NowNote="晚上"
Case Else
Head_NowNote="午夜"
End Select