搪瓷材料是否耐氟?:从网上下载的源码,有点小问题,高手请进来看看啊.

来源:百度文库 编辑:高校问答 时间:2024/05/06 05:07:58
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] 日期的语法错误 在查询表达式 'time < #2006-7-11 上午 11:33:08#' 中。
/online.asp, 第 10 行

这说的是什么意思呢?
<%
dim nowtime,connhs,kk,sqlhs,rsk,DBPathhs
nowtime=Now()
Set connhs = Server.CreateObject("ADODB.connection")
DBPathhs = Server.MapPath("isi/xlist.asp")
connhs.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPathhs
'-----------------------------------------------------------------

sqlhs="delete * from online 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 online 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
%>

贴上online.asp 的源码

第二行
nowtime=Date()