录入时间限制

[c48111926]

if DateDiff("h", ""& request("发生时间") &"", Now()) > 24 then 
Response.Write "<script language=JavaScript>" & chr(13) & "alert('信息超过了24小时，此条信息作废！');"&"window.location.href = '1.asp?' </script>" 
Response.End
end if

上面代码是如果发生时间大于录入时间24小时就提示信息作废。
我想改成发生时间如果小于本日8点50就提示作废

[w_261521292]

IF DateDiff("s", request("ky") , ""&k&"") > 0 Then
H换成S 同时改成大于0

[lzp4881]

dd=date()&" 8:50:00"
if request("发生时间") < dd then
...
end if

[kaifadi]

<%
Dim re
re=formatdatetime(request("发生时间"),3)
response.write DateDiff("n",re,CDate("08:50"))
If(DateDiff("n",re,CDate("08:50"))>0)then
response.write True '如果时间小于它输出TRUE，否则FALSE
Else
response.write False
End if
%>

[fenglik]

if DateDiff("mm",request("发生时间"), Cdate(formatdatetime(now,2)&" "&"8:50")
) < 0 then

[c48111926]

[Quote=引用 1 楼 fenglik 的回复:]
if DateDiff("mm",request("发生时间"), Cdate(formatdatetime(now,2)&" "&"8:50")
) < 0 then
[/Quote]哥哥不对哦
我改过后填写所有时间都显示作废了
我的发生时间格式是：2011年1月1日00时00分

[w_261521292]

k =CDate(""&date()&" 8:50")
IF DateDiff("h", request("发生时间"), ""&k&"") < 0 Then

[c48111926]

[Quote=引用 3 楼 w_261521292 的回复:]
k =CDate(""&date()&" 8:50")
IF DateDiff("h", request("发生时间"), ""&k&"") < 0 Then
[/Quote]还是一样不行。

[w_261521292]

有什么提示？我这里测试了，行的呢。

[c48111926]

[Quote=引用 5 楼 w_261521292 的回复:]
有什么提示？我这里测试了，行的呢。
[/Quote]

IF DateDiff("h",  request("ky") , ""&k&"") < 0 Then
Response.Write "<script language=JavaScript>" & chr(13) & "alert('对不起，您录入的信息超过了24小时，此条信息作废！');"&"window.location.href = '1.asp?part="& request("part")&"&yh="& request("yh")&"' </script>" 
Response.End
end if

无论我输入时间是多少都提示作废了