[it]运行报错：[/it]

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e14'

[Microsoft][ODBC Microsoft Access Driver] 日期的语法错误 在查询表达式 'time < #2008-3-1 下午 01:01:03#' 中。

/love/online.asp，行 10

应该如何在下面的程序(online.asp)中进行修改呀？

<%
dim nowtime,connhs,kk,sqlhs,rsk,DBPathhs
nowtime=Now()
Set connhs = Server.CreateObject("ADODB.connection")
DBPathhs = Server.MapPath("../data/9wcom.asp")
connhs.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPathhs
'-----------------------------------------------------------------

sqlhs="select * from online1 where time < #"& DateAdd("n", -20,nowtime) & "#"
connhs.execute sqlhs

if isempty(session("u_id")) or session("u_id")="" or session("u_id")=1 then
   kk=1
else
   kk=session("u_id")
end if

if kk<>1 then
   Set rsk = Server.CreateObject("ADODB.Recordset")
   sqlhs="select * from online1 where user_id=" & kk
   rsk.open sqlhs,connhs,3,2
   
   if rsk.eof or rsk.bof then
      rsk.addnew
      rsk("user_id")  =  kk
   end if
   
   rsk("time")         =nowtime
   rsk.update
   rsk.close
   set rsk=nothing
end if

connhs.close
set connhs=nothing
%>

sqlhs="select * from online1 where time < #"& DateAdd("n", -20,nowtime) & "#"
改成
sqlhs="select * from online1 where time < #"& DateAdd("n", -20,cdate(nowtime)) & "#"
试试

楼上说的我试过了还是不行呀？
大家都再帮看看吧，多谢了！！！

把nowtime=Now()改成：nowtime=time()试一下下

[[it] 本帖最后由 lele2007 于 2008-3-2 15:43 编辑 [/it]]

4楼说的我也试过了还是不行呀？
大家都再帮看看吧，多谢了！！！

time < #"& DateAdd("n", -20,nowtime) & "#
改成
time <= #"& DateAdd("n", -20,nowtime) & "#

还是不成呀？
急呀！！！！

用以下方法都试试
sqlhs="select * from online1 where [time] < #"& DateAdd("n", -20,nowtime) & "#"

sqlhs="select * from online1 where [time] < #"& DateAdd("n", -20,cdate(nowtime)) & "#"

sqlhs="select * from online1 where [time] < #"& DateAdd("n", -20,now()) & "#"

[[it] 本帖最后由 madpbpl 于 2008-3-7 13:31 编辑 [/it]]

8楼说的我也试过了还是不行呀？
大家都再帮看看吧，多谢了！！！

楼主想要查询什么信息？