利用ACCESS创建数据库listBase.mdb:
数据表:listTable
数据字段:listId listName listInfo parentId 连接方法:
<%
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("
" & chr(13) & "
| |||||
| " & chr(13)) ''此处调用显示目录树的递归函数 listChild(0) response.write(" |