您所在位置：主题：日期比较问题
zszsos
[专家分：10] 发布于 2007-05-09 13:33:00
<%
set rs=server.createobject("adodb.recordset")
sql="select nrtext from ddzl order by lrtime desc"
rs.open sql,conn,1
do while not rs.eof
if rs("lrtime")=Date() then
%>
<span class="STYLE4"><%=rs("nrtext")%></span>
<%
rs.movenext
loop
%>
<%else%>
今日没有信息
<%end if%>
<%
rs.close
set rs=nothing
%>
我想通过比较数据库里的日期和系统日期 如果时间相同就显示内容，如果不同就显示“今日没有信息”
但是出现这个错误：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 编译器错误 错误 '800a040e'
'loop' 语句缺少 'do'
/images/ldcx_ddzl_text1.asp，行42
loop
^
请问各位高手到底是哪里错了 我写的这段代码对不对 帮忙更正谢谢
set rs=server.createobject("adodb.recordset")
sql="select nrtext from ddzl order by lrtime desc"
rs.open sql,conn,1
do while not rs.eof
if rs("lrtime")=Date() then
%>
<span class="STYLE4"><%=rs("nrtext")%></span>
<%
rs.movenext
loop
%>
<%else%>
今日没有信息
<%end if%>
<%
rs.close
set rs=nothing
%>
我想通过比较数据库里的日期和系统日期 如果时间相同就显示内容，如果不同就显示“今日没有信息”
但是出现这个错误：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 编译器错误 错误 '800a040e'
'loop' 语句缺少 'do'
/images/ldcx_ddzl_text1.asp，行42
loop
^
请问各位高手到底是哪里错了 我写的这段代码对不对 帮忙更正谢谢
