关于一个时间判断的问题
现在的语句就是判断不了 表单的 开始时间,结束时间(sStartTimers,sEndTime)这两个时间是不是在 数据库里面的 开始时间和结束时间(StartTime,EndTime)之间,不知道如果判断,请指教!
说明,数据库有其中四个字段:编号,日期,开始时间,结束时间(bianhao,riqi,StartTime,EndTime)
详情看代码:
<!--#include file="conn.asp"-->
<!-- #include file="admin.asp" -->
<%
dim action,url,id
id=request("id")
UserID=request("UserID")
right=request("right")
action=request.QueryString("action")
sriqi=trim(request("riqi"))
sStartTimers=trim(request("StartTime"))
sEndTime=trim(request("EndTime"))
sbianhao=trim(request("bianhao"))
'//添加新数据
select case action
case "add"
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from FGD where bianhao='"&sbianhao&"' and datediff('d',riqi,'"&sriqi&"')=0 and StartTime > "&sStartTimers&" and EndTime < "&sEndTime&"",conn,1,1
'rs.open "select * from FGD where riqi='"&sriqi&"' and bianhao='"&sbianhao&"' and (( sStartTimers > rs("startime") and sStartTimers < rs("endtime")) or ( sEndTime > rs("startime") and sEndTime < rs("endtime"))) order by id desc",conn,3,3
'
'if ( sStartTimers > rs("startime") and sStartTimers < rs("endtime")) or ( sEndTime > rs("startime") and sEndTime < rs("endtime")) then
'datediff('d',riqi,'"&sriqi&"')=0
'starttime<'"&sbianhao&"'
'if not rs.eof or rs.bof then
'if rs.recordcount >= 1 then
If Not Rs.Eof Then
response.Write "<script language=javascript>alert('预定的时间有冲突,请检查!');history.go(-1);</script>"
'Response.Redirect "anclass_fgr1.asp?msg=预定的时间有冲突,请检查!"
Else
Rs.Close
set rs=server.CreateObject("adodb.recordset")
Rs.Open "select * from FGD",conn,1,3
rs.AddNew
rs("bianhao")=trim(request("bianhao"))
rs("riqi")=trim(request("riqi"))
rs("StartTime")=trim(request("StartTime"))
rs("EndTime")=trim(request("EndTime"))
rs("Projectname")=trim(request("Projectname"))
rs("addname")=trim(request("addname"))
rs("video")=trim(request("video"))
rs("beizhu")=trim(request("beizhu"))
'rs("changyong")=int(request("changyong"))
rs.Update
rs.Close
set rs=nothing
response.redirect url&"anclass_fgr1.asp"
end if
'//修改数据
case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from FGD where ID="&request.QueryString("id")&"",conn,1,3
rs("bianhao")=trim(request("bianhao"))
rs("riqi")=trim(request("riqi"))
rs("StartTime")=trim(request("StartTime"))
rs("EndTime")=trim(request("EndTime"))
rs("Projectname")=trim(request("Projectname"))
rs("addname")=trim(request("addname"))
rs("video")=trim(request("video"))
rs("beizhu")=trim(request("beizhu"))
rs.update
rs.close
set rs=nothing
response.redirect url&"anclass_fgr2.asp"
'//删除数据
case "del"
id=request.QueryString("id")
conn.execute ("delete from FGD where id="&request.QueryString("id"))
response.redirect url&"anclass_fgr2.asp"
end select
%>
<%
Function finddir(filepath)
finddir=""
for i=1 to len(filepath)
if left(right(filepath,i),1)="/" or left(right(filepath,i),1)="\" then
abc=i
exit for
end if
next
if abc <> 1 then
finddir=left(filepath,len(filepath)-abc+1)
end if
end Function
%>