📄 ad_admin.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<!-- #include file="MD5.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<%
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
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 * 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")=request("class1")
rs.update
rs.close
set rs=nothing
end if
response.redirect "ad_admin.asp"
response.end
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("admin_class")=request("class")
rs.update
rs.close
set rs=nothing
response.redirect "ad_admin.asp"
response.end
end if
if request("types")="del" then
sql="delete from venshop_admin where admin_id="&request("admin_id")
conn.execute(sql)
response.redirect "ad_admin.asp"
response.end
end if%>
<body bgcolor="#FFFFFF" text="#000000" background="blue.gif">
<p><b><a href="ad_ven.asp"><font color="#FF0000">
免费版无法设置：订单管理员与产品管理员，购买正式版才可以使用！</font></a></b></p>
<table border="0" cellspacing="1" cellpadding="5" bgcolor="#C8C8C8">
<form action="ad_admin.asp" method=post>
<tr><td bgcolor="#F0F0F0" colspan="2" align="center">新增一个管理员</td></tr>
<tr><td bgcolor="#FFFFFF" align="right">管理员：</td>
<td bgcolor="#FFFFFF"><input type="text" name="admin_name1" size="20" class="input"></td></tr>
<tr><td bgcolor="#FFFFFF" align="right">密 码：</td>
<td bgcolor="#FFFFFF"><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 bgcolor="#FFFFFF" align="right">等 级：</td>
<td bgcolor="#FFFFFF"><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 bgcolor="#FFFFFF"></td>
<td bgcolor="#FFFFFF"><input type="submit" name="addname" value="提交"><input type=hidden name="types" value="addname"></td></tr></form>
</table><pre></pre>
<table border="0" cellspacing="1" cellpadding="5" bgcolor="#C8C8C8">
<tr><td bgcolor="#FFFFFF">ID</td>
<td bgcolor="#FFFFFF">用户名</td>
<td bgcolor="#FFFFFF">密码</td>
<td bgcolor="#FFFFFF">等级</td>
<td bgcolor="#FFFFFF">修改</td>
<td bgcolor="#FFFFFF">删除</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"><%=trim(rs("admin_id"))%> </td>
<td bgcolor="#FFFFFF"><input type="text" name="admin_name" value="<%=trim(rs("admin_name"))%>" size="10"></td>
<td bgcolor="#FFFFFF"><input type="password" name="admin_pass" size="10"> <img border="0" src="Img/ad_help.gif" class="helpimg" alt="请输入用户密码，否则修改无效！"> </td>
<td bgcolor="#FFFFFF"><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"><input type="submit" name="modify" value="修改"></td>
<td bgcolor="#FFFFFF"><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
conn.close
set conn=nothing%></table><table cellSpacing="0" cellPadding="3" border="0" width="500"><tr><td height="20"></td></tr>
<tr><td bgcolor="#F2F2F2"><p style="LINE-HEIGHT: 150%"><font color="#FF0000">凡人网络购物系统V8.0 版权所有:</font><a target="_blank" href="http://www.venshop.com"><font color="#FF0000">凡人网络VenShop.Com</font></a><font color="#FF0000"><br>客服电话:010-80928177 QQ:739202/57152557 Email/Msn:</font><a href="mailto:Ser@VenShop.Com"><font color="#FF0000">Ser@VenShop.Com</font></a></td>
</tr></table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -