📄 admin_admin.asp

📁 网站整站
💻 ASP
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/adminfunction.asp"-->
<!--#include file="inc/md5.asp"-->
<%
call hacker()
call checkadmin("admin")
function splitadmin(myadmin,admin_admin)
splitadmin=false
if admin_admin<>"" then
admindata=split(admin_admin,",")
for i = 0 to ubound(admindata)
if trim(admindata(i))=trim(myadmin) then
splitadmin=true
exit for
end if
next
end if
end function
%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="STYLESHEET" type="text/css" href="img/admin.css">
<script type='text/javascript' language='javascript' src='inc/adminjs.js'></script>
</head>
<%
select case request.querystring("action")
case "newadminok"
if trim(replace(request("admin_pass"),"'",""))<>MD5(trim(replace(request("admin_pass"),"'",""))) then
Response.Write("<script>alert('密码和确认密码不同！请从新输入！');history.go(-1);</script>")
end if 
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_admin"
rs.open sql,conn,1,3
rs.addnew
rs("admin_name")=request.Form("admin_name")
rs("admin_pass")=MD5(trim(replace(request("admin_pass"),"'","")))
rs("admin_type")=cint(request.Form("admin_type"))
rs("admin_admin")=replace(request.Form("admin_admin")," ","")
rs("admin_user")=request.Form("admin_user")
rs("admin_lock")=cint(request.Form("admin_lock"))
rs.update
rs.close
response.Redirect"admin_admin.asp"
case "editadminok"
if trim(replace(request("admin_pass"),"'",""))<>MD5(trim(replace(request("admin_pass"),"'",""))) then
Response.Write("<script>alert('密码和确认密码不同！请从新输入！');history.go(-1);</script>")
end if 
set rs=server.CreateObject("adodb.recordset")
sql="select * from [YC_admin] where id="&cint(request.Form("id"))
rs.open sql,conn,1,3
rs("admin_name")=request.Form("admin_name")
if trim(replace(request("admin_pass"),"'",""))<>"" then
rs("admin_pass")=MD5(trim(replace(request("admin_pass"),"'","")))
end if
rs("admin_type")=cint(request.Form("admin_type"))
if request.Form("admin_type")<>1 then
rs("admin_admin")=replace(request.Form("admin_admin")," ","")
end if
rs("admin_user")=request.Form("admin_user")
rs("admin_lock")=cint(request.Form("admin_lock"))
rs.update
rs.close
response.Redirect"admin_admin.asp"

case ""
call admin()
case "editadmin"
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_admin where id="&request.querystring("id")
rs.open sql,conn,1,1%>
<script language="javascript">
function chk(){
if(document.form.admin_name.value==""){
alert("管理员名称不能为空！");
document.form.admin_name.focus();
return false;}
return true;}
</Script>
<form method="post" name="form" id="form" onsubmit="return chk();" action="?action=editadminok">
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d>
<tr class="title"  height="22"><td><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;编辑管理员</b></td></tr>	
<tr class="bg" height="25"><td>
&nbsp;管理员名称：<input name="admin_name" type="text" class=yecao style="width:170px" value=<%=rs("admin_name")%>><input type="radio" value="0" name="admin_lock"<%if rs("admin_lock")=0 then response.write "checked"%>></font>激活
<input type="radio" value="1" name="admin_lock" <%if rs("admin_lock")=1 then response.write "checked"%>></font>锁定
</td></tr>
<tr class="bg" height="25"><td>
&nbsp;管理员密码：<input name="admin_pass" type="password" class=yecao style="width:170px">
不修改请留空！
</td></tr>
<tr class="bg" height="25"><td>
&nbsp;请确认密码：<input name="admin_pass_pass" type="password"  class=yecao style="width:170px">
不修改请留空！
</td></tr>
<tr class="bg" height="25"><td>
&nbsp;前台用户名：<input name="admin_user" type="text" id="admin_user"  class=yecao style="width:170px" value=<%=rs("admin_user")%>>
</td></tr>
<tr class="bg" height="25"><td>&nbsp;管理员权限：<input onclick="flag.style.display='none'" type="radio" name="admin_type" value="1" <%if rs("admin_type")="1" then response.write "checked"%>>超级管理员
<input onclick="flag.style.display='block'" type="radio" name="admin_type" value="0" <%if rs("admin_type")="0" then response.write "checked"%>>普通管理员<br>
</td></tr>
<tr class="bg" height="25" id="flag" <%if rs("admin_type")="1" then%> style="display='none'"<%end if%>><td>
&nbsp;基本管理权：<input type="checkbox" name="admin_admin" value="set"<%if splitadmin("set",rs("admin_admin")) then YC("checked")%>>基本设置
<input type="checkbox" name="admin_admin" value="tongji"<%if splitadmin("tongji",rs("admin_admin")) then YC("checked")%>>统计管理
<input type="checkbox" name="admin_admin" value="link"<%if splitadmin("link",rs("admin_admin")) then YC("checked")%>>连接管理
<input type="checkbox" name="admin_admin" value="gg"<%if splitadmin("gg",rs("admin_admin")) then YC("checked")%>>公告管理
<input type="checkbox" name="admin_admin" value="vote"<%if splitadmin("vote",rs("admin_admin")) then YC("checked")%>>投票管理
<input type="checkbox" name="admin_admin" value="menu"<%if splitadmin("menu",rs("admin_admin")) then YC("checked")%>>菜单管理
<input type="checkbox" name="admin_admin" value="sms"<%if splitadmin("sms",rs("admin_admin")) then YC("checked")%>>短信管理<br />

&nbsp;栏目管理权：<input type="checkbox" name="admin_admin" value="news"<%if splitadmin("news",rs("admin_admin")) then YC("checked")%>>新闻管理
<input type="checkbox" name="admin_admin" value="art"<%if splitadmin("art",rs("admin_admin")) then YC("checked")%>>文章管理
<input type="checkbox" name="admin_admin" value="pic"<%if splitadmin("pic",rs("admin_admin")) then YC("checked")%>>图片管理
<input type="checkbox" name="admin_admin" value="down"<%if splitadmin("down",rs("admin_admin")) then YC("checked")%>>下载管理
<input type="checkbox" name="admin_admin" value="dj"<%if splitadmin("dj",rs("admin_admin")) then YC("checked")%>>娱乐管理
<input type="checkbox" name="admin_admin" value="other"<%if splitadmin("other",rs("admin_admin")) then YC("checked")%>>频道管理
<br />
&nbsp;用户管理权：<input type="checkbox" name="admin_admin" value="user"<%if splitadmin("user",rs("admin_admin")) then YC("checked")%>>用户管理<br />


&nbsp;数据管理权：<input type="checkbox" name="admin_admin" value="data"<%if splitadmin("data",rs("admin_admin")) then YC("checked")%>>数据库处理
<br /><br />
</td></tr>
<tr><td class="hr"></td></tr>
<tr height="30" class=foot>
<td align="center">
<input name="new" type="submit" class="adminbutton" id="new" value="修 改">&nbsp;
<input name="Submit2" type="reset" class="adminbutton" value="清 空" >
<input name="id" type="hidden"  value="<%=rs("id")%>" >
</td></tr>
</table> </form>
<%

case "newadmin"
%>
<script language="javascript">
function chk(){
if(document.form.admin_name.value==""){
alert("管理员名称不能为空！");
document.form.admin_name.focus();
return false;}
if(document.form.admin_pass.value==""){
alert("管理员密码不能为空！");
document.form.admin_pass.focus();
return false;}
if(document.form.admin_pass_pass.value==""){
alert("管理员确认密码不能为空！");
document.form.admin_pass_pass.focus();
return false;}
return true;}
</Script>
<form method="post" name="form" id="form" onsubmit="return chk();" action="?action=newadminok">
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d>
<tr class="title"  height="22"><td><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;添加管理员</b></td></tr>	
<tr class="bg" height="25"><td>
&nbsp;管理员名称：<input name="admin_name" type="text" id="admin_name"  class=yecao style="width:170px"><input type="radio" value="0" name="admin_lock" checked></font>激活
<input type="radio" value="1" name="admin_lock"></font>锁定
</td></tr>
<tr class="bg" height="25"><td>
&nbsp;管理员密码：<input name="admin_pass" type="password" id="admin_pass"  class=yecao style="width:170px">
</td></tr>
<tr class="bg" height="25"><td>
&nbsp;请确认密码：<input name="admin_pass_pass" type="password" id="admin_pass_pass"  class=yecao style="width:170px">
</td></tr>
<tr class="bg" height="25"><td>
&nbsp;前台用户名：<input name="admin_user" type="text" id="admin_user"  class=yecao style="width:170px">
</td></tr>
<tr class="bg" height="25"><td>&nbsp;管理员权限：<input onclick="flag.style.display='none'" type="radio" name="admin_type" value="1" checked>超级管理员
<input onclick="flag.style.display='block'" type="radio" name="admin_type" value="0">普通管理员<br>
</td></tr>
<tr class="bg" height="25" id="flag" style="display='none'"><td>
&nbsp;基本管理权：<input type="checkbox" name="admin_admin" value="set">基本设置
<input type="checkbox" name="admin_admin" value="tongji">统计管理
<input type="checkbox" name="admin_admin" value="link">连接管理
<input type="checkbox" name="admin_admin" value="gg">公告管理
<input type="checkbox" name="admin_admin" value="vote">投票管理
<input type="checkbox" name="admin_admin" value="menu">菜单管理
<input type="checkbox" name="admin_admin" value="skin">风格管理
<input type="checkbox" name="admin_admin" value="sms">短信管理<br />

&nbsp;栏目管理权：<input type="checkbox" name="admin_admin" value="news">新闻管理
<input type="checkbox" name="admin_admin" value="art">文章管理
<input type="checkbox" name="admin_admin" value="pic">图片管理
<input type="checkbox" name="admin_admin" value="down">下载管理
<input type="checkbox" name="admin_admin" value="dj">娱乐管理
<input type="checkbox" name="admin_admin" value="other">频道管理
<br />
&nbsp;用户管理权：<input type="checkbox" name="admin_admin" value="user">用户管理<br />

&nbsp;上传管理权：<input type="checkbox" name="admin_admin" value="upnews">新闻上传
<input type="checkbox" name="admin_admin" value="upart">文章上传
<input type="checkbox" name="admin_admin" value="uppic">图片上传
<input type="checkbox" name="admin_admin" value="updown">下载上传
<input type="checkbox" name="admin_admin" value="updj">娱乐上传<br />
&nbsp;数据管理权：<input type="checkbox" name="admin_admin" value="data" />数据库处理
<input type="checkbox" name="admin_admin" value="redata">数据库操作器
<br /><br />
</td></tr>
<tr><td class="hr"></td></tr>
<tr height="30" class=foot>
<td align="center">
<input name="new" type="submit" class="adminbutton" id="new" value="添 加">&nbsp;
<input name="Submit2" type="reset" class="adminbutton" value="清 空" >
</td></tr>
</table> </form>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d>
<tr class="bg" height="500"><td style="line-height:150%;">
</td></tr></table>
<%
case "lock"
Conn.Execute("update YC_admin set admin_lock='1' Where id="&Request.QueryString("id"))
YCGO("admin_admin.asp")
case "unlock"
Conn.Execute("update YC_admin set admin_lock='0' Where id="&Request.QueryString("id"))
YCGO("admin_admin.asp")
case "del"
Conn.Execute("Delete * From YC_admin Where id="&Request.QueryString("id"))
YCGO("admin_admin.asp")
end select
sub admin()
set rs=server.CreateObject("adodb.recordset")
sql="select * from [YC_admin] order by id desc"
rs.open sql,conn,1,1%>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" bordercolor="<%=border%>" rules=none class=3d>
<tr><td height="22" colspan="8" class=title><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;管理员管理</b></td></tr>
<tr class="bg" height="25">
<td width="40%">&nbsp;管理员名称</td>
<td width="15%">前台用户名</td>
<td width="15%">管理员权限</td>
<td width="15%">状  态</td>
<td width="15%">操 作</td>
<%if not rs.bof and not rs.eof then
num=1
do while not rs.eof%>
<tr><td class=hr colspan=8></td></tr>
<tr height="25" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#efefef'">
<td>&nbsp;<img src=img/usertitle.gif  border=0>&nbsp;<%=rs("admin_name")%></td>
<td><%=rs("admin_user")%></td><td>
<%if rs("admin_type")=1 then
YC("<font color=""red"">超级管理员</font>")
elseif rs("admin_type")=0 then
YC("普通管理员")
else
YC("非法管理员")
end if%>
</td><td>
<%if rs("admin_lock")=1 then
response.write"锁  定"
else
response.write"正  常"
end if%></td>
<td><a href=?action=del&id=<%=rs("id")%>>删除</a>&nbsp;<a href=?action=editadmin&id=<%=rs("id")%>>编辑</a>&nbsp;<%if rs("admin_lock")=1 then
response.write"<a href=?action=unlock&id="&rs("id")&"><font color=""red""><b>恢复</b></font></a>"
else
response.write"<a href=?action=lock&id="&rs("id")&">锁定</a>"
end if%>
</td></tr>

<%
num=num+1
rs.movenext
loop
end if
rs.close
set rs=nothing
Response.Write("</table></form><table width=""100%"" align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" rules=""none"" class=""3d""><tr class=""bg"" height=""500""><td style=""line-height:150%;""></td></tr></table>")
end sub
call closedata()%>
💿 文件大小 1378 K
👤 上传用户 yehao
📂 所属分类电子书籍
🏷️ 相关标签

#网站
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -