admin_do.asp

考勤评分系统 功能发布： 1、管理员权限

<!--
菜菜考勤评分系统V1.0
www.pcicai.cn
[e-mail]
还望多指教！
菜菜网CMSV1.0发布正在筹备中，请关注 www.pcicai.cn
小飞@蝙蝠 QQ 285305740
-->  
<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="MD5.asp"-->
<link href=../css.css rel=stylesheet>

<%
if request("action")="addadmin" then 
sql="select * from adminboss"
rs.open sql,cn,3,3
if  rs.eof  and rs.bof  then

response.write "账号已经存在，请<a href='javascript:history.back()'>返回</a>重输"
else
rs.addnew
rs("username")=request.form("zh")
rs("password")=MD5(request.form("mm"))
rs("qx")=request.form("qx")
rs("jl")=request.form("back")
rs.update
rs.close
set rs=nothing
response.write "操作成功::<a href='javascript:history.back()'>返回</a>"


end if
end if
if request("action")="xiugai" then 
mm=request("mm")
sql="select * from adminboss where username='"&request("zh")&"'"
rs.open sql,cn,3,3

rs("password")=MD5(request("mm"))

rs.update
rs.close
response.write "更新个人信息成功！::<a href='javascript:history.back()'>返回</a>"
end if

if request("action")="adminxiugai" then 
if request("mm")<>request("mm1") then mm=MD5(trim(replace(request("mm"),",","")))
if request("mm")=request("mm1") then mm=request("mm1")
sql="select * from adminboss where username='"&request("zh")&"'"
rs.open sql,cn,3,3
 
rs("name")=request("zh")
rs("password")=mm
rs("jl")=request("beizhu")
rs("qx")=request("qx")
rs.update
rs.close
response.write "更新管理员信息成功！::<a href='javascript:history.back()'>返回</a>"
 
end if
if request("action")="admindel" then 
pid=request("id")

sql="delete from adminboss where id="&pid
cn.Execute sql



cn.close
response.write "删除<font color=red>"&request("name")&"</font>成功！::<a href='javascript:history.back()'>返回</a>"

end if
%>