📄 admin_administrator.asp
字号:
if(window.event.srcElement.checked)
e.checked = true;
else
e.checked = false;
}
}
}
function onPurviewChange(value){
switch(parseInt(value)){
case 1:
getObject("TR_ChannelAdmin").style.display = "none";
getObject("TR_ClassAdmin").style.display = "none";
getObject("TR_OtherPurview").style.display = "none";
break;
case 2:
getObject("TR_ChannelAdmin").style.display = "";
getObject("TR_ClassAdmin").style.display = "none";
getObject("TR_OtherPurview").style.display = "";
break;
case 3:
getObject("TR_ChannelAdmin").style.display = "none";
getObject("TR_ClassAdmin").style.display = "";
getObject("TR_OtherPurview").style.display = "";
break;
default: break;
}
}
function ShowClass(id, type){
if(type == 1){
getObject("Table_"+ id).style.display = "";
PurviewChannel(id, 1);
}else{
getObject("Table_"+ id).style.display = "none";
var frm = getObject("myform");
for(var i=0;i<frm.PurviewClassObject.length;i++){
if(frm.PurviewClassObject[i].ChannelID == id.toString()){
frm.PurviewClassObject[i].checked = false;
getObject("TRClass_"+ frm.PurviewClassObject[i].value).className = 'td_25';
PurviewChannel(id, 0);
}
}
}
}
function PurviewChannel(id, type){
var e = getObject("PurviewInChannel");
var str = e.value.trim();
var arr = str.split(",")
if(type == 1){
if(str == "0"){
str += ","+ id;
}else{
if(!foundInArray(arr, id.toString())){
str += ","+ id;
}
}
}else{
var re = new RegExp(","+ id);
str = str.replace(re, "");
}
e.value = str;
}
function foundInArray(arr, value){
for(var i=0;i<arr.length;i++){
if(arr[i].trim() == value.trim()){
return true;
}
}
return false;
}
function onCheckPurviewClass(id, flag){
if(flag){
getObject("TRClass_"+ id).className = 'MouseOver_25';
}else{
getObject("TRClass_"+ id).className = 'td_25';
}
}
function Check(frm){
SubmitOnce(frm);
return;
}
</script>
<form name="myform" action="Admin_Administrator.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="2" class="top_25"><strong>修改管理员</strong></td>
</tr>
<tr>
<td width="15%" class="td_ItemName"><strong>管理员名</strong></td>
<td width="85%" class="td_25"><input name="AdminNameString" type="text" id="AdminNameString" value="<%=EL_Common.ServerHTMLEncode(rsAdmin("AdminName"))%>" size="30" maxlength="25" disabled="disabled">
<span id="CheckResult"></span> <input name="AdminName" type="hidden" id="AdminName" value="<%=EL_Common.ServerHTMLEncode(rsAdmin("AdminName"))%>"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>修改密码</strong></td>
<td class="td_25"><input name="Password" type="password" id="Password" size="30">
<span class="redText">*不做修改请留空</span></td>
</tr>
<tr>
<td class="td_ItemName"><strong>密码确认</strong></td>
<td class="td_25"><input name="PasswordConfirm" type="password" id="PasswordConfirm" size="30"></td>
</tr>
<tr>
<td class="td_ItemName"> </td>
<td class="td_25"><input name="EnableMultiLogin" type="checkbox" class="nomargin" id="EnableMultiLogin" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsAdmin("EnableMultiLogin"))%>>
允许多人使用同一帐号同时登陆<br>
<input name="Actived" type="checkbox" class="nomargin" id="Actived" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsAdmin("Actived"))%>>
激活此帐号</td>
</tr>
<tr>
<td class="td_ItemName"><strong>限制登陆IP段</strong><br>
只有在设置的IP范围内才可以登陆本系统，每行一个IP段。不做限制请留空<br>
格式：192.168.1.*</td>
<td class="td_25"><textarea name="AllowLoginIp" cols="80" rows="7" id="AllowLoginIp"><%=Replace(rsAdmin("AllowLoginIp"), ",", VBCRLF)%></textarea></td>
</tr>
<tr>
<td class="td_ItemName"><strong>管理权限</strong></td>
<td class="td_25"><input name="Purview" type="radio" class="nomargin" value="1" onClick="onPurviewChange(this.value)" <%=EL_Common.SetObjectChecked(1, rsAdmin("Purview"))%>>
超级管理员
<input name="Purview" type="radio" class="nomargin" value="2" onClick="onPurviewChange(this.value)" <%=EL_Common.SetObjectChecked(2, rsAdmin("Purview"))%>>
频道管理员
<input name="Purview" type="radio" class="nomargin" value="3" onClick="onPurviewChange(this.value)" <%=EL_Common.SetObjectChecked(3, rsAdmin("Purview"))%>>
栏目管理员</td>
</tr>
<tr id="TR_ChannelAdmin" style="<%=TR_PurviewDiaply(2)%>">
<td colspan="2" class="td_50" style="padding:10px;">
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="60" align="center"><strong class="BlueText">频道管理员 —— 管理权限详细设置</strong></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td class="td_ItemName"><strong>频道权限设置</strong>
<input name="CheckAllPurviewChannel" type="checkbox" class="nomargin" id="CheckAllPurviewChannel" onClick="CheckAll('ChannelPurview')" value="checkbox">
选中所有权限 </td>
</tr>
<tr>
<td height="50" valign="top" style="padding:10px;">
<%
Dim ChannelCmd, rsChannel, ChannelCount
Call EL_Common.InitCommonCmd(ChannelCmd, rsChannel, "EL_Channel", "ChannelID,ChannelName,ChannelModule,ClassItemName", "ChannelType=0 And Disabled="& EL_False)
rsChannel.Close()
ChannelCount = ChannelCmd(0)
rsChannel.Open()
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='1'><tr>"
For i = 1 To ChannelCount
Response.Write "<td height='25'><input type='checkbox' id='ChannelPurview' name='ChannelPurview' value='"& rsChannel(0) &"' class='nomargin' "& EL_Common.SetObjectChecked("True", CheckAdminPurview(rsAdmin("ArrPurviewInChannel"), rsChannel(0), 1))&"> "& EL_Common.ServerHTMLEncode(rsChannel(1)) &"</td>"
If (i Mod 5)=0 And i<ChannelCount Then Response.Write "</tr><tr>"
If i<ChannelCount Then rsChannel.MoveNext
Next
rsChannel.Close()
Response.Write "</tr></table>"
%> </td>
</tr>
</table> </td>
</tr>
<tr id="TR_ClassAdmin" style="<%=TR_PurviewDiaply(3)%>">
<td colspan="2" class="td_50" style="padding:10px;"><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="60" align="center"><strong class="BlueText">栏目管理员 —— 管理权限详细设置</strong></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td class="td_ItemName"><strong>栏目权限设置</strong> </td>
</tr>
<tr>
<td height="50" valign="top" style="padding:10px;">
<%
rsChannel.Open()
rsChannel.MoveFirst()
For i = 1 To ChannelCount
If rsChannel(2) <> 2 And rsChannel(2)<> 4 And rsChannel(2)<> 5 And rsChannel(2)<>9 Then
Response.Write "<fieldset type='myfieldset' style='padding:5px; margin-bottom:15px;'><legend>此管理员在 <span class=bluetext>"& EL_Common.ServerHTMLEncode(rsChannel(1)) &"</span> 的权限</legend>"
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='1'>"
Response.Write "<tr><td>"
Response.Write "<input name='ClassPurviewInChannel_"& rsChannel(0) &"' id='ClassPurviewInChannel_"& rsChannel(0) &"' type='radio' class='nomargin' onClick='ShowClass("& rsChannel(0) &", 1)' "& EL_Common.SetObjectChecked("True", CheckAdminPurview(rsAdmin("ArrPurviewInChannel"), rsChannel(0), 1)) &"> 指定拥有管理权限的栏目 "
Response.Write "<input name='ClassPurviewInChannel_"& rsChannel(0) &"' id='ClassPurviewInChannel_"& rsChannel(0) &"' type='radio' class='nomargin' onClick='ShowClass("& rsChannel(0) &", 0)' "& EL_Common.SetObjectChecked("False", CheckAdminPurview(rsAdmin("ArrPurviewInChannel"), rsChannel(0), 1)) &"> 在此频道中没有任何权限"
Response.Write "</td></tr>"
Response.Write "</table>"
Response.Write "<table id='Table_"& rsChannel(0) &"' width='100%' border='0' cellpadding='0' cellspacing='0' style='"
If CheckAdminPurview(rsAdmin("ArrPurviewInChannel"), rsChannel(0), 1) = False Then
Response.Write "display:none"
End If
Response.Write "'><tr><td>"
Response.Write "<table width='370' border='0' cellpadding='0' cellspacing='0' style='float:left; margin-left:5px; border-top:1px solid #808080; border-left:1px solid #808080; border-right:1px solid #FFFFFF; border-bottom:1px solid #FFFFFF; float:left'>"
Response.Write "<tr><td>"
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0' style='border-top:1px solid #404040; border-left:1px solid #404040; border-right:1px solid #D4D0C8; border-bottom:1px solid #D4D0C8;'>"
Response.Write "<tr><td valign='top' style='background:#FFFFFF;'><div style='overflow-y:scroll; height:150px;'><table width='100%' border='0' cellpadding='0' cellspacing='1'>"
Response.Write "<tr class='td_ItemName'><td><strong>"& rsChannel(3) &"名称</strong></td><td width='30'><strong>权限</strong></td></tr>"
Response.Write ShowClassList(rsChannel(0), 0, "", rsAdmin("ArrPurviewInClass"))
Response.Write "</table></div></td></tr>"
Response.Write "</table>"
Response.Write "</td></tr>"
Response.Write "</table>"
Response.Write "<span class='redText'>注：栏目权限采用继承制度，即在某一栏目拥有管理权限，则在此栏目的所有子栏目中都拥有管理权限。</span>"
Response.Write "</td></tr></table>"
Response.Write "</fieldset>"
End If
If i<ChannelCount Then rsChannel.MoveNext
Next
rsChannel.Close()
Set rsChannel = Nothing
Set ChannelCmd = Nothing
%> </td>
</tr>
</table></td>
</tr>
<tr id="TR_OtherPurview" style="<%=TR_PurviewDiaply(4)%>">
<td colspan="2" class="td_50" style="padding:10px;"><table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td class="td_ItemName"><strong>其他权限设置</strong>
<input name="CheckAllPurviewOthers" type="checkbox" class="nomargin" id="CheckAllPurviewOthers" onClick="CheckAll('PurviewOthers')" value="checkbox">
选中所有权限 </td>
</tr>
<tr>
<td height="50" valign="top" style="padding:10px;">
<%
Dim arr, j
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='1'><tr>"
j = 1
For i = 0 To Ubound(ArrPurviewOthers)
If ArrPurviewOthers(i) <> "" And Not IsNULL(ArrPurviewOthers(i)) Then
arr = Split(ArrPurviewOthers(i), "$")
Response.Write "<td height='25'><input type='checkbox' id='PurviewOthers' name='PurviewOthers' value='"& arr(0) &"' class='nomargin' "& EL_Common.SetObjectChecked("True", CheckAdminPurview(rsAdmin("ArrPurviewOthers"), arr(0), 3)) &"> "& arr(1) &"</td>"
If (j Mod 5)=0 Then Response.Write "</tr><tr>"
j = j + 1
End If
Next
Response.Write "</tr></table>"
%> </td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" align="center" class="td_50"><input type="submit" name="Submit2" value="保存修改">
<input type="button" name="Submit3" value="返回上页" onClick="history.back()">
<input name="PurviewInChannel" type="hidden" id="PurviewInChannel" value="<%=rsAdmin("ArrPurviewInChannel")%>">
<input name="Action" type="hidden" id="Action" value="SaveModify">
<input name="AdminID" type="hidden" id="AdminID" value="<%=rsAdmin("AdminID")%>"></td>
</tr>
</table>
</form>
<%
rsAdmin.Close()
Set rsAdmin = Nothing
Set AdminCmd = Nothing
EL_Common.ShowScriptError()
End Sub
Sub ManageAdmin()
On Error Resume Next
Dim AdminCmd, rsAdmin, i
Dim PageCounts, RowCount, TotalRowCount
Call EL_Common.InitCommand(AdminCmd, "EL_SP_SplitPage")
With AdminCmd
.Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
.Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_Admin")
.Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "AdminID")
.Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "AdminID ASC")
.Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
.Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
.Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, "*")
.Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, "1=1")
.Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
.Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
.Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
Set rsAdmin = .Execute()
End With
rsAdmin.Close()
RowCount = AdminCmd(0)
TotalRowCount = AdminCmd(9)
PageCounts = AdminCmd(10)
%>
<script language="javascript">
function CheckedAll(){
for (var i=0;i<document.myform.elements.length;i++){
var e = document.myform.elements[i];
if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
e.checked = true;
}
}
getObject("myselect").innerHTML = "[<a href='javascript:CancelAll()'>取消</a>]";
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -