<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->

<%
call head()
Call saycarda("删除专题")


dim id,idd,TP
 bbsid=request.querystring("bbsid")
 id=request.querystring("id")
 Action=request("Action")
   if id="" or Isnumeric(id)=False then
  Call Error("ID无效！")
  end if
 
  if bbsid="" or Isnumeric(bbsid)=False then
  Call Error("ID无效！")
  end if
if keys=1 or skey=abs(bbsid) or keys=2 then
else
Call Error("权限不足!")
End if
  
   if Action<>"" then
   dim rs,sql
    set rs=server.createobject("adodb.recordset")
  rs.open" select * from bbszt where bbsid="&bbsid&" and ID="&ID,conn,1,2
if rs.eof then
response.write("不存在的记录！")
else
rs.delete 
rs.update  
Response.Write "专题删除成功!"   
end if  
rs.close
set rs=nothing  
conn.close
set conn=nothing  
Response.write "<br/><a href=""bbszt.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">本版专题</a>"
Response.write "<br/><a href=""board.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">返回本版</a>"%>
<%else%>
确定要删除该专题吗？<br/>
<a href='ztdel.asp?sid=<%=sid%>&saytk=<%=saytk%>&amp;id=<%=id%>&amp;bbsid=<%=bbsid%>&amp;Action=ok'>是的</a><br/>
<a href='bbszt.asp?sid=<%=sid%>&saytk=<%=saytk%>&amp;bbsid=<%=bbsid%>'>取消</a>
<%end If
Call headsay()%>
