asp动态树型目录问题...高手请进啊

[xingxq]

主要是用来显示二级产品目录的功能的。。。
在网上下载了个javascript源码 (国外的tree目录)
http://www.destroydrop.com/javascripts/tree/default.html

然后自己写了一段代码掉用，调试结果显示“stack overflow !!!!”:

<%
dim conn
dim connstr
dim db
db="../All#Data.mdb" '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

sub CloseConn()
conn.close
set conn=nothing
end sub
%>

<!--调用树形目录 javascript -->
<link rel="StyleSheet" href="dtree.css" type="text/css" />
<script type="text/javascript" src="dtree.js"></script>

<script type="text/javascript">
<!--
d = new dTree('d');
d.add(0,-1,'My example tree');
//-->
</script>


<!--一级目录循环,"产品分类" -->

<%

dim rs1,i
i=1
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from class order by taxis",conn,1,1
do while not rs1.eof
%>

<script type="text/javascript">

d.add(<%=i%>,0,'<%= rs1("ClassName") %>','example01.html');


</script>



<!--二级目录循环 "产品名称 " -->


<%
dim tclass,j
j=i

tclass=rs1("classid")
dim rs2
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from product where classid="&tclass,conn,1,1
do while not rs2.eof
%>



<script type="text/javascript">


d.add(<%=j%>,<%=i%>,'<%= Rs2("ProductName") %>','example01.html');


</script>


<%
j=j+1
rs2.MoveNext
loop
rs2.close
et rs2=nothing
%>

<!--二级目录循环 结束 -->




<%
i=i+1
rs1.MoveNext
loop
rs1.close
set rs1=nothing

%>

<!--一级目录循环结束 -->



<!--输出树形菜单 -->

<script type="text/javascript">
<!--
document.write(d);
//-->
</script>

[jspadmin]

还不如直接用梅花雪的菜单，csdn就是用的他那个

[tigerwen01]

stack overflow 是堆栈溢出错误，查看一下哪个循环语句出问题或变量类型溢出。

[deallylau]

也在研究这个,梅花雪的那个我也看了,还是有很多地方不明白,太笨了,不好意思,有哪位高手GG指点下!