www.gusucode.com > asp+SQLServer网上书店系统设计(源代码+论文) > asp+SQLServer网上书店系统设计(源代码+论文)\网上书店asp+SQLServer\网上书店\admin\del_manager.asp
<!--#include file="conn.asp"--> <% if session("admin")="" then Response.redirect "backlogin.asp?msg=对不起你还没有登录,请返回登录!" else name=session("admin") set rs=server.createobject("adodb.recordset") sqltext="select * from admin where name='"&name&"'" rs.open sqltext,cn,1,1 if rs("ad_level")>3 then Response.redirect "backlogin1.asp?msg=对不起你无权删除其他管理员!" end if rs.close end if %> <% dim SQL, Rs,ID,CurrentPage CurrentPage = request("Page") ID=request("ID") set rs=server.createobject("adodb.recordset") sqltext="delete from admin where ID="&ID rs.open sqltext,cn,3,3 set rs=nothing response.redirect "manager_check.asp?page="&CurrentPage %>