UC知道ASP程序循环中日期的递增处理
来源：百度知道 编辑：UC知道 时间：2024/05/15 23:33:51
源代码如下:(但调试用问题)
<%
dim rq,ye
dim exec11,exec12
rq=trim(request.form("zfst"))
ye=0
do while rq<=zfend
exec11="select * from shouru_db where 日期=datevalue('"+rq+"')"
set conn=server.createobject("adodb.connection")
conn.open "zjgl_data"
set rs11=conn.execute(exec11)
exec12="select * from zhichu_db where 日期=datevalue('"+rq+"')"
set conn=server.createobject("adodb.connection")
conn.open "zjgl_data"
set rs12=conn.execute(exec12)
%>
.
.
.
.
<%
rq=formatdatetime((cdate(rq)+1))
loop
%>
<%
dim rq,ye
dim exec11,exec12
rq=trim(request.form("zfst"))
ye=0
do while rq<=zfend
exec11="select * from shouru_db where 日期=datevalue('"+rq+"')"
set conn=server.createobject("adodb.connection")
conn.open "zjgl_data"
set rs11=conn.execute(exec11)
exec12="select * from zhichu_db where 日期=datevalue('"+rq+"')"
set conn=server.createobject("adodb.connection")
conn.open "zjgl_data"
set rs12=conn.execute(exec12)
%>
.
.
.
.
<%
rq=formatdatetime((cdate(rq)+1))
loop
%>
尝试修改以下两个方面：
1、若是数据库中“日期”字段属性为日期格式，那么sql语句用应该用
exec="...where 日期=#"& rq &"#"
2、递增日期应该使用：
rq=DateAdd("d",1,rq)