admin_ok.asp

一个功能强大的搜索系统

<!--#include file="../setup.asp"-->
<!--#include file="login_admin.asp"-->
<%
'================================================================================
'Product:K-Search Version 2.1
'本“软件产品”受《中华人民共和国著作权法》和《中华人民共和国计算机软件保护条例》 
'和国际条约的保护。如未经授权而擅自复制或传播本程序（或其中任何部分），将受到严厉
'的刑事及民事制裁，并将在法律许可的范围内受到最大可能的起诉！
'Homepage：http://www.lucoo.com/
'--------------------------------------------------------------------------------
'Copyright(c) 2005 lucoo.com All Rights Reserved 绿色互联 版权所有
'================================================================================
if session("rank")<>1 then
response.write "<Script>window.alert('您的管理员级别不能操作！');history.go(-1);</Script>"
response.end
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
select case request("action")
case "add"
call add()

case "edit"
call edit()

case "del"
call delete()
end select


sub add()
dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select * from admin where id is null",conn,1,3
rs.addnew
rs("username")=request.form("username")
rs("password")=md5(request.form("password"))
rs("rank")=request.form("rank")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<Script>window.alert('管理员添加成功');location.replace('admin_manage.asp');</Script>"
end sub


sub edit()
dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select * from admin where id="&request.form("id"),conn,1,3
rs("username")=request.form("username")
rs("password")=md5(request.form("password"))
rs("rank")=request.form("rank")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<Script>window.alert('管理员修改成功');location.replace('admin_manage.asp');</Script>"
end sub


sub delete()
conn.execute"delete from admin where id="&Request.QueryString("id")
conn.close
set conn=nothing
response.write "<Script>window.alert('管理员删除成功');location.replace('admin_manage.asp');</Script>"
end sub
%>