<%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) 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 "
本版专题" Response.write "
返回本版"%> <%else%> 确定要删除该专题吗？
是的
取消 <%end if%>