| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 456 人关注过本帖
标题:循环代码有问题,不能循环
只看楼主 加入收藏
meqoo
Rank: 1
等 级:新手上路
帖 子:37
专家分:0
注 册:2006-2-1
收藏
 问题点数:0 回复次数:5 
循环代码有问题,不能循环
<%
set rs=server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM menu"
rs.open sql,conn,1,1
while not rs.eof
Response.Write"OutBarFolder1=new Array(<BR>"
Response.Write"'"&rs("menuname")&"'<BR>"
set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM board where menuid='"&rs("menuid")&"'"
rs.open sql,conn,1,1
while not rs.eof
Response.Write"'"&rs("images")&"','"&rs("boardname")&"','"&rs("hrefurl")&"?boardname="&rs("boardname")&"&btype="&rs("btype")&"&fileshref="&rs("fileshref")&"','parent.frmright."&rs("win")&"',"&rs("size")&"<BR>"
rs.movenext
wend
rs.close()
Response.Write")"
rs.movenext
wend
rs.close()
%>
搜索更多相关主题的帖子: 代码 
2006-02-04 18:23
rainic
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2367
专家分:0
注 册:2005-8-9
收藏
得分:0 
<%
set rs=server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM menu"
rs.open sql,conn,1,1
while not rs.eof
Response.Write"OutBarFolder1=new Array(<BR>"
Response.Write"'"&rs("menuname")&"'<BR>"
set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM board where menuid='"&rs("menuid")&"'"
rs.open sql,conn,1,1
while not rs.eof
Response.Write"'"&rs("images")&"','"&rs("boardname")&"','"&rs("hrefurl")&"?boardname="&rs("boardname")&"&btype="&rs("btype")&"&fileshref="&rs("fileshref")&"','parent.frmright."&rs("win")&"',"&rs("size")&"<BR>"
rs.movenext
wend
rs.close()
Response.Write")"
rs.movenext
wend
rs.close()
%>

中间的rs应该改成别的名字,如:rs2

2006-02-04 18:43
meqoo
Rank: 1
等 级:新手上路
帖 子:37
专家分:0
注 册:2006-2-1
收藏
得分:0 
不行

错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/meqoo/admin/2.asp, 第 22 行


<%
set rs=server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM menu"
rs.open sql,conn,1,1
while not rs.eof
Response.Write"OutBarFolder1=new Array(<BR>"
Response.Write""&rs("menuname")&"<BR>"
set rs2=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM board where menuid='"&rs("menuid")&"'"
rs2.open sql,conn,1,1
while not rs2.eof
Response.Write"'"&rs2("images")&"','"&rs2("boardname")&"','"&rs2("hrefurl")&"?boardname="&rs2("boardname")&"&btype="&rs2("btype")&"&fileshref="&rs2("fileshref")&"','parent.frmright."&rs2("win")&"',"&rs2("size")&"<BR>"
rs2.movenext
wend
Response.Write")"
rs.movenext
wend
rs.close()
%>
表名和连接都是对的,分开单独就可以执行

2006-02-04 21:30
rainic
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2367
专家分:0
注 册:2005-8-9
收藏
得分:0 
set rs2=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM board where menuid='"&rs("menuid")&"'"
rs2.open sql,conn,1,1
while not rs2.eof
Response.Write"'"&rs2("images")&"','"&rs2("boardname")&"','"&rs2("hrefurl")&"?boardname="&rs2("boardname")&"&btype="&rs2("btype")&"&fileshref="&rs2("fileshref")&"','parent.frmright."&rs2("win")&"',"&rs2("size")&"<BR>"
rs2.movenext
wend
rs2.close
set rs2=nothing


是不是应该加上关闭对象

2006-02-04 21:54
meqoo
Rank: 1
等 级:新手上路
帖 子:37
专家分:0
注 册:2006-2-1
收藏
得分:0 
我找出来了
menuid='"&rs("menuid")&"'
改为
menuid="&rs("menuid")&"

2006-02-04 22:13
meqoo
Rank: 1
等 级:新手上路
帖 子:37
专家分:0
注 册:2006-2-1
收藏
得分:0 
谢谢你哦

2006-02-04 22:13
快速回复:循环代码有问题,不能循环
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032143 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved