请教树形结构

woshisaohuo 2009-12-30 11:28:23
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
.emenu {
padding-left: 25px;
cursor: hand;
}
.submenu {
padding-left: 24px;
}
.files {
cursor: hand;
padding-left: 18px;
}
-->
</style></head>
<script language="javascript" type="text/javascript">
<!--
function tog(item){
obj=document.getElementById(item);
visible=(obj.style.display!="none");
key=document.getElementById("x" + item);
if (visible) {
obj.style.display="none";
key.innerHTML="+";
} else {
obj.style.display="block";
key.innerHTML="-";
}
}

function expall(item,yes){
obj=document.getElementById(item);
arr=obj.getElementsByTagName("UL");
for (i=0;i<arr.length;i++) {
key=document.getElementById("x" + arr[i].id);
if(yes){
arr[i].style.display="block";
key.innerHTML="-";
}else{
arr[i].style.display="none";
key.innerHTML="+";
}
}
}
//-->
</script>


<body>
<%
dim rs_b
dim rs_l
dim rs_m
dim rs_n
dim rs_q
dim sql_b
dim sql_l
dim sql_m
dim sql_n
dim sql_q
dim Conn
ConnStr="driver={sql server};server=127.0.0.1;database=diannao;uid=sa;pwd=111111"
set Conn=Server.CreateObject("adodb.connection")
Conn.Open ConnStr
Set rs=Server.CreateObject("ADODB.Recordset")

%>
<div id='tree_all'>
<a id='xtree' href="javascript:tog('tree');">+</a><span class="STYLE40">手机型号浏览</span>
<ul class='xtree' id='tree' style="display:none;">
<%
sql_b="select * from diannao"
Set rs_b=conn.EXECUTE(sql_b)
While Not rs_b.EOF

%>

<li ><a id='x<%=rs_b("产品型号")%>' href="javascript:tog('<%=rs_b("产品型号")%>');">+<a href="xiangxi.asp?产品型号=<%=rs_b("产品型号")%>" ><%=rs_b("产品型号")%></a>
<ul id='<%=rs_b("产品型号")%>' style="display:none;">
<%
sql_l="select * from dianchijian where 配件编号 like '%"&trim(rs_b("产品编号"))&"%'"
Set rs_l=conn.EXECUTE(sql_l)
While Not rs_l.EOF
%>

<li><a href="xiangxi1.asp?配件编号=<%=rs_b("产品编号")%> "><%=rs_l("配件型号")%></a></li>


<%
sql_m="select * from erjijian where 配件编号 like '%"&trim(rs_b("产品编号"))&"%'"
Set rs_m=conn.EXECUTE(sql_l)
While Not rs_m.EOF
%>
<li><a href="xiangxi2.asp?配件编号=<%=rs_b("产品编号")%> "><%=rs_l("配件型号")%></a></li>
<%
sql_n="select * from chongdianqi where 配件编号 like '%"&trim(rs_b("产品编号"))&"%'"
Set rs_n=conn.EXECUTE(sql_l)
While Not rs_n.EOF
%>
<li><a href="xiangxi3.asp?配件编号=<%=rs_b("产品编号")%> "><%=rs_l("配件型号")%></a></li>
<%
sql_q="select * from cunchuka where 配件编号 like '%"&trim(rs_b("产品编号"))&"%'"
Set rs_q=conn.EXECUTE(sql_l)
While Not rs_q.EOF
%>
<li><a href="xiangxi4.asp?配件编号=<%=rs_b("产品编号")%> "><%=rs_l("配件型号")%></a></li>

<%
rs_l.MoveNext
Wend
%>
</ul>
</li>
<%
rs_b.MoveNext
Wend
%>
</ul>
</div>
<%
rs_m.MoveNext
Wend
%>
</ul>
</li>
<%
rs_n.MoveNext
Wend
%>
</ul>
</li>
<%
rs_q.MoveNext
Wend
%>
</ul>
</li>
<p><a href="javascript:expall('tree_all',1);">打开所有分支</a>
-- <a href="javascript:expall('tree_all',0);">关闭所有分支</a></p>
</td>
</tr>
<%
rs_b.Close
rs_l.Close
conn.Close
%>
</table>
</form>
</body>
</html>
我的产品表和个零部件表中的编号是一样的，我现在做树形结构，但实现不了！错误：BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。谢谢！
...全文
85 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
波导终结者 2010-01-03
  • 打赏
  • 举报
 回复
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

这种错误一般是RecordSet里没记录，或者你没有movefirst，或者move到最后一条了还没停等等。你的代码太乱看不出来，你先检查一下有没有记录，然后游标是否有正确移动
Lovely_baby 2010-01-03
  • 打赏
  • 举报
 回复
asp 不知道~~
andrewsway 2010-01-02
  • 打赏
  • 举报
 回复
友情帮顶
tzs2304 2009-12-31
  • 打赏
  • 举报
 回复
up
wujinjian2008n 2009-12-31
  • 打赏
  • 举报
 回复
帮顶了！
silentwins 2009-12-31
  • 打赏
  • 举报
 回复
asp的

帮顶了！
woshisaohuo 2009-12-30
  • 打赏
  • 举报
 回复
现更改如下
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
.emenu {
padding-left: 25px;
cursor: hand;
}
.submenu {
padding-left: 24px;
}
.files {
cursor: hand;
padding-left: 18px;
}
-->
</style></head>
<script language="javascript" type="text/javascript">
<!--
function tog(item){
obj=document.getElementById(item);
visible=(obj.style.display!="none");
key=document.getElementById("x" + item);
if (visible) {
obj.style.display="none";
key.innerHTML="+";
} else {
obj.style.display="block";
key.innerHTML="-";
}
}

function expall(item,yes){
obj=document.getElementById(item);
arr=obj.getElementsByTagName("UL");
for (i=0;i<arr.length;i++) {
key=document.getElementById("x" + arr[i].id);
if(yes){
arr[i].style.display="block";
key.innerHTML="-";
}else{
arr[i].style.display="none";
key.innerHTML="+";
}
}
}
//-->
</script>


<body>
<%
dim rs_b
dim rs_l
dim rs_m
dim rs_n
dim rs_q
dim sql_b
dim sql_l
dim sql_m
dim sql_n
dim sql_q
dim Conn
ConnStr="driver={sql server};server=127.0.0.1;database=diannao;uid=sa;pwd=111111"
set Conn=Server.CreateObject("adodb.connection")
Conn.Open ConnStr
Set rs=Server.CreateObject("ADODB.Recordset")

%>
<div id='tree_all'>
<a id='xtree' href="javascript:tog('tree');">+</a><span class="STYLE40">手机型号浏览</span>
<ul class='xtree' id='tree' style="display:none;">
<%
sql_b="select * from diannao"
Set rs_b=conn.EXECUTE(sql_b)
While Not rs_b.EOF

%>

<li ><a id='x<%=rs_b("产品型号")%>' href="javascript:tog('<%=rs_b("产品型号")%>');">+<a href="xiangxi.asp?产品型号=<%=rs_b("产品型号")%>" ><%=rs_b("产品型号")%></a>
<ul id='<%=rs_b("产品型号")%>' style="display:none;">
<%
sql_l="select * from dianchijian where 配件编号 like '%"&trim(rs_b("产品编号"))&"%'"
Set rs_l=conn.EXECUTE(sql_l)
While Not rs_l.EOF
%>
<li><a href="xiangxi1.asp?配件编号=<%=rs_l("配件编号")%> "><%=rs_l("配件型号")%></a></li>
<%
sql_m="select * from erjijian where 配件编号 like '%"&trim(rs_l("配件编号"))&"%'"
Set rs_m=conn.EXECUTE(sql_m)
While Not rs_m.EOF
%>
<li><a href="xiangxi2.asp?配件编号=<%=rs_m("配件编号")%> "><%=rs_m("配件型号")%></a></li>
<%
sql_n="select * from chongdianqi where 配件编号 like '%"&trim(rs_m("配件编号"))&"%'"
Set rs_n=conn.EXECUTE(sql_n)
While Not rs_n.EOF
%>
<li><a href="xiangxi3.asp?配件编号=<%=rs_n("配件编号")%> "><%=rs_n("配件型号")%></a></li>
<%
sql_q="select * from cunchuka where 配件编号 like '%"&trim(rs_n("配件编号"))&"%'"
Set rs_q=conn.EXECUTE(sql_q)
While Not rs_q.EOF
%>
<li><a href="xiangxi4.asp?配件编号=<%=rs_q("配件编号")%> "><%=rs_q("配件型号")%></a></li>

<%
rs_q.MoveNext
Wend
%>
</ul>
</li>
<%
rs_n.MoveNext
Wend
%>
</ul>
</div>
<%
rs_m.MoveNext
Wend
%>
</ul>
</li>
<%
rs_l.MoveNext
Wend
%>
</ul>
</li>
<%
rs_b.MoveNext
Wend
%>
</ul>
</li>
<p><a href="javascript:expall('tree_all',1);">打开所有分支</a>
-- <a href="javascript:expall('tree_all',0);">关闭所有分支</a></p>
</td>
</tr>
<%
rs_b.Close
rs_l.Close
rs_m.Close
rs_n.Close
rs_q.Close
conn.Close
%>
</table>
</form>
</body>
</html>
但是xiangxi1.asp打不开，大家看看什么错误吧
南京邮电大学811数据结构考研模拟试卷二及参考答案
2. **树形结构**：包括二叉树、平衡树（如AVL树、红黑树）、堆（最大堆、最小堆）。理解这些结构的性质，如高度、平衡因子，以及它们的操作，如插入、删除、查找。二叉搜索树在查找和排序中有重要作用，而堆常用于...
数据结构习题（二叉树子系统）
二叉树是一种特殊的树形数据结构，每个节点最多有两个子节点，通常分为左子节点和右子节点。 二叉树的主要操作包括插入、删除、查找以及遍历。在`MAIN.C`文件中，很可能包含了这些操作的实现。在C语言中，我们通常...
web项目实习总结.docx
此外，良好的网页设计还需要考虑到不同页面间的链接关系，构建出星形、树形或网形的链接结构，以便用户能够顺畅地浏览网站。 6. **网页优化**：内容是网页的核心，因此在设计时要对内容进行合理的安排和优化。此外...
LABVIEW树形结构实例
LABVIEW树形结构实例 去发现同类优质开源项目:https://gitcode.com/ 简介 本仓库提供的资源文件是一个LABVIEW树形结构实例，旨在帮助刚接触LABVIEW编程的学习者更好地理解和掌握LABVIEW编程的基本概念。 使用说明 此...
java递归构建树形结构SQL查询，可通用
最近做项目要查出所有的产品类型，并且按照一级二姐三级目录的形式以json字符串的形式返回给前端，上网搜了不少，有在数据库中直接查询的，数据库中有树形查询的方法格式，在此不多做介绍，如果数据量过大，可能导致...
.NET社区

62,254

社区成员

668,982

社区内容

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见，支持健康理性的辩论和互动，反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧

+ 用AI写文章