asp按时间段查询时变量如何设置

来源:百度知道 编辑:UC知道 时间:2024/07/04 03:33:55
原代码如下:
总是提示这个不对:
错误类型:
Microsoft JET Database Engine (0x80040E07)
日期的语法错误 在查询表达式 'shijian>=#''# and shijian<=#''#' 中。
/10.21/rsearch.asp, 第 330 行

<%
Dim objConn,objRS
Set objConn = Server.CreateObject("Adodb.Connection") '创建数据库连接对象
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("zf_js_10.2sjk/#@&htba@#$!@2008.mdb")& ";" '连接数据库, db.mdb是数据库名
Set objRS = objConn.Execute("SELECT sum(htzj) FROM xinxi where shijian>=#'"&enabledate&"'# and shijian<=#'"&expiredate&"'#")
'number是要统计的字段名, table1是表名, sum()是求和
Response.Write objRS(0) '输出统计后的数字
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
谢谢回答!
用现在方法,在日期为空时,就提示错误,有什么好的方法让起始时间和结束时间都为空时,能查询全部数据库里的资料.谢谢!

<% dim xitongshijian
set rs=server.CreateObject("adodb.recordset")
xitongshijian=date()
%>

<% dim datesql,datesql1
if trim(request.QueryString("kaishi_shijian"))="" then
datesql = "1980-01-01" '根据自已的需要修改
else
datesql =""&kaishi_shijian&""
end if

if trim(request.QueryString("jieshu_shijian"))="" then
datesql1=""&xitongshijian&""
else
datesql1=""&jieshu_shijian&""
end if
Dim objConn,objRS
Set objConn = Server.CreateObject("Adodb.Connection") '创建数据库连接对象
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("zf_js_10.2sjk/#@&htba@#$!@2008.mdb")& ";" '连接数据库, db.mdb是数据库名
Set objRS = objConn.Execute("SELECT sum(htzj) FROM xinxi where shijian between #"&datesql&"# and #