ASP时间判断,数据库中记录的前次提交记录时间,再次提交时不能在已经...
发布网友
发布时间：2024-10-22 00:19
共4个回答
热心网友
时间：2024-10-22 00:50
还是说只是你上面列出的4个时间段内不能重复提交，其他时间可以呢？
以下是按照固定的时间段来控制
<%
Dim nt,na,nb,aa,ab,ac,ad,ae,aaa
nt=(time())
na=Hour(nt)
nb=Minute(nt)
a=TimeSerial(7,35,0) '在测试时用的原始记录时间，正式使用时此处为数据库中时间字段。
aa=TimeSerial(7,50,0)
ab=TimeSerial(na,30,0)
ac=TimeSerial(na+1,0,0)
aaa="记录重复！"
function chk(d) '检测时间属于哪个时间段
b1=array("7:30:00","12:00:00","12:30:00","17:00:00") '存放每个时间段的开始时间
b2=array("8:00:00","12:30:00","13:00:00","17:30:00") '存放每个时间段的结束时间
chk=0 '初始化返回值,0代码不属于任何时间段,1为第一时间段,以此类推
for i=0 to ubound(b1) '循环检测
if d>=CDate(Date()& " " & b1(i)) and d<=CDate(Date()& " " & b2(i)) then '如果时间大于同一时间段的开始时间且小于线束时间,条件成立
chk=i+1 '返回时间段值
exit for '退出for循环
end if
next
end function
if chk(CDate(Date() & " " & aa))=chk(CDate(Date() & " " & a)) then
response.write aaa
end if
if chk(CDate(Date() & " " & ab))=chk(CDate(Date() & " " & a)) then
response.write aaa
end if
%>
另，你说的你的判断语句成立但是执行。你复制了你的代码看一下，if ..then语句与条件表达式之间没有空格？？？没空格if语句怎么可能会执行成功
热心网友
时间：2024-10-22 00:55
热心网友
时间：2024-10-22 00:50
热心网友
时间：2024-10-22 00:57
