错误的 'Next'
<%Dim dd
Dim week
Dim date1: date1= Date()
Dim date0: date0 = "2015-3-2"
dd = DateDiff("d",date0,date1)
response.write "今天是:"&date1&"<br>"
if dd mod 7 = 0 then
week = cint(dd/7)
else
week = cint(dd/7)+1
end if
response.write "本周是第 "&week&" 周"
%>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from zl where week like '%"&week&"%'",conn,1,1
if rs.eof then
response.write "暂无记录！"
response.end
end if
%>
<%
rs.MoveNext
next
%>
提示为：错误的 'Next'
请大家帮忙看看。谢谢
