delclass.asp

来自「功能简介： 前台: 1.用户名注册:登 录 名：密码：确认密码：性别：查」· ASP 代码 · 共 34 行

<!--#include file="inc/inc.asp"-->
<!--#include file="conn.asp"-->
<%
	dim id,typeid,sql,url
	id=trim(request("id"))
	
	
	set rs=server.createobject("adodb.recordset")
	sql="select * from class where fid="&id&""
	rs.open sql,conn,1,1
	
	if  not rs.eof then
		rs.close
		set rs=nothing
		response.write "<script>alert('该类别包含子类别不能删除');window.history.back();</script>"
		response.end
	else
		set rs=server.createobject("adodb.recordset")
	sql="select * from cl where classid="&id&""
	rs.open sql,conn,1,1
	
	if  not rs.eof then
		rs.close
		set rs=nothing
		response.write "<script>alert('该类别包含材料不能删除');window.history.back();</script>"
		response.end
	else
		sql="delete from class where id="&id
		url="addclass.asp"		
		conn.Execute(sql)
	response.write "<script>document.location.href='"&url&"';</script>"
	end if
	end if
%>