admin_do.asp

后台超级账号密码admin/admin

<!--''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创                    ''''
''''联系：[e-mail]          ''''
''''说明：需要新功能联系我      ''''
''''QQ:214297587                    ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
-->
<!--#include file="check.asp"-->
<!--#include file="conn.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")=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")=request("mm")

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

if request("action")="adminxiugai" then 
mm=request("mm")
sql="select * from adminboss where username='"&request("zh")&"'"
rs.open sql,cn,3,3
 
rs("name")=request("zh")
rs("password")=trim(replace(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
%>