📄 admin_edit.asp
字号:
<!--#include file="inc/md5.asp"-->
<%Admin="UserAdmin"%>
<!--#include file="check.asp"-->
<%
'==========================================
'程序名称：飞天网络管理系统
'主页地址：http://ftwl.cb35.com
'最后修改时间：2005-10-20
'==========================================
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then
response.write("<script>alert('错误：禁止从站点外部提交数据!.')</script>")
response.end
end if
%>
<!--#include file="mdb.asp"-->
<!--#include file="char.inc"-->
<%
function CheckAdminEdit(TAdmin,admin)
CheckAdminEdit=false
if admin<>"" then
tempAdmin=split(admin,",")
for i = 0 to ubound(tempAdmin)
if trim(tempAdmin(i))=trim(TAdmin) then
CheckAdminEdit=true
exit for
end if
next
end if
end function
set rs=server.CreateObject("ADODB.RecordSet")
if request("type")="save" then
if request("admin_name")="" then
hxStudioMsg="错误:用户名不能为空!"
else
rs.open "select * from admin where admin_name='"&request("admin_name")&"' and admin_id<>"&request("admin_id"),conn,1,1
if not rs.eof then
hxStudioMsg="错误:已经有相同的用户名了!"
end if
rs.close
end if
end if
rs.open "select * from admin where dj<>4 and admin_id="&request("admin_id"),conn,1,2
if rs.eof then
hxStudioMsg="错误:没有 "&admin_name&" 用户的资料!"
else
if request("type")="save" and hxStudioMsg="" then
if request.form("admin_password")<>"" then
rs("admin_password")=MD5(request.form("admin_password"))
hxStudioMsg="成功:修改资料完成,同时密码已修改!"
else
hxStudioMsg="成功:修改资料完成,密码没被修改!"
end if
rs("admin_name")=request.form("admin_name")
rs("type")=request.form("hxType")
rs("dj")=request.form("dj")
rs("lock")=request.form("lock")
rs("admin")=replace(request("admin")," ","")
rs.Update
end if
admin_name=rs("admin_name")
hxType=rs("type")
dj=rs("dj")
lock=rs("lock")
admin=rs("admin")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta copy="程序制作：飞天网络 ftwl.cb35.com">
<title>飞天网络管理系统</title>
<link rel="stylesheet" href="inc/admin.css" type="text/css">
</head>
<body topmargin="1" leftmargin="1">
<form action="admin_edit.asp?type=save&admin_id=<%=request("admin_id")%>" method="post">
<div align="center">
<center>
<%if request("type")="save" then%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<tr>
<td width="100%"><font color="#FF0000"><%=hxStudioMsg%></font>时间:<%=Now()%></td>
</tr>
</table>
<%end if%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<tr class=lanyuss>
<td>
<b>设置和修改管理员(<font color="red"><%=admin_name%></font>)的权限、资料</b></td>
</tr>
<tr>
<td width="100%">
用户名：<input name="admin_name" value="<%=admin_name%>" size="15" >
<font color="#FF0000">*</font>
<font color="#FF0000"><input type="radio" value="0" name="lock"<%if lock<>"1" then%> checked<%end if%>></font>激活
<font color="#FF0000"><input type="radio" value="1" name="lock"<%if lock="1" then%> checked<%end if%>></font>锁定
<select size="1" name="dj">
<option value="0"<%if dj="0" then%> selected<%end if%>>①:待认证管理员</option>
<option value="1"<%if dj="1" then%> selected<%end if%>>②:栏目管理员</option>
</select></td>
</tr>
<tr>
<td width="100%">
登陆密码：<input name="admin_password" size="15" type="password"> 不修改请留空</td>
</tr>
<tr>
<th width="100%">
<b>修改用户权限</b> (只对[超级管理员]有效)</th>
</tr>
<tr>
<td width="100%">
栏目管理：<input type="checkbox" name="admin" value="news"<%if CheckAdminEdit("news",admin) then Response.Write(" checked")%>>新闻管理
<input type="checkbox" name="admin" value="dj"<%if CheckAdminEdit("dj",admin) then Response.Write(" checked")%>>音乐管理
<input type="checkbox" name="admin" value="down"<%if CheckAdminEdit("down",admin) then Response.Write(" checked")%>>下载管理
<input type="checkbox" name="admin" value="art"<%if CheckAdminEdit("art",admin) then Response.Write(" checked")%>>文章管理
<input type="checkbox" name="admin" value="js"<%if CheckAdminEdit("js",admin) then Response.Write(" checked")%>>特效管理
<input type="checkbox" name="admin" value="pic"<%if CheckAdminEdit("pic",admin) then Response.Write(" checked")%>>图片管理<BR>
<input type="checkbox" name="admin" value="web"<%if CheckAdminEdit("web",admin) then Response.Write(" checked")%>>酷站管理
<input type="checkbox" name="admin" value="link"<%if CheckAdminEdit("link",admin) then Response.Write(" checked")%>>连接管理
<input type="checkbox" name="admin" value="diary"<%if CheckAdminEdit("diary",admin) then Response.Write(" checked")%>>公告管理
<input type="checkbox" name="admin" value="vote"<%if CheckAdminEdit("vote",admin) then Response.Write(" checked")%>>投票管理
</td>
</tr>
<tr>
<td width="100%">
消息管理：<input type="checkbox" name="admin" value="message"<%if CheckAdminEdit("message",admin) then Response.Write(" checked")%>>短消息管理 </td>
</tr>
<tr>
<td width="100%">
会员管理：<input type="checkbox" name="admin" value="UserSee"<%if CheckAdminEdit("UserSee",admin) then Response.Write(" checked")%>>会员管理 <input type="checkbox" name="admin" value="adminSee"<%if CheckAdminEdit("adminSee",admin) then Response.Write("checked")%>>管理员查看 <input type="checkbox" name="admin" value="log"<%if CheckAdminEdit("log",admin) then Response.Write("checked")%>>登陆日志管理
<input type="checkbox" name="admin" value="UserAdmin"<%if CheckAdminEdit("UserAdmin",admin) then Response.Write(" checked")%>>管理<font color="#808080">(</font><font color="#FF0000">注意</font><font color="#808080">:开通"管理"权限即是给了该用户全部管理权限!)</font></td>
</tr>
<tr>
<td width="100%">
系统数据：<input type="checkbox" name="admin" value="System"<%if CheckAdminEdit("System",admin) then Response.Write(" checked")%>>系统设置 <input type="checkbox" name="admin" value="copyright"<%if CheckAdminEdit("copyright",admin) then Response.Write(" checked")%>>版权信息设置 <input type="checkbox" name="admin" value="other"<%if CheckAdminEdit("other",admin) then Response.Write(" checked")%>>主机环境变量、组件支持情况 <input type="checkbox" name="admin" value="SysMdb"<%if CheckAdminEdit("SysMdb",admin) then Response.Write(" checked")%>>数据库备份,压缩,恢复
<input type="checkbox" name="admin" value="SQL"<%if CheckAdminEdit("SQL",admin) then Response.Write(" checked")%>>数据库SQL</td>
</tr>
<tr>
<td width="100%">版权所有：飞天网络，程序制作：飞天网络（QQ：199837934）ftwl.cb35.com</td>
</tr>
<tr>
<th width="100%">
<p align="center">
<input name="b1" type="submit" value="确认修改">
<input name="b2" type="reset" value="全部还原"></p>
</th>
</tr>
</table>
</center>
</div>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -