📄 admin_role.asp
字号:
<font color="#FF0000">调用管理 </font>/
<input name="popedom" type="checkbox" id="popedom" value="jsm">
js管理
<input name="popedom" type="checkbox" id="popedom" value="jsmake">
自由js生成</td>
</tr>
<tr bgcolor="#FFF3E8">
<td width="32%" class="td1"> <input name="popedom" type="checkbox" id="popedom" value="member">
<font color="#FF0000">会员管理</font></td>
<td width="68%" class="td2"> <input name="popedom" type="checkbox" id="popedom" value="ad">
<font color="#FF0000">广告管理</font></td>
</tr>
<tr bgcolor="#FFF3E8">
<td width="32%" class="td1"> <input name="popedom" type="checkbox" id="popedom" value="vote">
<font color="#FF0000">投票管理 </font></td>
<td width="68%" class="td2"><input name="popedom" Disabled type="checkbox" id="popedom3" value="forum">
<font color="#FF0000">论坛管理</font> </td>
</tr>
<tr bgcolor="#FFF3E8">
<td class="td1"> <input name="popedom" type="checkbox" Disabled id="popedom" value="it">
<font color="#FF0000">报价系统管理</font></td>
<td class="td2"> <input name="popedom" type="checkbox" id="popedom" value="tongji">
<font color="#FF0000">网站统计管理</font></td>
</tr>
<tr bgcolor="#FFF3E8">
<td class="td1"> <input name="popedom" type="checkbox" id="popedom" value="system">
<font color="#FF0000">系统管理</font></td>
<td class="td2"> <input name="popedom" type="checkbox" id="popedom" value="data">
<font color="#FF0000"> 数据库管理</font></td>
</tr>
<tr bgcolor="#FFF3E8">
<td class="td1"> <input name="popedom" type="checkbox" id="popedom" value="xuni">
虚拟目录管理 </td>
<td class="td2"> <input name="popedom" type="checkbox" id="popedom" value="config">
<font color="#FF0000">系统安全</font></td>
</tr>
<tr bgcolor="#FFF3E8">
<td class="td1"><input name="popedom" type="checkbox" id="popedom" value="setup">
参数设置</td>
<td class="td2"><input name="popedom" type="checkbox" id="popedom" value="back">
数据备份</td>
</tr>
<tr bgcolor="#FFF3E8">
<td class="td1"><input name="popedom" type="checkbox" id="popedom" value="log">
日志管理</td>
<td class="td2"><input name="popedom" type="checkbox" id="popedom" value="sql1">
执行ＳＱＬ语句</td>
</tr>
<tr bgcolor="#FFF3E8">
<td class="td1"><input name="popedom" type="checkbox" id="popedom" value="users">
会员 /管理员管理</td>
<td class="td2"><input name="popedom" type="checkbox" id="popedom" value="role1">
角色管理 </td>
</tr>
<tr bgcolor="#FFF3E8">
<td class="td1"><input name="popedom" type="checkbox" id="popedom" value="update">
在线升级</td>
<td class="td2"><input name="popedom" type="checkbox" id="popedom" value="pass">
是否允许修改密码</td>
</tr>
<tr bgcolor="#FFF3E8">
<td class="td1"><input name="popedom" type="checkbox" id="popedom" value="Reviewb">
查看数据库统计</td>
<td class="td2"> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#F7FFF4">
<td valign="top" bgcolor="#F7FFF4" class="BarTitle"><div align="right">设置新闻录入权限：</div></td>
<td bgcolor="#F7FFF4">
<% set rs1 = server.createobject("adodb.recordset")
sql1 = "select * from newsclass order by RootID asc,orders asc"
rs1.open sql1,conn,1,1
if rs1.recordcount=0 then
response.write("<font color=red>还没有新闻栏目</font>→<font color=blue><a href=admin_ClassManage.asp>添加栏目</a></font>")
end if
while not rs1.eof
if rs1("ParentID")=0 then
response.write("<hr size=1 noshade color=#97C893>")
end if
for i=1 to rs1("depth")
Response.Write " <font color=""#97C893"">│</font>"
next
if rs1("Child")<>0 then
Response.Write " <font color=""#97C893"">├</font> "
response.write("<input name=""popedom"" type=""checkbox"" id=""popedom"" value="""&rs1("classen")&""">")
response.write("<img src=pic/NewsPr.gif>")
response.write(rs1("classcn"))
response.write("<br>")
else
response.write(" <font color=""#97C893"">├ </font>")
response.write("<input name=""popedom"" type=""checkbox"" id=""popedom"" value="""&rs1("classen")&""">")
response.write("<img src=pic/NewsPr1.gif>"&rs1("classcn")&"<br>")
end if
rs1.movenext
wend
rs1.close
%>
</td>
</tr>
<tr bgcolor="#F7FFF4">
<td align="right"> <script>
function checkAddReco(obj){
if(obj.Title.value==""){
alert("请输入[标题]");
obj.Title.focus();
return false;
}
if(obj.Content.value==""){
alert("请输入[简介]");
obj.Content.focus();
return false;
}
return true;
}
</script> </td>
<td> <input name="Submit4" type="submit" value="确 定" class=Anbutc> <input name="Submit22" type="reset" value="还 原" class=Anbutc>
<input name="Submit32" type="button" value="返 回" onclick="window.history.back();" class=Anbutc>
说明：红色为父级权限，只有父级权限允许才能操作相应的子类权限</td>
</tr>
</table>
</form>
<%End Sub%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#7ED3A7">
<tr bgcolor="#E3FFD9">
<td width="100%" colspan="2" bgcolor="#F7FFF4">
<!--#include file = name.asp-->
</td>
</tr>
</table>
</body>
</html>
<%
Sub SaveMdy()
Dim Id,Title,Content,Popedom,ClassId
Id=Request("Id")
Title=Replace(Trim(Request("Title")),"'","''")
Content=Replace(Trim(Request("Content")),"'","''")
Popedom=Trim(Request("Popedom"))
Dim Rs
Dim Sql
Sql="Select * From Role Where Id=" & Id
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open Sql,Conn,1,3
If Not (Rs.Eof And Rs.Bof) Then
'是否存在同名角色
Sql="Select * From Role Where Id<>" & Id & " And UCase(Title)='" & UCase(Title) &"'"
Dim Rs2
Set Rs2=Conn.ExeCute(Sql)
If Not(Rs2.Eof And Rs2.Bof) Then
Response.Write("<script>alert(""<操作失败>\n为免歧意,不允许存在同名[角色]"& SoftCopyright_Script &""");window.history.back();</script>")
Rs.Close
Set Rs=Nothing
Rs2.Close
Set Rs2=Nothing
Response.End
Else
Rs("Title")= Title
End If
Rs2.Close
Set Rs2=Nothing
Rs("Popedom")=Popedom
Rs("Content")=Content
Rs("upTime")=Now
Rs.Update
End If
Rs.Close
Set Rs=Nothing
Response.Redirect("Admin_role.asp")
End Sub
Sub DelReco()
Dim Sql
Title=Replace(Trim(Request("Title")),"'","''")
Sql="Select * From admin Where art='"&Title&"'"
Dim Rs2
Set Rs2=Conn.ExeCute(Sql)
If Not(Rs2.Eof And Rs2.Bof) Then
Response.Write("<script>alert(""<操作失败>\n当前存在其它用户仍在使用此[角色],因此无法删除!"& title &""");window.history.back();</script>")
Rs2.Close
Set Rs2=Nothing
Response.End()
End If
' title=replace(request("title")," ","")
Sql="Delete From Role Where title='"&Title&"'"
Conn.ExeCute Sql
Response.Redirect("Admin_role.asp")
End Sub
Sub SaveAddReco()
Dim Title,Content,Popedom,ClassId
Title=Replace(Trim(Request("Title")),"'","''")
Content=Replace(Trim(Request("Content")),"'","''")
Popedom=Trim(Request("Popedom"))
' ClassId=CLng(Request("ClassId"))
Dim Sql
Sql="Select Top 1 * From Role Where Title='" & Title & "' Order By ID DESC"
Dim Rs
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open Sql,Conn,1,3
If Not(Rs.Eof And Rs.Bof) Then
Response.Write("<script>alert(""<操作失败>\n为免歧意,不允许存在同名[角色]"& title &""");window.history.back();</script>")
Rs.Close
Set Rs=Nothing
Response.End()
End If
Rs.AddNew
Rs("Title")= Title
Rs("Content")= Content
Rs("Popedom")=Popedom
Rs("upTime")= Now
Rs.Update
Rs.Close
Set Rs=Nothing
Response.Redirect("Admin_role.asp")
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -