📄 ad_admin.asp
字号:
response.write "0"
end if
%> </td>
<td width="150"><%
if adminname="贫龙" then
response.write "<a href='Ad_Admin.asp?Action=ModifyPwd&ID=" & rs("ID") & "'>修改密码</a> "
else
if rs("username")<>"贫龙" then
response.write "<a href='Ad_Admin.asp?Action=ModifyPwd&ID=" & rs("ID") & "'>修改密码</a> "
else
response.write " "
end if
end if
if rs("username")<>"贫龙" then response.write "<a href='Ad_Admin.asp?Action=ModifyPurview&ID=" & rs("ID") & "'>修改权限</a> "
if iCount>1 and rs("UserName")<>AdminName and rs("username")<>"贫龙" then
response.write "<a href='Ad_Admin.asp?Action=Del&ID=" & rs("ID") & "' onClick=""return confirm('确定要删除此管理员吗？');"">删除</a>"
else
response.write " "
end if
%> </td>
</tr>
<%
rs.MoveNext
loop
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="200" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
选中本页显示的所有管理员</td>
<td><input name="Action" type="hidden" id="Action" value="Del">
<input name="Submit" type="submit" id="Submit" value="删除选中的管理员"></td>
</tr>
</table>
</td>
</form></tr></table>
<%
rs.Close
set rs=Nothing
end sub
sub AddAdmin()
%>
<form method="post" action="Ad_Admin.asp" name="form1" onsubmit="javascript:return CheckAdd();">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title">
<td height="22" colspan="2"> <div align="center"><strong>新 增 管 理 员</strong></div></td>
</tr>
<tr class="tdbg">
<td width="35%" class="tdbg"><strong> 用 户 名：</strong></td>
<td width="65%" class="tdbg"><input name="username" type="text"> </td>
</tr>
<tr class="tdbg">
<td width="35%" class="tdbg"><strong> 初始密码： </strong></td>
<td width="65%" class="tdbg"><font size="2">
<input type="password" name="Password">
</font></td>
</tr>
<tr class="tdbg">
<td width="35%" class="tdbg"><strong> 确认密码：</strong></td>
<td width="65%" class="tdbg"><font size="2">
<input type="password" name="PwdConfirm">
</font></td>
</tr>
<tr class="tdbg">
<td width="35%" class="tdbg"><strong>权限设置： </strong></td>
<td width="65%" class="tdbg"><table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<td width="100"><input name="Purview" type="radio" value="1" checked onClick="PurviewDetail.style.display='none'">
超级管理员：</td>
<td>拥有所有权限。某些权限（如管理员管理、网站信息配置、网站选项配置等管理权限）只有超级管理员才有</td>
</tr>
<tr>
<td width="100"><input type="radio" name="Purview" value="2" onClick="PurviewDetail.style.display=''">
普通管理员：</td>
<td>需要详细指定每一项管理权限</td>
</tr>
</table>
</td>
</tr>
<tr class="tdbg">
<td colspan="2"><table id="PurviewDetail" width="100%" border="0" cellspacing="10" cellpadding="0" style="display:none">
<tr>
<td colspan="2" align="center"><strong>管 理 员 权 限 详 细 设 置</strong></td>
</tr>
<tr valign="top">
<td width="49%"><fieldset><legend>文章频道</legend>
<input type="radio" name="AdminPurview_Article" value="1">
频道管理员：拥有所有栏目的管理权限，并可以添加栏目和专题<br>
<input type="radio" name="AdminPurview_Article" value="2">
栏目总编：拥有所有栏目的管理权限，但不能添加栏目和专题<br>
<input name="AdminPurview_Article" type="radio" value="3" checked>
栏目管理员：只拥有部分栏目管理权限，不能添加栏目和专题<br>
<input type="radio" name="AdminPurview_Article" value="4">
在此频道里无任何管理权限<br>
<iframe id="frmArticle" height="200" width="100%" src="Ad_SetClassPurview.asp?ChannelID=2"></iframe> <br>
<strong><font color="#0000FF">注：</font></strong>栏目权限采用继承制度，即在某一栏目拥有某项管理权限，则在此栏目的所有子栏目中都拥有这项管理权限，并可在子栏目中指定更多的管理权限。
<input name="ClassMaster_Article" type="hidden" id="ClassMaster_Article">
<input name="ClassChecker_Article" type="hidden" id="ClassChecker_Article">
<input name="ClassInputer_Article" type="hidden" id="ClassInputer_Article">
</fieldset></td>
<td width="49%"><fieldset><legend>下载频道</legend>
<input type="radio" name="AdminPurview_Soft" value="1">
频道管理员：拥有所有栏目的管理权限，并可以添加栏目和专题<br>
<input type="radio" name="AdminPurview_Soft" value="2">
栏目总编：拥有所有栏目的管理权限，但不能添加栏目和专题<br>
<input name="AdminPurview_Soft" type="radio" value="3" checked>
栏目管理员：只拥有部分栏目管理权限，不能添加栏目和专题<br>
<input type="radio" name="AdminPurview_Soft" value="4">
在此频道里无任何管理权限<br>
<iframe id="frmSoft" height="200" width="100%" src="Ad_SetClassPurview.asp?ChannelID=3"></iframe><br>
<strong><font color="#0000FF">注：</font></strong>栏目权限采用继承制度，即在某一栏目拥有某项管理权限，则在此栏目的所有子栏目中都拥有这项管理权限，并可在子栏目中指定更多的管理权限。
<input name="ClassMaster_Soft" type="hidden" id="ClassMaster_Soft">
<input name="ClassChecker_Soft" type="hidden" id="ClassChecker_Soft">
<input name="ClassInputer_Soft" type="hidden" id="ClassInputer_Soft">
</fieldset></td>
</tr>
<tr valign="top">
<td width="49%"><fieldset><legend>图片频道</legend>
<input type="radio" name="AdminPurview_Photo" value="1">
频道管理员：拥有所有栏目的管理权限，并可以添加栏目和专题<br>
<input type="radio" name="AdminPurview_Photo" value="2">
栏目总编：拥有所有栏目的管理权限，但不能添加栏目和专题<br>
<input name="AdminPurview_Photo" type="radio" value="3" checked>
栏目管理员：只拥有部分栏目管理权限，不能添加栏目和专题 <br>
<input type="radio" name="AdminPurview_Photo" value="4">
在此频道里无任何管理权限<br>
<iframe id="frmPhoto" height="200" width="100%" src="Ad_SetClassPurview.asp?ChannelID=4"></iframe><br>
<strong><font color="#0000FF">注：</font></strong>栏目权限采用继承制度，即在某一栏目拥有某项管理权限，则在此栏目的所有子栏目中都拥有这项管理权限，并可在子栏目中指定更多的管理权限。
<input name="ClassMaster_Photo" type="hidden" id="ClassMaster_Photo">
<input name="ClassChecker_Photo" type="hidden" id="ClassChecker_Article3">
<input name="ClassInputer_Photo" type="hidden" id="ClassInputer_Photo">
</fieldset></td>
<td width="49%"><fieldset>
<legend>产品、影视权限</legend>
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<td width="33%"><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="shop1">
产品添加/管理</td>
<td width="33%"><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="shop2">
产品分类/图片</td>
<td width="34%"><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="shop3">
产品订单管理</td>
</tr>
<tr>
<td width="33%"><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="movie1">
影视添加/管理</td>
<td colspan="2"><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="movie2">
影视分类/图片</td>
</tr>
</table>
</fieldset><br><fieldset><legend>留言板</legend>
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<td width="50%"><input name="AdminPurview_Guest" type="checkbox" id="AdminPurview_Guest" value="Reply">
回复留言 </td>
<td width="50%"><input name="AdminPurview_Guest" type="checkbox" id="AdminPurview_Guest" value="Modify">
修改留言</td>
</tr>
<tr>
<td width="50%"><input name="AdminPurview_Guest" type="checkbox" id="AdminPurview_Guest" value="Del">
删除留言</td>
<td width="50%"><input name="AdminPurview_Guest" type="checkbox" id="AdminPurview_Guest" value="Check">
审核留言</td>
</tr>
</table>
</fieldset><br>
<fieldset>
<legend>网站管理权限</legend>
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<td width="50%"><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="Channel">
频道管理</td>
<td width="50%"><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="AD">
广告管理</td>
</tr>
<tr>
<td width="50%"><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="Announce">
公告管理</td>
<td width="50%"><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="FriendSite">
友情链接管理</td>
</tr>
<tr>
<td width="50%"><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="Vote">
调查管理 </td>
<td width="50%"><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="Counter">
统计管理</td>
</tr>
<tr>
<td width="50%"><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="User">
注册用户管理</td>
<td width="50%"><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="MailList">
邮件列表管理</td>
</tr>
<tr>
<td><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="Skin">
配色模板管理</td>
<td><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="Layout">
版面设计模板管理</td>
</tr>
<tr>
<td><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="JS">
JS代码管理</td>
<td><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="Database" disabled>
数据库管理</td>
</tr>
<tr>
<td><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="UpFile">
上传文件管理</td>
<td><input name="AdminPurview_Others" type="checkbox" id="AdminPurview_Others" value="ModifyPwd" checked>
修改自己的登录密码</td>
</tr>
</table>
</fieldset></td>
</tr>
</table></td>
</tr>
<tr>
<td height="40" colspan="2" align="center" class="tdbg"><input name="Action" type="hidden" id="Action" value="SaveAdd">
<input type="submit" name="Submit" value=" 添 加 " style="cursor:hand;">
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='Ad_Admin.asp'" style="cursor:hand;"></td>
</tr>
</table>
</form>
<%
end sub
sub ModifyPwd()
dim UserID
UserID=trim(Request("ID"))
if UserID="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请指定要修改的管理员ID</li>"
exit sub
else
UserID=Clng(UserID)
end if
sql="Select * from Admin where ID=" & UserID
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,3
if rs.Bof and rs.EOF then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>不存在此用户！</li>"
else
%>
<form method="post" action="Ad_Admin.asp" name="form1" onsubmit="javascript:return CheckModifyPwd();">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title">
<td height="22" colspan="2"> <div align="center"><font size="2"><strong>修 改 管 理 员 密 码</strong></font></div></td>
</tr>
<tr>
<td width="40%" class="tdbg"><strong>用 户 名：</strong></td>
<td width="60%" class="tdbg"><%=rs("UserName")%> <input name="ID" type="hidden" value="<%=rs("ID")%>"></td>
</tr>
<tr>
<td width="40%" class="tdbg"><strong>新 密 码：</strong></td>
<td width="60%" class="tdbg"><input type="password" name="Password">
</td>
</tr>
<tr>
<td width="40%" class="tdbg"><strong>确认密码：</strong></td>
<td width="60%" class="tdbg"><input type="password" name="PwdConfirm">
</td>
</tr>
<tr>
<td colspan="2" align="center" class="tdbg"><input name="Action" type="hidden" id="Action" value="SaveModifyPwd">
<input type="submit" name="Submit" value="保存修改结果" style="cursor:hand;">
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='Ad_Admin.asp'" style="cursor:hand;"></td>
</tr>
</table>
</form>
<%
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -