使用DW用ASP+ACCESS编写目录树

利用ACCESS创建数据库listBase.mdb: 数据表：listTable 数据字段：listIdlistNamelistInfoparentId 连接方法： % dimsConn,sConnStr,sSql sConnStr="DRIVER={MicrosoftAccessDriver(*.mdb)};dbq="server.mappath("listBase.mdb") setsConn=server.createobjec

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

数据表：listTable

数据字段：listIdlistNamelistInfoparentId 连接方法：


dimsConn,sConnStr,sSql

sConnStr="DRIVER={MicrosoftAccessDriver(*.mdb)};dbq="&server.mappath("listBase.mdb")

setsConn=server.createobject("adodb.connection")

sConn.opensConnStr

%>

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








response.write("" & chr(13))

response.write("" & chr(13)&"" & chr(13))

response.write("" & chr(13) & "" & chr(13) & "" & chr(13) & "

" & chr(13) & "") response.write("" & chr(13) & "" & chr(13)) response.write(" response.write(" response.write("

" & 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("" & 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("" & chr(13) & " if sNum=sRec.recordcount then response.write(" response.write("") 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(" response.write(" response.write(" ") response.write(" " & chr(13)) listChild(sRec("listid")) response.write(" " & chr(13) & "" & chr(13)) response.write("" & chr(13) & "" & chr(13) & " " & server.HTMLEncode(sRec("listName")) & " response.write(" end if sRec.movenext sNum=sNum+1 wend response.write(" " & chr(13)) end if sRec.close '关闭记录集 set sRec=nothing '关闭记录集 end function sConn.close '关闭数据库链接 set sConn=nothing '关闭数据库链接 %> 下面这是调用页代码，保存成index.asp