关于论坛的一个小问题，我这个菜鸟等各位高手帮忙！！在线等！！

[zhangchuang0120]

我做了个论坛，有4个讨论区，每个讨论区下又有3个讨论版面，在删除每个讨论区的时候
应该把这个讨论区下的每个版面都要删除。
请问各位高手如何解决，我按自己的思路试了一下，但是后台数据库中，要删除的讨论区
到是没了，但是这个讨论区下的版面还存在？
我请求各位高手帮我解决一下，小弟感激不尽！！！

[patchclass]

简单的 可以做 数据库关联 保持完整性，自动会帮你删除的
自己动手就 删除的时候再多写几个delete

[wxq4100798]

当删除计论区时，根据其id,先用delele 删除其下的版面，然后，再删除讨论区本身

[zhangchuang0120]

谢谢两位朋友的回复，我的思路也是这样的，但是我这样做了，结果却是只删除了讨论区，没有删除该讨论区下的版面。代码如下：：请各位高手帮我看看哪里有错：：：


///////Board---版面，Area--讨论区，Article--版面下的文章，Reply--版面下的文章回复///////


rsBoard.open "select BoardName from Lily_Board where AreaID='"&session("AreaID")&"'",cn
do while not rsBoard.eof
rsArticle.open "select * from Lily_Article where BoardName='"&rsBoard("BoardName")&"'",cn
do while not rsArticle.eof
rsDelete.open "delete from Lily_Article where BoardName='"&rsBoard("BoardName")&"'",cn
rsArticle.movenext
loop
rsArticle.close
rsReply.open"select * from Lily_Reply where BoardName='"&rsBoard("BoardName")&"'",cn
do while not rsReply.eof
rsDelete.open "delete from Lily_Reply where BoardName='"&rsBoard("BoardName")&"'",cn
rsReply.movenext
loop
rsReply.close
rsBoard.movenext
loop
do while not rsBoard.eof
rsDelete.open "delete from Lily_Board where AreaID='"&session("AreaID")&"'",cn
rsBoard.movenext
loop
rsBoard.close
rsDelete.open "delete from Lily_Area where AreaID='"&session("AreaID")&"'",c

[zhangchuang0120]

谢谢两位朋友的回复，我的思路也是这样的，但是我这样做了，结果却是只删除了讨论区，没有删除该讨论区下的版面。代码如下：：请各位高手帮我看看哪里有错：：：


rsBoard.open "select BoardName from Lily_Board where AreaID='"&session("AreaID")&"'",cn
do while not rsBoard.eof
rsArticle.open "select * from Lily_Article where BoardName='"&rsBoard("BoardName")&"'",cn
do while not rsArticle.eof
rsDelete.open "delete from Lily_Article where BoardName='"&rsBoard("BoardName")&"'",cn
rsArticle.movenext
loop
rsArticle.close
rsReply.open"select * from Lily_Reply where BoardName='"&rsBoard("BoardName")&"'",cn
do while not rsReply.eof
rsDelete.open "delete from Lily_Reply where BoardName='"&rsBoard("BoardName")&"'",cn
rsReply.movenext
loop
rsReply.close
rsBoard.movenext
loop
do while not rsBoard.eof
rsDelete.open "delete from Lily_Board where AreaID='"&session("AreaID")&"'",cn
rsBoard.movenext
loop
rsBoard.close
rsDelete.open "delete from Lily_Area where AreaID='"&session("AreaID")&"'",c