<% 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 "删除成功
" Response.write "----------
" response.write"[版块管理]
" else Response.write "您确认要删除该项目？删除页面和论坛都会删除直接删除贴子和下级菜单
" Response.write "是的
" Response.write "取消" end if conn.close set conn=Nothing response.write"