<!--#include file="../Inc.asp"-->
<!--#include file="../ydzq.asp"-->
<%call head()
call saycardd("删除菜单")
dim id,TP
id=request("id")
TP=request("TP")
if id="" or Isnumeric(id)=False then
  Call Error("ID无效！")
end if
IF TP<>"" then
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from ydbbs where id="&id,conn,1,2
if rs.eof then
  Call Error("不存在的记录！")
end if
rs.delete
rs.update
rs.close
set rs=nothing
  conn.Execute("delete from ydbbs Where prentid=" & id)
  conn.Execute("delete from sell Where bbsid=" & id)

Response.write "删除成功<br/>"
Response.write "----------<br/>"

response.write"<a href=""adminbbs.asp?sid="&sid&"&amp;saytk="&saytk&""">[版块管理]</a><br/>"

else
Response.write "您确认要删除该项目？删除页面和论坛都会删除直接删除贴子和下级菜单<br/>"
Response.write "<a href=""adminbbsdel.asp?id="&id&"&amp;TP=1&amp;sid="&sid&"&amp;saytk="&saytk&""">是的</a><br/>"
Response.write "<anchor>取消<prev/></anchor>"
end if
conn.close
set conn=Nothing
%><%response.write""
call headsay()%>
