用AJAX实现目录树，菜鸟也能学会(asp)

response.Write("<b>")
response.Write(rs("c_Name"))
if rs("c_childnum")>0 then response.Write("("&rs("c_childnum")&")")
response.Write("</b>")
response.Write("<br>")
if rs("c_childnum")>0 then
response.Write("<div id='c"&rs("c_Id")&"' style='display:none;'></div>")
end if

说明：上面这个IF也是判断目录是否有子目录，如果有则创建一个层，并给此层赋一个ID，类似C1，C2，C3……，层在开始时隐藏。

rs.movenext
loop
rs.close
set rs=nothing
conn.close
Set conn = Nothing
%>

页面二：columnAdmin.asp

<%
Response.ContentType = "text/html"
Response.Charset = "GB2312" '解决乱码问题

Dim id,child
id=Request.Form("id")
if id="" then response.end()

'连接数据库
dim conn,connstr,db
db="/websys/okajax/database/tree.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

'显示子目录
sql="select * from t_column where c_parentid="&id
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
if rs("c_depth")>0 then
for i=1 to rs("c_depth")
child=child&"  "
next
end if
if rs("c_childnum")>0 then
child=child&"<img id='p"&rs("c_Id")&"' src=""images/closed.gif"" width=""30"" height=""15"" onclick=""DivDisplay('c"&rs("c_Id")&"','"&rs("c_Id")&"','p"&rs("c_Id")&"')"" style=""cursor : hand;"" align=""absmiddle"">"
else
child=child&"<img src=""images/nofollow2.gif"" width=""30"" height=""15"" align=""absmiddle"" >"
end if
child=child&rs("c_Name")
if rs("c_childnum")>0 then child=child&"("&rs("c_childnum")&")"
child=child&"<br>"
if rs("c_childnum")>0 then
child=child&"<div id='c"&rs("c_Id")&"' style='display:none;'></div>"
end if
rs.movenext
loop
rs.close
set rs=nothing
conn.close
Set conn = Nothing

Response.Write (child)
Response.End
%>

说明：以上是处理页的ASP代码，相信有前面showChild.asp的说明，大家很容易看明白这些代码，基本是一样的。

这就是全部了，是不是很简单的就实现了目录树。

以上代码在IE 6.0和FireFox 2.0.0.3上测试通过。最后说明一下，本人只是一个普通的WEB程序员，对AJAX也是刚刚学不久，写这篇文章也只是想给有需要的朋友一些帮助。如果有什么错漏请大家指正。


	Copyright 2006-2007 xhit.cn All Rights Reserved 有什么建议或意见请发信到admin@xhit.cn 皖ICP备07007336