Question

ASP问题 在线等啊! 急哦

1、编写ASP程序,要求根据系统的时间来判断是上午,中午,下午还是晚上.假定7:00~11:00为上午 11:00~14:00为中午,14:00~18:00为下午,18:00~7:00为晚上. 2、前台网页(5.htm) 显示一个输入口令的密码框,单击登入后把信息提交给6.asp程序 后台程序(6.asp) 判断口令是否正确(注:正确密码为aa),正确的话设置一个session类型的变量,并自动转入网页 7.asp,口令不正确的话自动转向5.htm 网页(7.asp) 先判断是否有session类型的变量,没有的话自动转向5.htm,有的话显示"欢迎光临". 3、前台网页(2.htm) 显示一个姓名文本框,一组性别单选按钮(男,女),要求使用POST方法发送信息,信息发送到后台程序2.asp 后台程序(2.asp) 要求显示如下信息:您的姓名XXX,您的性别是X(XXX为前台输入的信息),提示:用request.form接受信息, 用response.write显示信息.

第一提 我的代码晚上显示不出来 为什么????
<% If Time < #11:00:00# And Time >= #07:00:00# Then %>
<%=now()%> 现在是早上
<% ElseIf Time < #14:00:00# And Time >= #11:00:00# Then %>
<%=now()%> 现在是中午
<% End If %>
<% If Time < #18:00:00# And Time >= #14:00:00# Then %>
<%=now()%> 现在是下午
<% ElseIf Time < #06:59:59# And Time >= #18:00:00# Then %>
<%=now()%> 现在是晚上
<% End If %>

Answer 1

唉..现在的教程害死人啊...

<%
Dim theTime
Dim theHour

theTime = Now
theHour = Hour(theTime)

If theHour >= 7 And theHour < 11 Then
Response.Write "现在是上午, " & theTime
ElseIf theHour >= 11 And theHour < 14 Then
Response.Write "现在是中午, " & theTime
ElseIf theHour >= 14 And theHour < 18 Then
Response.Write "现在是下午, " & theTime
Else
Response.Write "现在是晚上, " & theTime
End If
%>

Answer 2

学习编程的人都快傻了。

Answer 3

if hour(now())>0 then
...........
elseif hour(now())>5 then
............
end if