deladmin.asp

来自「该系统实现居域网网络考试和,系统平分轻松实现」· ASP 代码 · 共 20 行

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
dim key
key=request.querystring("key")
if key<>"" then
set rs=server.createobject("adodb.recordset")
cmd="select * from admin where username like '"&key&"'"
rs.open cmd,conn,1,3

rs.delete
rs.update
response.Write("<script>alert('删除成功');window.location.href('Manageadmin.asp')</script>")
else
response.Write("<script>alert('请选择管理员');window.location.href('Manageadmin.asp')</script>")
response.end
end if
%>