www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/ad_admin.asp
<!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<!-- #include file="../IncAsp/venshop_md5.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5">
<%
if Request.Cookies("venshop")("admin_class")<>0 then
response.write "你没有这个权限!"
response.end
end if
%>
<%
if request("types")="addname" then
if request("admin_name1")="" then
response.write "错误:请输入管理员名称!"
elseif request("admin_pass1")="" then
response.write "错误:请输入管理员密码!"
else
set rs=server.createobject("adodb.recordset")
sql="select count(*) from venshop_admin where admin_name='"&request("admin_name1")&"'"
rs.open sql,conn,1,1
if rs(0)<>0 then
response.write "错误:该管理员已经存在!"
response.end
end if
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_admin"
rs.open sql,conn,1,3
rs.addnew
rs("admin_name")=request("admin_name1")
rs("admin_pass")=md5(request("admin_pass1"))
rs("admin_class")=0
rs("landtimes")=1
rs.update
rs.close
set rs=nothing
end if
call addok(addt,"ad_admin.asp","ad_admin.asp")
end if
if request("types")="mod" and request("admin_name")<>"" and request("admin_pass")<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_admin where admin_id="&request("admin_id")
rs.open sql,conn,1,3
rs("admin_name")=request("admin_name")
rs("admin_pass")=md5(request("admin_pass"))
rs.update
rs.close
set rs=nothing
call editok(editt,"ad_admin.asp","ad_admin.asp")
end if
if request("types")="del" then
sql="delete from venshop_admin where admin_id="&request("admin_id")
conn.execute(sql)
call deleok(delet,"ad_admin.asp")
end if%>
<table border="0" cellspacing="0" cellpadding="5" class="st">
<form action="ad_admin.asp" method=post>
<tr><td class="sa" colspan="2" align="center">新增一个管理员</td></tr>
<tr><td align="right" class="s0">管理员：</td>
<td class="s0"><input type="text" name="admin_name1" size="20" class="input"></td></tr>
<tr><td align="right" class="s1">密 码：</td>
<td class="s1"><input type="password" name="admin_pass1" size="20"class="input"> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="建议使用非常规字符，经常更改密码"></td></tr>
<tr><td align="right" class="s0">等 级：</td>
<td class="s0"><select size="1" name="class1">
<option selected value="0">总管理员</option>
<option value="1">产品管理</option>
<option value="2">订单管理</option>
</select> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="总管理员拥有所有管理权限，产品管理拥有产品及评论管理权限，订单管理员拥有订单管理权限"></td></tr>
<tr><td class="s1"></td>
<td class="s1"><input type="submit" name="addname" value="提交"><input type=hidden name="types" value="addname"></td></tr></form>
</table><pre></pre>
<table border="0" cellspacing="0" cellpadding="5" class="st">
<tr><td bgcolor="#FFFFFF" class="sa" colspan="6" align="center">管理员维护</td>
</tr>
<tr><td bgcolor="#FFFFFF" class="s0">ID</td>
<td bgcolor="#FFFFFF" class="s0">用户名</td>
<td bgcolor="#FFFFFF" class="s0">密码</td>
<td bgcolor="#FFFFFF" class="s0">等级</td>
<td bgcolor="#FFFFFF" class="s0">修改</td>
<td bgcolor="#FFFFFF" class="s0">删除</td></tr>
<%set rs=server.createobject("adodb.recordset")
sql="select * from venshop_admin"
rs.open sql,conn,1,1
rs.movefirst
for i=1 to rs.recordcount
%><form method=post action="ad_admin.asp?types=mod&admin_id=<%=rs("admin_id")%>"><tr>
<td bgcolor="#FFFFFF" class="s<%=i mod 2%>"><%=trim(rs("admin_id"))%> </td>
<td bgcolor="#FFFFFF" class="s<%=i mod 2%>"><input type="text" name="admin_name" value="<%=trim(rs("admin_name"))%>" size="10"></td>
<td bgcolor="#FFFFFF" class="s<%=i mod 2%>"><input type="password" name="admin_pass" size="10"> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="请输入用户密码，否则修改无效！"> </td>
<td bgcolor="#FFFFFF" class="s<%=i mod 2%>"><select size="1" name="class">
<option value="0"<%if rs("admin_class")=0 then response.write" selected"%>>总管理员</option>
<option value="1"<%if rs("admin_class")=1 then response.write" selected"%>>产品管理</option>
<option value="2"<%if rs("admin_class")=2 then response.write" selected"%>>订单管理</option></select></td>
<td bgcolor="#FFFFFF" class="s<%=i mod 2%>"><input type="submit" name="modify" value="修改"></td>
<td bgcolor="#FFFFFF" class="s<%=i mod 2%>"><a href="ad_admin.asp?types=del&admin_id=<%=rs("admin_id")%>" onClick="return confirm('您确定进行删除操作吗？')">删除</a></td></tr></form>
<%rs.movenext
next
rs.close
set rs=nothing%></table>
<!--#include file="ad_bottom.asp"-->