📄 admin_role.asp
字号:
<!--#include file="Conn.asp" -->
<!--#include file="Inc/function.asp"-->
<!--#include file = "admin_checkmana.asp"-->
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'论坛支持：风讯在线论坛(http://bbs.cooin.com http://bbs.foosun.net)
'=========================================================
if EnoughPopedom("role1")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
const MaxPerPage=20
dim strFileName,totalput
strFileName="Admin_role.asp"
%>
<html>
<head>
<title>角色管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/css.css" type="text/css">
</head>
<body bgcolor="#FFFFFF">
<%
Select Case Request("Work")
Case "SaveMdy"
Call SaveMdy()
Case "DelReco"
Call DelReco()
Case "AddReco"
Call AddReco()
Case "SaveAddReco"
Call SaveAddReco()
case "mdyreco"
call mdyreco()
Case Else
Call main()
End Select
%>
<%
sub main()
Dim Rs
Set Rs=Server.CreateObject("ADODB.RecordSet")
Dim Sql
Sql="SELECT * From Role Order By ID DESC"
Rs.Open Sql,Conn,1,1
Dim CurrentPage
If Request("CurrentPage")="" Then
CurrentPage=1
Else
CurrentPage=Request("CurrentPage")
End If
Rs.PageSize=20
totalPut=rs.recordcount
If Not(Rs.Eof And Rs.Bof) Then
Rs.AbsolutePage=CurrentPage
End If
%>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#7ED3A7" class="ContentTabBg">
<tr bgcolor="#F7FFF4" class="BarTitleBg">
<td height="15" colspan="5">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b><strong>角 色 管 理 </strong></b> <a href="Admin_role.asp?work=AddReco"><font color="#FF0000">添加新角色</font></a>
<font color="#FF0000">| <a href="Admin_role.asp"><font color="#FF0001">角色管理首页</font></a></font><a href="Admin_role.asp"> </a></div></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#E3FFD9" class="BarTitleBg">
<td width="9%" height="15">记录ID</td>
<td bgcolor="#E3FFD9">角色名称</td>
<td bgcolor="#E3FFD9">角色简介</td>
<td width="14%" align="center">更新时间</td>
<td width="15%" align="center">编辑</td>
</tr>
<%
Dim I
For I=1 To Rs.PageSize
If Rs.Eof Then
Exit For
End If
%>
<tr bgcolor="#F7FFF4">
<td width="9%" height="24" class="BarTitle"><%=Rs("Id")%></td>
<td width="24%"><%=Rs("Title")%></td>
<td width="38%" bgcolor="#F7FFF4"><%=Rs("Content")%></td>
<td width="14%" align="center"><%=FormatDateTime(Rs("upTime"),2)%></td>
<td width="15%" align="center">
<% response.write "<a href='Admin_role.asp?work=mdyreco&ID=" & rs("id") & "'>"
response.write "编 辑" & "</a>" %>
</td>
</tr>
<%
Rs.MoveNext
Next
%>
</table>
<table width="100%" border="0" cellpadding="5" cellspacing="0">
<tr>
<td align="right">
<% showpage strFileName,totalput,MaxPerPage,true,true,"个角色"
%>
</td>
</tr>
</table>
<% end sub %>
<%
Sub MdyReco()
Dim Rs
Set Rs=Conn.ExeCute("Select * From Role Where Id=" & Request("Id"))
If Rs.Eof And Rs.Bof Then
Rs.Close
Set Rs=Nothing
Response.Write("记录未找到")
Response.End
End If
Dim Id,Title,Content,Popedom,ClassPopedomList,ClassId
Id=Rs("Id")
Title=Rs("Title")
Content=Rs("Content")
' Popedom=Rs("Popedom")
' ClassPopedomList=Rs("ClassPopedom")
' ClassId=Rs("ClassId")
%>
<form name="form1" method="post" action="?Work=SaveMdy" onSubmit="return checkMdyReco(this)">
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#7ED3A7" class="ContentTabBg">
<tr bgcolor="#F7FFF4">
<td colspan="2" align="center" class="BarTitleBg"> <table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><strong>编 辑 角 色<b><strong> </strong></b></strong> <a href="Admin_role.asp?work=AddReco"><font color="#FF0000">添加新角色</font></a>
<font color="#FF0000">| <a href="Admin_role.asp"><font color="#FF0001">角色管理首页</font></a></font><a href="Admin_role.asp"> </a></div></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#F7FFF4">
<td width="16%" bgcolor="#F7FFF4" class="BarTitle"><div align="right">ID:</div></td>
<td width="84%" bgcolor="#F7FFF4"> <input name="Id" type="text" class="Input" id="Id2" value="<%=Id%>" size="4" readonly="true"></td>
</tr>
<tr bgcolor="#F7FFF4">
<td bgcolor="#F7FFF4" class="BarTitle"><div align="right">角色标题:</div></td>
<td> <input name="Title" type="text" class="Input" id="Title" value="<%=Title%>" size="40" ></td>
</tr>
<tr bgcolor="#F7FFF4">
<td width="16%" bgcolor="#F7FFF4" class="BarTitle"><div align="right">角色简介:</div></td>
<td width="84%"> <input name="Content" type="text" class="Input" id="Content" value="<%=Content%>" size="40"></td>
</tr>
<tr bgcolor="#F7FFF4">
<td width="16%" valign="top" bgcolor="#F7FFF4" class="BarTitle"><div align="right">角色权限:<br>
</div></td>
<td> <table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="49%" class="td0"><strong>网站管理权限</strong> <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#7ED3A7">
<tr>
<td width="32%" bgcolor="#EFFFE8" class="td1"> <input name="popedom" type="checkbox" id="popedom" value="add" <%if CheckPurview(rs("popedom"),"add")=True then response.write "checked"%>>
信息添加/管理</td>
<td width="68%" bgcolor="#EFFFE8" class="td2"> <input name="popedom" type="checkbox" id="popedom" value="class" <%if CheckPurview(rs("popedom"),"class")=True then response.write "checked"%>>
栏目管理</td>
</tr>
<tr>
<td bgcolor="#EFFFE8" class="td1"> <input name="popedom" type="checkbox" id="popedom" value="check" <%if CheckPurview(rs("popedom"),"check")=True then response.write "checked"%>>
新闻审核</td>
<td bgcolor="#EFFFE8" class="td2"> <input name="popedom" type="checkbox" id="popedom" value="review" <%if CheckPurview(rs("popedom"),"review")=True then response.write "checked"%>>
评论管理</td>
</tr>
<tr>
<td bgcolor="#EFFFE8" class="td1"> <input name="popedom" type="checkbox" id="popedom" value="special" <%if CheckPurview(rs("popedom"),"special")=True then response.write "checked"%>>
专题管理</td>
<td bgcolor="#EFFFE8" class="td2"> </td>
</tr>
<tr>
<td bgcolor="#EFFFE8" class="td1"> <input name="popedom" type="checkbox" id="popedom" value="caiji" <%if CheckPurview(rs("popedom"),"caiji")=True then response.write "checked"%>>
<font color="#FF0000">信息采集</font></td>
<td bgcolor="#EFFFE8" class="td2"> <input name="popedom" type="checkbox" id="popedom" value="templet" <%if CheckPurview(rs("popedom"),"templet")=True then response.write "checked"%>>
类别 模板管理/
<input name="popedom" type="checkbox" id="popedom" value="templeti" <%if CheckPurview(rs("popedom"),"templeti")=True then response.write "checked"%>>
首页模板/专题模板 /
<input name="popedom" type="checkbox" id="popedom" value="templetp" <%if CheckPurview(rs("popedom"),"templetp")=True then response.write "checked"%>>
图片模板/
<input name="popedom" type="checkbox" id="popedom" value="templetto" <%if CheckPurview(rs("popedom"),"templetto")=True then response.write "checked"%>>
摸班捆绑</td>
</tr>
<tr>
<td bgcolor="#EFFFE8" class="td1"> <input name="popedom" type="checkbox" id="popedom" value="pic" <%if CheckPurview(rs("popedom"),"pic")=True then response.write "checked"%>>
<font color="#FF0000">图片管理</font></td>
<td bgcolor="#EFFFE8" class="td2"> <input name="popedom" Disabled type="checkbox" id="popedom" value="block" <%if CheckPurview(rs("popedom"),"block")=True then response.write "checked"%>>
<font color="#FF0000">块操作</font></td>
</tr>
<tr>
<td bgcolor="#EFFFE8" class="td1"> <input name="popedom" type="checkbox" id="popedom" value="site" <%if CheckPurview(rs("popedom"),"site")=True then response.write "checked"%>>
<font color="#FF0000">站点管理</font></td>
<td bgcolor="#EFFFE8" class="td2"><input name="popedom" type="checkbox" id="popedom" value="makeclass" <%if CheckPurview(rs("popedom"),"makeclass")=True then response.write "checked"%>>
生成所有分类(信息/图片/专题) </td>
</tr>
<tr>
<td bgcolor="#EFFFE8" class="td1"><input name="popedom" type="checkbox" id="popedom" value="makehtml" <%if CheckPurview(rs("popedom"),"makehtml")=True then response.write "checked"%>>
生成所有新闻(信息/图片/并排) </td>
<td bgcolor="#EFFFE8" class="td2"><input name="popedom" type="checkbox" id="popedom" value="makeindex" <%if CheckPurview(rs("popedom"),"makeindex")=True then response.write "checked"%>>
生成首页(信息/图片/专题/下载) </td>
</tr>
<tr>
<td bgcolor="#EFFFE8" class="td1"><input name="popedom" type="checkbox" id="popedom" value="makedh" <%if CheckPurview(rs("popedom"),"makedh")=True then response.write "checked"%>>
生成导航(信息/图片) </td>
<td bgcolor="#EFFFE8" class="td2"><input name="popedom" type="checkbox" id="popedom" value="js" <%if CheckPurview(rs("popedom"),"js")=True then response.write "checked"%>>
<font color="#FF0000">调用管理 </font>/
<input name="popedom" type="checkbox" id="popedom" value="jsm" <%if CheckPurview(rs("popedom"),"jsm")=True then response.write "checked"%>>
js管理
<input name="popedom" type="checkbox" id="popedom" value="jsmake" <%if CheckPurview(rs("popedom"),"jsmake")=True then response.write "checked"%>>
自由js生成</td>
</tr>
<tr>
<td bgcolor="#EFFFE8" class="td1"> <input name="popedom" type="checkbox" id="popedom" value="changgui" <%if CheckPurview(rs("popedom"),"changgui")=True then response.write "checked"%>>
<font color="#FF0000">常规管理</font></td>
<td bgcolor="#EFFFE8" class="td2"> <input name="popedom" type="checkbox" id="popedom" value="contribute" <%if CheckPurview(rs("popedom"),"contribute")=True then response.write "checked"%>>
<font color="#FF0000">投稿管理</font></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -