<% if session("admin")="" then conn.close set conn = nothing response.Write "" response.End end if if request.form("action") = "save" then if session("rank")>2 then conn.close set conn = nothing response.Write "" response.End end if set rs=server.CreateObject("adodb.recordset") rs.Open "select * from admin where admin='"&session("admin")&"'",conn,1,3 if md5(trim(request.form("UserPassword")))<>rs("UserPassword") then response.Write "" response.End else rs("UserPassword")=md5(trim(request.form("UserPassword2"))) rs.Update response.write "" response.End end if end if if request("action")="add" then set rs=server.CreateObject("adodb.recordset") rs.open "select * from admin",conn,1,3 rs.addnew rs("admin")=trim(request("username")) rs("userpassword")=md5(trim(request.form("password"))) rs("flag")=request("flag") rs.update rs.close set rs=nothing response.Redirect("manage.asp") response.End elseif request("action")="del" then conn.execute("delete from admin where id="&request("id")) response.Redirect("manage.asp") elseif request("action")="modify" then if request("password")="" then conn.execute("update admin set admin='"&request("username")&"',flag='"&request("flag")&"' where id="&request("id")) else conn.execute("update admin set admin='"&request("username")&"',flag='"&request("flag")&"',UserPassword='"&md5(request("password"))&"' where id="&request("id")) end if response.redirect("manage.asp") end if call flagstr("常规管理","../error.htm") %>

管理员信息　添加管理员
管理员帐号：	<%=session("admin")%>
帐号旧密码：	*
请输入密码：	*
确认新密码：	*

<% set rs=Conn.execute("select * from admin order by id") do while not rs.eof %> <%rs.movenext loop rs.close set rs=nothing %>

管理员管理列表
用户名	管理权限	操作
<%=rs("admin")%>	<%=rs("flag")%>	修改 ｜删除

<% if request("id")="" then%>

栏目管理员添加
管理员帐号：		管理栏目权限设置: 常规管理 文章管理 产品管理 案例管理 会员管理 团购管理
帐号　密码：	*

<%else set rs2=conn.execute("select * from admin where id="&request("id")) if not rs2.eof then username=rs2("admin") id=rs2(0) flag=rs2("flag") end if %>

栏目管理员修改
管理员帐号：		管理栏目权限设置: 常规管理 0 then response.write "checked"%>/> 文章管理 0 then response.write "checked"%>/> 产品管理 0 then response.write "checked"%> /> 案例管理 0 then response.write "checked"%>/> 会员管理 0 then response.write "checked"%> /> 团购管理 0 then response.write "checked"%> />
帐号　密码：	*

<%end if%>

powered by <%=CompanyUrl%>, you can contact us.