📄 admin_userlevel.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="Admin_Chkpass.asp"-->
<%
dim action
Action=trim(request("Action"))
select case Action
case "saveconfig"
call saveconfig()
case "showconfig"
call showconfig()
case "modiconfig"
call modiconfig()
end select
%>
<html>
<head>
<title>用户组权限管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_STYLE.CSS" rel="stylesheet" type="text/css">
</head>
<%
sub showconfig()
dim rs
set rs=conn.execute("select id,levelname from userlevel ")
%>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<br>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr>
<td height="22" colspan="3" class="topbg"> <strong>用户组列表：</strong></td>
</tr>
<tr>
<td width="100" height="27" class="tdbg"><div align="center">ID</div></td>
<td width="200" class="tdbg"><div align="center">名称</div></td>
<td width="418" class="tdbg"><div align="left">权限管理</div></td>
</tr>
<tr>
<td height="27" colspan="3" class="tdbg"> <%
while not rs.eof
%>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="tdbg">
<tr>
<td width="100"><div align="center"><%= rs("id") %> </div></td>
<td width="200"><div align="center"><%= rs("levelname") %></div></td>
<td width="418">
<div align="left"><a href="admin_userlevel.asp?action=modiconfig&id=<%=rs("id")%>">修改设置</a></div></td>
</tr>
</table>
<%
rs.movenext
wend
%></td>
</tr>
<tr>
<td height="40" colspan="3" align="center" class="tdbg"> <div align="left">
</div></td>
</tr>
</table>
<%
set rs=nothing
call closeconn
end sub
sub saveconfig()
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select * from userlevel where id="&clng(request.QueryString("id"))
rs.open sql,conn,1,3
rs("enaddlog")=trim(request("enaddlog"))
rs("enaddcomment")=trim(request("enaddcomment"))
rs("enhidelog")=trim(request("enhidelog"))
rs("enpasswordlog")=trim(request("enpasswordlog"))
rs("enskin")=trim(request("enskin"))
rs("enuserskin")=trim(request("enuserskin"))
rs("endelmylog")=trim(request("endelmylog"))
rs("enmodimylog")=trim(request("enmodimylog"))
rs("endelmycomment")=trim(request("endelmycomment"))
rs("enmodimycomment")=trim(request("enmodimycomment"))
rs("endellog")=trim(request("endellog"))
rs("enmodilog")=trim(request("enmodilog"))
rs("endelcomment")=trim(request("endelcomment"))
rs("enmodicomment")=trim(request("enmodicomment"))
rs.update
rs.close
set rs=nothing
call closeconn
response.Redirect "admin_userlevel.asp?action=modiconfig&id="&clng(request.QueryString("id"))
end sub
sub modiconfig()
dim rs
set rs=conn.execute("select * from userlevel where id="&clng(request.QueryString("id")))
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr class="topbg">
<td height="22" colspan=2 align=center><strong>用户组权限设置管理</strong></td>
</tr>
<tr class="tdbg">
<td width="253" height="30"><strong>现在修改的是<%=rs("levelname")%>的权限</strong></td>
<td width="516" height="30"><a href="admin_userlevel.asp?action=showconfig"><strong>返回用户组设置</strong></a></td>
</tr>
</table>
<form method="POST" action="admin_userlevel.asp?id=<%=clng(request.QueryString("id"))%>" id="form1" name="form1">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr>
<td height="22" colspan="2" class="topbg"> <strong>权限设置：</strong></td>
</tr>
<tr>
<td width="355" height="25" class="tdbg">是否可以发表日志：</td>
<td width="414" height="25" class="tdbg"> <input type="radio" name="enaddlog" value="true" <%if rs("enaddlog")=true then response.write "checked"%>>
是 <input type="radio" name="enaddlog" value="false" <%if rs("enaddlog")=false then response.write "checked"%>>
否</td>
</tr>
<tr>
<td height="25" class="tdbg">是否可以发表回复：</td>
<td height="25" class="tdbg"> <input type="radio" name="enaddcomment" value="true" <%if rs("enaddcomment")=true then response.write "checked"%>>
是 <input type="radio" name="enaddcomment" value="false" <%if rs("enaddcomment")=false then response.write "checked"%>>
否</td>
</tr>
<tr>
<td height="25" class="tdbg">是否可以使用隐藏日志功能：</td>
<td height="25" class="tdbg"> <input type="radio" name="enhidelog" value="true" <%if rs("enhidelog")=true then response.write "checked"%>>
是 <input type="radio" name="enhidelog" value="false" <%if rs("enhidelog")=false then response.write "checked"%>>
否</td>
</tr>
<tr>
<td height="25" class="tdbg">是否可以使用日志密码功能：</td>
<td height="25" class="tdbg"> <input type="radio" name="enpasswordlog" value="true" <%if rs("enpasswordlog")=true then response.write "checked"%>>
是 <input type="radio" name="enpasswordlog" value="false" <%if rs("enpasswordlog")=false then response.write "checked"%>>
否</td>
</tr>
<tr>
<td height="25" class="tdbg">是否可以删除自己的日志：</td>
<td height="25" class="tdbg"> <input type="radio" name="endelmylog" value="true" <%if rs("endelmylog")=true then response.write "checked"%>>
是 <input type="radio" name="endelmylog" value="false" <%if rs("endelmylog")=false then response.write "checked"%>>
否</td>
</tr>
<tr>
<td height="25" class="tdbg">是否可以修改自己的日志</td>
<td height="25" class="tdbg"> <input type="radio" name="enmodimylog" value="true" <%if rs("enmodimylog")=true then response.write "checked"%>>
是 <input type="radio" name="enmodimylog" value="false" <%if rs("enmodimylog")=false then response.write "checked"%>>
否</td>
</tr>
<tr>
<td height="25" class="tdbg">是否可以删除自己的评论：</td>
<td height="25" class="tdbg"> <input type="radio" name="endelmycomment" value="true" <%if rs("endelmycomment")=true then response.write "checked"%>>
是 <input type="radio" name="endelmycomment" value="false" <%if rs("endelmycomment")=false then response.write "checked"%>>
否</td>
</tr>
<tr>
<td height="25" class="tdbg">是否可以修改自己的评论：</td>
<td height="25" class="tdbg"> <input type="radio" name="enmodimycomment" value="true" <%if rs("enmodimycomment")=true then response.write "checked"%>>
是 <input type="radio" name="enmodimycomment" value="false" <%if rs("enmodimycomment")=false then response.write "checked"%>>
否</td>
</tr>
<tr>
<td height="25" class="tdbg">是否可以使用更换系统模版：</td>
<td height="25" class="tdbg"> <input type="radio" name="enskin" value="true" <%if rs("enskin")=true then response.write "checked"%>>
是 <input type="radio" name="enskin" value="false" <%if rs("enskin")=false then response.write "checked"%>>
否</td>
</tr>
<tr>
<td height="25" class="tdbg">是否可以使用使用自定义模版：</td>
<td height="25" class="tdbg"> <input type="radio" name="enuserskin" value="true" <%if rs("enuserskin")=true then response.write "checked"%>>
是 <input type="radio" name="enuserskin" value="false" <%if rs("enuserskin")=false then response.write "checked"%>>
否</td>
</tr>
<tr>
<td height="25" class="tdbg">是否可以删除他人的日志：</td>
<td height="25" class="tdbg"> <input type="radio" name="endellog" value="true" <%if rs("endellog")=true then response.write "checked"%>>
是 <input type="radio" name="endellog" value="false" <%if rs("endellog")=false then response.write "checked"%>>
否</td>
</tr>
<tr>
<td height="25" class="tdbg">是否可以修改他人的日志：</td>
<td height="25" class="tdbg"> <input type="radio" name="enmodilog" value="true" <%if rs("enmodilog")=true then response.write "checked"%>>
是 <input type="radio" name="enmodilog" value="false" <%if rs("enmodilog")=false then response.write "checked"%>>
否</td>
</tr>
<tr>
<td height="25" class="tdbg">是否可以删除他人的评论：</td>
<td height="25" class="tdbg"> <input type="radio" name="endelcomment" value="true" <%if rs("endelcomment")=true then response.write "checked"%>>
是 <input type="radio" name="endelcomment" value="false" <%if rs("endelcomment")=false then response.write "checked"%>>
否</td>
</tr>
<tr>
<td height="25" class="tdbg">是否可以修改他人的评论：</td>
<td height="25" class="tdbg"> <input type="radio" name="enmodicomment" value="true" <%if rs("enmodicomment")=true then response.write "checked"%>>
是 <input type="radio" name="enmodicomment" value="false" <%if rs("enmodicomment")=false then response.write "checked"%>>
否</td>
</tr>
<tr>
<td height="25" colspan="2" class="tdbg"> </td>
</tr>
<tr>
<td height="40" colspan="2" align="center" class="tdbg"> <input name="Action" type="hidden" id="Action" value="saveconfig">
<input name="cmdSave" type="submit" id="cmdSave" value=" 保存设置 " > </td>
</tr>
</table>
</form>
</body>
</html>
<%
set rs=nothing
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -