ASP和Access结合编写目录树的程序实例

利用Access创建数据库listBase.mdb:

数据表：listTable

数据字段：listIdlistNamelistInfoparentId

连接方法：

<%
dim sConn,sConnStr,sSql
sConnStr="DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("listBase.mdb")
set sConn=server.createobject("adodb.connection")
sConn.open sConnStr
%>

把以上代码保存成文件：initialize.asp

下面这段程序代码是用来显示目录树用的，保存成文件：inc.asp

<%
response.write("

cellspacing='0' cellpadding='0'>" & chr(13))
response.write("" & chr(13)&""
& chr(13))
response.write("" & chr(13) &
"" & chr(13) & "" & chr(13)
& "

" & chr(13) & "") response.write("" & chr(13) & "" & chr(13) & "" & chr(13)) response.write("" & chr(13)) response.write("" & chr(13)) response.write(" style=cursor:hand alt=不可修改 /> 根节点  style='cursor:hand' onclick=""jscript:showForm('add',0)""> 添加

" & chr(13)) '此处调用显示目录树的递归函数 listChild(0) response.write("

" & chr(13))
'下面代码为显示目录树最关键的函数，使用了递归方法
（很多象这样类型的都是用递归来做的。）
function listChild(id)
dim sRec,sSql,sNum,sTmp
set sRec=server.createobject("adodb.recordset")
sSql="select listId,listName,listInfo,parentId from
listTable where parentId=" & id
sRec.open sSql,sConn,3,1
if not sRec.eof then
sNum=1
response.write("

cellspacing='0' cellpadding='0'>" & chr(13))
while not sRec.eof
sTmp=sConn.execute("select count(listId) as
countSub from listTable where parentId=" & sRec("listId"))
if sTmp("countSub")>0 then
response.write("

" & chr(13))
if sNum=sRec.recordcount then
response.write("" & chr(13))
else
response.write("" & chr(13))
end if
response.write(""
& chr(13) & "" & chr(13))
response.write("")
if sNum=sRec.recordcount then
response.write("" & chr(13))
else
response.write("" & chr(13))
end if
response.write("" & chr(13) & "" & chr(13))
else
response.write("" & chr(13))
if sNum=sRec.recordcount then
response.write("" & chr(13))
else
response.write("" & chr(13))
end if
response.write("" & chr(13) & "" & chr(13))
end if
sRec.movenext
sNum=sNum+1
wend
response.write("

	background='images/eline.gif' valign='top'>	" & chr(13) & " cellspacing='0' cellpadding='0'>" & chr(13)) response.write("" & chr(13) & "" & chr(13) & "" & chr(13)) response.write(""  & chr(13) & "" & chr(13) & ""  & chr(13) & " & sRec("listId") & " style=cursor:hand values="images/close" align=absMiddle  onclick=jscript:showMenu(subMenu" & sRec("listId") & ",1) alt=" & sRec("listInfo") & " />" & server.HTMLEncode(sRec("listName")) &  "  class='menuFont'>  style='cursor:hand' onclick="" jscript:showForm('add'," & sRec("listId") & ")""> 添加 onclick=""jscript:showForm('edit'," & sRec("listId") & ")"">编辑 onclick=""jscript:window.location='disp.asp?disp=del&parentId= " & sRec("listId") & "'"">删除   " & chr(13) & "
response.write("") response.write("	background='images/eline.gif'>") response.write("	" & chr(13)) listChild(sRec("listid")) response.write("
		" & chr(13) & " width='100%' border='0' cellspacing='0' cellpadding='0'>" & chr(13)) response.write("" & chr(13) & "" & chr(13) & "" & chr(13)) response.write("" & chr(13) & "" & chr(13) & "" & chr(13) & " class='menuPro' id='listName" & sRec("listId") & "'> "  & server.HTMLEncode(sRec("listName")) & " jscript:showForm('add'," & sRec("listId") & ")""> 添加 jscript:showForm('edit'," & sRec("listId") & ")""> 编辑  onclick="" jscript:window.location='disp.asp?disp=del&parentId="  & sRec("listId") & "'"">删除   " & chr(13) & "

" & chr(13))
end if
sRec.close '关闭记录集
set sRec=nothing '关闭记录集
end function
sConn.close '关闭数据库链接
set sConn=nothing '关闭数据库链接
%>

朋友若要转载，采集本站内容,请注明出自www.chinavik.com-中国微(微机）客网(搜集整理不容易）