delad.asp

网站的后台管理代码......内容比较全面....新手比较适合

<%
'====================================================================
'
'           中国企业平台后台管理系统  版权所有:中国企业平台
'
'                公司网址 http://www.cnept.net
'
'                        版权所有 翻版必究
'====================================================================
%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<% set rs=server.CreateObject("adodb.recordset") %>
<%
if session("admin_name")="" then 
response.end
end if%>
<% sql="select * from manager where id ="&request("id")
rs.open sql,conn,1,3
if rs("roleid")=0 then
Response.Write("超级管理员不能删除!!")
response.End
else
rs.delete
rs.update
response.Write "删除管理员成功!!"
	response.Write "<a href='admin_ad.asp'>"
	Response.Write "返回"
	Response.Write("</a>")
	end if
 %>