<%
function ShowTree(TableName,fid,pid)'''''TableName:数据表，pid:起始id ;
dim sql,rsp,rss
set rsp = server.CreateObject("adodb.recordset")
set rss = server.CreateObject("adodb.recordset")
dim p,s,temp,str,showstr
dim p_str,s_str
str="**"&pid&"**"
do
p_str = split(str,"**")
for p = 1 to ubound(p_str)/2
s_str = ""
sql = "select * from " & TableName & " where fid = " & fid & " and parentid = " & p_str(p*2-1) & " order by orders"
rsp.open sql,conn,1,1
for s = 1 to rsp.recordcount
select case s
case rsp.recordcount
temp = "childlast"
case else
temp = "child"
end select
showstr = " [ ![]()
| ![]()
| ![]()
]"
s_str = s_str & "| " & rsp("name") & showstr & " |
"
sql="select * from " & TableName & " where fid = " & fid & " and parentid = " & cstr(rsp(0)) & " order by orders"
rss.open sql,conn,1,1
if not rss.eof then
s_str = s_str & "|
"
end if
rss.close
rsp.movenext
next 's
rsp.close
p_str(p*2-1) = s_str
next 'p
str = ""
for p = 0 to ubound(p_str)
str = str & p_str(p)
next
loop while ubound(split(str,"**"))>=2
str = ""
response.write str
rsp.close
end function
function ShowSon(TableName,fid,pid)
dim sql,rss
set rss = server.CreateObject("adodb.recordset")
dim temp,str,i,j
temp = pid
do
sql = "select * from " & TableName & " where fid = " & fid & " and parentid in (" & temp & ") order by orders"
rss.open sql,conn,1,1
temp = ""
j = rss.recordcount
for i = 1 to rss.recordcount
temp = temp & "," & cstr(rss(0))
rss.movenext
next
str = str & temp
temp = mid(temp,2)
rss.close
loop while j<>0
'response.write pid & str
ShowSon = pid & str
end function
%>