连接方法:
把以上代码保存成文件:initialize.asp
下面这段程序代码是用来显示目录树用的,保存成文件:inc.asp & chr(13))response.write("" & chr(13) & " & chr(13))'此处调用显示目录树的递归函数listChild(0)response.write("" & chr(13) & " & chr(13) & " & chr(13))
'下面代码为显示目录树最关键的函数,使用了递归方法(很多象这样类型的都是用递归来做的。)function listChild(id)dim sRec,sSql,sNum,sTmpset sRec=server.createobject("adodb.recordset")sSql="select listId,listName,listInfo,parentId from listTable where parentId=" & idsRec.open sSql,sConn,3,1if not sRec.eof thensNum=1response.write("" & chr(13) & " & chr(13) & " & chr(13))response.write("")if sNum=sRec.recordcount thenresponse.write("