第一个表：xing_new_class

xing_new_class_id	一级分类名称
1	名称

第二个表：xing_new_list

xing_new_list_id	xing_new_class_id	二级分类名称
1	1	二级名称
2	1	二级名称

<% if request.Form("id")="" then founderr=true Response.Write("你必须指定操作的对象！") else if not isInteger(request.form("id")) then founderr=true Response.Write("非法的分类id参数。'") end if end if if founderr then call diserror() response.End end if sql="select * from [xing_new_class] where xing_new_class_id="&cint(request.form("id")) set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 rs.delete rs.close sql="select * from [xing_new_list] where xing_new_class_id="&cint(request.form("id")) set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 rs.delete rs.close set rs=nothing response.redirect "?xing=newclass" %> 我用这样只能删除第二个表的一个记录！请问怎么实现删除第二个表的相对应N个记录了。。

这样第二个表连一个也删不了！ 我想现实删除第一个表的 I ID 第二个表的 xing_new_class_id 里全部部删除啊

xing_new_list_id	xing_new_class_id	二级分类名称
1	1	二级名称
2	1	二级名称

这样也不行~~第二个表连一个记录也没删~~~

搞好了~~~不知道这样科学吗？


xing_new_class_id=cint(request.querystring("id"))
if request.Form("id")="" then
founderr=true
Response.Write("&lt;script language=javascript&gt;alert('你必须指定操作的对象！');history.back(1);&lt;/script&gt;")
else
if not isInteger(request.form("id")) then
founderr=true
Response.Write("&lt;script language=javascript&gt;alert('非法的分类id参数。');history.back(1);&lt;/script&gt;")
end if
end if
if founderr then
call diserror()
response.End
end if
sql="select * from [xing_new_class] where xing_new_class_id="&amp;cint(request.form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.delete
rs.close
conn.execute("delete from [xing_new_list] where xing_new_class_id in ("&amp;xing_new_class_id&amp;")")
set rs=nothing
response.redirect "?xing=newclass"