📄 admin_admin.asp
字号:
If Not Rs.EOF And Not Rs.bof Then
Rs("user") = usernw
rs("fullname")=htmlencode(request.form("fullname"))
if htmlencode(request.form("passwd"))<>rs("pass") then
rs("pass")=md5(trim(request.form("passwd")))
end if
Select Case request.form("dj")
Case "1"
rs("purview")=99999
Case Else
rs("purview")=1
End Select
rs("sex")=request.form("sex")
rs("dj")=request.form("dj")
rs("depname")=request.form("depname")
Rs.update
Rs.Close:Set Rs = Nothing
Call ArtErr("<li>管理员 "&usernw&" 资料更新成功，请记住更新信息。</li>","2")
End If
End Sub
Sub delAdministrators()
If Trim(Request("delid")) <> "" and Request("username")<> chkhtm(Request.Cookies(Art2008)("adminuser"))Then
conn.Execute ("DELETE FROM Admin WHERE user<>'" & chkhtm(Request.Cookies(Art2008)("adminuser")) & "' And id=" & ChkNumeric(Request("delid")))
Call ArtErr("管理员“"&Request("username")&"”帐号已经被删除！","2")
Else
ErrMsg = "<li>错误的系统参数！</li>"
ReturnError(ErrMsg)
Exit Sub
End If
End Sub
Sub ActiveLock()
If Trim(Request("jy")) <> "" And Trim(Request("jyid")) <> "" and Request("jyname")<> chkhtm(Request.Cookies(Art2008)("adminuser")) Then
conn.Execute ("UPDATE Admin set jingyong="&ChkNumeric(Request("jy"))&" WHERE user<>'" & chkhtm(Request.Cookies(Art2008)("adminuser")) & "' And id=" & ChkNumeric(Request("jyid")))
Call ArtErr("管理员“"&Request("jyname")&"”帐号状态已经被修改！","2")
Else
ErrMsg = "<li>错误的系统参数！</li>"
ReturnError(ErrMsg)
Exit Sub
End If
End Sub
Sub editPurview()
Dim Rs
Dim OSKEY,m_strAdminflag
Set Rs = conn.Execute("SELECT id,[user],lmid,OSKEY FROM Admin WHERE id=" & CLng(Request("id")))
OSKEY = Rs("OSKEY")
user = Rs("user")
lmid=rs("lmid")
Rs.Close:Set Rs = Nothing
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td height="25" class="bg_tr" align="center" >管理员【<%=user%>】权限详细设置(请选择相应的权限分配给管理员)</td>
</tr>
<tr class="tdbg"><td>
<table width="97%" border="0" cellspacing="5" cellpadding="5" align="center">
<form name="myform" method="post" action="?action=renew">
<tr>
<td>
<FIELDSET align=center> <LEGEND align="left" >此管理员在【<font color="#FF0000">常规设置</font>】的权限</LEGEND>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="Setting" <%If InStr(OSKEY, "Setting") <> 0 Then Response.Write "checked"%>> 基本设置</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="Template" <%If InStr(OSKEY, "Template") <> 0 Then Response.Write "checked"%>> 模板管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="ClsSetTing" <%If InStr(OSKEY, "ClsSetTing") <> 0 Then Response.Write "checked"%>> 缩图水印选项</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="UploadSet" <%If InStr(OSKEY, "UploadSet") <> 0 Then Response.Write "checked"%>> 上传设置选项</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="JsScript" <%If InStr(OSKEY, "JsScript") <> 0 Then Response.Write "checked"%>> JS代码调用管理</td>
</tr>
<tr>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="Notice" <%If InStr(OSKEY, "Notice") <> 0 Then Response.Write "checked"%>> 公告管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="Vote" <%If InStr(OSKEY, "Vote") <> 0 Then Response.Write "checked"%>> 投票管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="Gbook" <%If InStr(OSKEY, "Gbook") <> 0 Then Response.Write "checked"%>> 留言管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="FriendLink" <%If InStr(OSKEY, "FriendLink") <> 0 Then Response.Write "checked"%>> 友情连接管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="GgSetting" <%If InStr(OSKEY, "GgSetting") <> 0 Then Response.Write "checked"%>> 广告设置管理</td>
</tr>
<tr>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="GGclass" <%If InStr(OSKEY, "GGclass") <> 0 Then Response.Write "checked"%>> 广告分类/广告位管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="GGtiaoAdd" <%If InStr(OSKEY, "GGtiaoAdd") <> 0 Then Response.Write "checked"%>> 添加广告条管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="GGtiao" <%If InStr(OSKEY, "GGtiao") <> 0 Then Response.Write "checked"%>> 广告条管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="GGjsadd" <%If InStr(OSKEY, "GGjsadd") <> 0 Then Response.Write "checked"%>> JS广告管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="GGpic" <%If InStr(OSKEY, "GGpic") <> 0 Then Response.Write "checked"%>> 广告图管理</td>
</tr>
</table>
</FIELDSET><br />
<FIELDSET align=center> <LEGEND align="left" >此管理员在【<font color="#FF0000">文章频道</font>】的权限</LEGEND>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="Article" <%If InStr(OSKEY, "Article") <> 0 Then Response.Write "checked"%>> <font color="#993300"><strong>文章频道管理权限</strong></font></td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="News_Add" <%If InStr(OSKEY, "News_Add") <> 0 Then Response.Write "checked"%>> 添加/编辑文章管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="News_List" <%If InStr(OSKEY, "News_List") <> 0 Then Response.Write "checked"%>> 文章列表管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="News_Class" <%If InStr(OSKEY, "News_Class") <> 0 Then Response.Write "checked"%>> 文章栏目管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="Special" <%If InStr(OSKEY, "Special") <> 0 Then Response.Write "checked"%>> 文章专题管理</td>
</tr>
<tr>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="CreateHtml" <%If InStr(OSKEY, "CreateHtml") <> 0 Then Response.Write "checked"%>> 批量生成HTML管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="News_Comment" <%If InStr(OSKEY, "News_Comment") <> 0 Then Response.Write "checked"%>> 文章评论管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="Digg" <%If InStr(OSKEY, "Digg") <> 0 Then Response.Write "checked"%>> Digg管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="News_Utg" <%If InStr(OSKEY, "News_Utg") <> 0 Then Response.Write "checked"%>> 网友投稿管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="Collection" <%If InStr(OSKEY, "Collection") <> 0 Then Response.Write "checked"%>> 文章采集管理</td>
</tr>
<tr><td colspan="5"> <INPUT onclick=getlicense() type=checkbox value=1 name=viewlicense align="absmiddle"> <font color="red">详细指定栏目（频道）权限</font></td></tr>
<tr><td colspan="5">具有权限栏目编号是:<span class="greentext"><%=lmid%></span>
<table id=license style="DISPLAY: none" width="100%" border="0" cellpadding="2" cellspacing="1" class="table">
<tr class="tdbg">
<td><%
if lmid="" then lmid="0,0"
lmid=lmid&","
sql = "select * from lm where lm<>''"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
while not rs.eof
ccc=""
nr=split(lmid,",")
For i=0 to ubound(nr)
aaa=nr(i)
if aaa="" then aaa=0
if clng(aaa)=clng(rs("id")) then ccc=" checked "
next
Response.Write "<input "&ccc&" type=checkbox name=lmid value="&rs("id")&" id="&rs("id")&"><label for="&rs("id")&"><b>"&rs("lm")&"</b><font color=999999>(编号:"&rs("id")&")</font></label><BR>"
sql2 = "select * from lm where lmid='"&rs("id")&"'"
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open sql2,conn,1,1
while not rs2.eof
ccc=""
nr=split(lmid,",")
For i=0 to ubound(nr)
aaa=nr(i)
if aaa="" then aaa=0
if clng(aaa)=clng(rs2("id")) then ccc=" checked "
next
Response.Write " └<input "&ccc&" type=checkbox name=lmid value="&rs2("id")&" id="&rs2("id")&"><label for="&rs2("id")&">"&rs2("lm2")&"<font color=999999>(编号:"&rs2("id")&")</font></label><BR>"
Set rs3 = Server.CreateObject("ADODB.RecordSet")
rs3.Open "select * from [lm] where lmid='"&rs2("id")&"' order by id asc",conn,1,1
while not rs3.eof
ccc=""
nr=split(lmid,",")
For i=0 to ubound(nr)
aaa=nr(i)
if aaa="" then aaa=0
if clng(aaa)=clng(rs3("id")) then ccc=" checked "
next
Response.Write " ├<input "&ccc&" type=checkbox name=lmid value="&rs3("id")&" id="&rs3("id")&"><label for="&rs3("id")&">"&rs3("lm3")&"<font color=999999>(编号:"&rs3("id")&")</font></label><BR>"
rs3.movenext
wend
Rs3.Close:Set Rs3 = Nothing
rs2.movenext
wend
Rs2.Close:Set Rs2 = Nothing
rs.movenext
wend
Rs.Close:Set Rs = Nothing
%>
<br>
</td>
</tr>
</table>
</td></tr>
</table>
</FIELDSET><br />
<FIELDSET align=center> <LEGEND align="left" >此管理员在【<font color="#FF0000">用户管理</font>】的权限</LEGEND>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="AdminUser" <%If InStr(OSKEY, "AdminUser") <> 0 Then Response.Write "checked"%>> 管理员管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="ChangePassword" <%If InStr(OSKEY, "ChangePassword") <> 0 Then Response.Write "checked"%>> 修改管理员密码</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="RegUser" <%If InStr(OSKEY, "RegUser") <> 0 Then Response.Write "checked"%>> 会员管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="UserGroup" <%If InStr(OSKEY, "UserGroup") <> 0 Then Response.Write "checked"%>> 用户组管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="UserSetting" <%If InStr(OSKEY, "UserSetting") <> 0 Then Response.Write "checked"%>> 会员设置选项管理</td>
</tr>
<tr>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="Message" <%If InStr(OSKEY, "Message") <> 0 Then Response.Write "checked"%>> 用户短信管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="Mail" <%If InStr(OSKEY, "Mail") <> 0 Then Response.Write "checked"%>> 用户邮件管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="Card" <% If InStr(OSKEY, "Card") <> 0 Then Response.Write "checked"%>> 充值卡管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="LogPoint" <%If InStr(OSKEY, "LogPoint") <> 0 Then Response.Write "checked"%>> 会员积分明细</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="LogMoney" <%If InStr(OSKEY, "LogMoney") <> 0 Then Response.Write "checked"%>> 会员资金明细</td>
</tr>
</table>
</FIELDSET><br />
<FIELDSET align=center> <LEGEND align="left" >此管理员在【<font color="#FF0000">系统管理</font>】的权限</LEGEND>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="LockIP" <%If InStr(OSKEY, "LockIP") <> 0 Then Response.Write "checked"%>> IP访问限制管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="Blog" <%If InStr(OSKEY, "Blog") <> 0 Then Response.Write "checked"%>> 登录日志管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="Data" <%If InStr(OSKEY, "Data") <> 0 Then Response.Write "checked"%>> 数据库管理</td>
<td class="tablerow1"><input type="checkbox" name="OSKEY" value="UploadFile" <%If InStr(OSKEY, "UploadFile") <> 0 Then Response.Write "checked"%>> 上传文件管理</td>
</tr>
</table>
</FIELDSET>
</td>
</tr>
<tr>
<td align="center"><input type="hidden" name="id" value="<%=Request("id")%>"><input type="button" name="go_button" onClick="javascript:location='admin_admin.asp'" value='返回上一页' class="button">
<input class="button" type="button" name="chkall" value='全选' onClick='CheckAllB(this.form)'><input class="button" type="button" name="chksel" value='反选' onClick="ContraSel(this.form)">
<input type="submit" name="submit_button" value="更新管理员权限" class="button"></td>
</tr></form>
</table>
</td></tr></table>
<script language="javascript">
//全选、反选
function CheckAllB(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = true // form.chkall.checked;
}
}
function ContraSel(form) {
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.name != 'chkall')
e.checked=!e.checked;
}
}
</script>
<%
End Sub
Sub savePurview()
Dim Rs,SQL
Set Rs = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * FROM Admin WHERE id=" & CLng(Request("id"))
Rs.Open SQL, conn, 1, 3
If Not (Rs.EOF And Rs.BOF) Then
if Request("OSKEY")<>"" then
Rs("OSKEY") = Replace(Replace(Request("OSKEY"), "'", ""), " ", "")
else
Rs("OSKEY") = ",,,,,,,,,,,,,,,"
end if
Rs("Lmid") = trim(request("lmid"))
Rs.update
End If
Rs.Close
Set Rs = Nothing
Call ArtErr("<li>管理员更新成功，请记住更新信息。</li>","2")
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -