无限分类菜单(紧急问题)
调用的一个函数
这个是显示页面
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
<!--#include file="fun.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>超级管理员管理</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<table width="770" border="0" align="center" cellspacing="1">
<tr>
<td width="141" valign="top"></td>
<td width="619" valign="top">
<table width="600" border="0" align="center" cellspacing="1" bgcolor="#CCCCCC" class="text">
<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select count(*) from deeptree where parentid = T.id"
sql="select *,("&sql&") as children from deeptree T where parentid=0"&" order by id"
rs.open sql,conn,1,1
do while not rs.eof
%>
<%
response.Write("<tr bgcolor=""#FF9900""><td width=""393"">"&rs("content")&"</td>")
response.Write("<td width=""200"" align=""center"">")
response.Write("<a href=""class_add.asp?id="&rs("id")&""">增加同类</a>|<a href=""#"">增加子类</a>|<a href=""#"">编辑</a>|<a href=""#"">删除</a>")
response.Write("</td></tr>")
if rs("children")>0 then
call showother(rs("id"),1)
end if
%>
<%
rs.movenext
loop
conn.close
set conn=nothing
%>
</table>
</td>
</tr>
</table>
</body>
</html>
'+++++++++++++++++++++++++++++++++++++++++++函数
function showother(someid,num)
dim a,b,aa
set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select count(*) from deeptree where parentid = T.id"
sql1="select *,("&sql1&") as children from deeptree T where parentid="&cint(someid)&" order by id"
rs1.Open sql1,conn,3,3
a=rs1.recordcount
for b=1 to a
if b=a then
aa="└"
else
aa="├"
end if
response.Write("<tr bgcolor=""#FFFFFF""><td width=""323"">"&replace(space(num-1),chr(32)," ")&aa&rs1("content"))
response.Write("</td><td align=""center"">")
response.Write("<a href=""#"">增加同类</a>|<a href=""#"">增加子类</a>|<a href=""#"">编辑</a>|<a href=""#"">删除</a>")
response.Write("</td></tr>")
if rs1("children")>0 then
call showother(cint(rs1("id")),cint(num)+1)
end if
next
rs1.close
end function
'大家帮忙啊
得到的结果是错误