看看这段vbscript程序有什么毛病?

vovo2000 2004-06-27 10:40:35
<%
set rs = server.createobject("adodb.recordset")
rs.open "select * from board",conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if rs.bof and rs.eof then
rs.close
response.write "没有类别"
response.end
else
do while not rs.eof
%>
cmsNba23.addmenu("<%=rs("boardname")%>","showallnews.asp?boardid=<%=rs("boardid")%>",1);
cmsNba23.childStart(0);
<%
set rs2=server.createobject("adodb.recordset")
sql="select * from type where boardid=" & rs("boardid") & " order by typelevel"
rs2.open sql,conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if not rs2.bof and not rs2.eof then
do while not rs2.eof
%>
cmsNba23.addmenu("<%=rs2("name")%>","showallnews.asp?id=<%=rs2("id")%>",);
<%
rs2.movenext
loop
rs2.close
set rs2=nothing
end if
%>
cmsNba23.childEnd();
<%
rs.movenext
n=n+1
loop //这就是155 line
rs.close
set rs=nothing
end if
%>
====================================================================
技术信息(用于支持人员)

错误类型:
Microsoft VBScript 编译器错误 (0x800A040E)
'loop' 语句缺少 'do'
/test/kcnew/admin/news/index2.asp, line 155
loop
浏览器类型:
……
====================================
明明有do 为什么 说没有呢 错在什么地方了。
以上vbscript 是和javascript 混合的,他们混合需要注意什么问题啊
请同仁帮帮忙。

...全文
67 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
vovo2000 2004-06-27
谢谢各位大哥
小弟在此谢过!
回复
wsdzmhongm 2004-06-27
<%
set rs = server.createobject("adodb.recordset")
rs.open "select * from board",conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if rs.bof and rs.eof then
rs.close
response.write "没有类别"
response.end
else
do while not rs.eof
%>
cmsNba23.addmenu("<%=rs("boardname")%>","showallnews.asp?boardid=<%=rs("boardid")%>",1);
cmsNba23.childStart(0);
<%
set rs2=server.createobject("adodb.recordset")
sql="select * from type where boardid=" & rs("boardid") & " order by typelevel"
rs2.open sql,conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if not rs2.bof and not rs2.eof then
do while not rs2.eof
%>
cmsNba23.addmenu("<%=rs2("name")%>","showallnews.asp?id=<%=rs2("id")%>",);
<%
rs2.movenext
loop
rs2.close
set rs2=nothing
end if
'*******
end if
%>
cmsNba23.childEnd();
<%
rs.movenext
n=n+1
loop //这就是155 line
rs.close
set rs=nothing
end if

'********
end if
%>
回复
wsdzmhongm 2004-06-27

好好检查一下代码
少二个 end if
回复
liberationxin 2004-06-27
有4个if 却只有 2个 end if
个数不同 真正的错误应该是 if 缺少 end if
回复
fashchina 2004-06-27
代码好乱!
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-06-27 10:40
社区公告
暂无公告