delartclass.asp

采用三级目录

<%
 if session("admin")="" then
  response.redirect "admin.asp"
  else
	if session("flag")>1 then
		response.write "<br><p align=center>您没有操作的权限</p>"
		response.end
	else

%>
<!--#include file="conn.asp"-->
<%

    dim rs,sql
    set rs=server.CreateObject ("ADODB.Recordset") 

rs.open "Select * from artclass where id="&request("id") ,conn,2,3  
no=rs("classid")
no1=rs("id")
no2=rs("bigclassid")
rs.delete  
rs.close
set rs=nothing
 if no2=0 and no=0 then
 set rs1=server.CreateObject ("ADODB.Recordset") 
 rs1.open "Select * from artclass where classid="& no1,conn,2,3
	if not rs1.eof then
	rs1.delete  
	rs1.movenext
	end if
 rs1.close
 rs1.open "Select * from artclass where bigclassid="& no1,conn,2,3
	if not rs1.eof then
	rs1.delete  
	rs1.movenext
	end if
 rs1.close
 set rs1=nothing
 elseif no2=0 and no>0 then
 set rs2=server.CreateObject ("ADODB.Recordset") 
 rs2.open "Select * from artclass where classid="&no1 ,conn,2,3
 	if not rs2.eof then
	rs2.delete  
	rs2.movenext
	end if
 rs2.close
 set rs2=nothing
 end if
Response.Write "<script>window.alert('文章类别删除成功！');window.location='classmana.asp';</script>"     
conn.close
set conn=nothing
end if
end if
%>