📄 users.asp
字号:
<td bgcolor=#d7d7d7><input name="LastLoginTime" size="30" value="<%=LastLoginTime%>"></td>
</tr>
<tr>
<td bgcolor=#e7e7e7 valign=middle colspan=2 align=center>
<p align="left"><font color="#800000"><b>用户设置</b></font></td>
</tr>
<tr>
<td bgcolor=#d7d7d7><font color="#000077"><b>用户状态</b></font></td>
<td bgcolor=#d7d7d7>正常
<input type="radio" value="0" name="useraction" <%If Not UserAction Then Response.write "Checked"%>>
屏蔽
<input type="radio" value="1" name="useraction" <%If UserAction Then Response.write "Checked"%>> </td>
</tr>
<tr>
<td bgcolor=#e7e7e7 valign=middle colspan=2 align=center>
<input type="submit" value="编 辑" name="B1"></td></tr>
</form>
</table>
<%
End sub
%>
<%
Sub UserClass
%>
<table width=95% border=0 align="center" cellpadding=6 cellspacing=1 bgcolor="#FFFFFF">
<tr>
<td bgcolor=#e7e7e7 valign=middle colspan=5 align=center>
<font color="#800000"><b>组 户 组 管 理</b></font></td></tr>
<tr>
<td bgcolor=#d7d7d7 width="20%" align="center"><b><font color="#000077">
用户组</font></b></td>
<td bgcolor=#d7d7d7 width="20%" align="center"><font color="#000077"><b>
用户数量</b></font></td>
<td bgcolor=#d7d7d7 width="20%" align="center"><font color="#000077"><b>
编辑权限</b></font></td>
<td bgcolor=#d7d7d7 width="20%" align="center"><font color="#000077"><b>
例出所有用户</b></font></td>
<td bgcolor=#d7d7d7 width="20%" align="center"><font color="#000077"><b>
操作</b></font></td>
</tr>
<%
Dim User_Count,Uc
set rs=Conn.execute("Select ClassID,ClassName from YX_UserClass")
while not rs.eof
Set uc=Conn.execute("Select Count(ID) from YX_User Where ClassID="&Rs(0)&"")
User_Count=uc(0)
uc.close
set uc=nothing
%>
<tr>
<td bgcolor=#d7d7d7 width="20%" align="center"><%=rs("ClassName")%></td>
<td bgcolor=#d7d7d7 width="20%" align="center"><%=User_Count%></td>
<td bgcolor=#d7d7d7 width="20%" align="center"><a href="?Action=Classedit&ClassID=<%=rs("ClassID")%>">编辑</a></td>
<td bgcolor=#d7d7d7 width="20%" align="center"><a href="Users.Asp?ClassID=<%=Rs("ClassID")%>">查看</a></td>
<td bgcolor=#d7d7d7 width="20%" align="center"><a href="users.asp?Action=DelUserclass&ClassID=<%=Rs("ClassID")%>" onclick="checkclick('删除前请先将该组用户全部移动到其他组,否则后果自负!\n\n您确定要删除吗？')">删除</a></td>
</tr>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
<tr>
<td bgcolor=#e7e7e7 valign=middle colspan=5 align=center>
</td>
</tr>
</table>
<%
End Sub
Sub saveeditClass
Dim ClassID,ClassSetting,Sql
ClassID=Request.form("ClassID")
IF ClassID="" or not isNumeric(ClassID) then
Call GoBack("错误提示","参数错误码，请确认正确的参数。")
Exit sub
End if
ClassSetting=Request.form("CanViewUserinfo") & "," & Request.form("CanViewNewTopic") & "," & Request.form("CanViewTopicDigest") & "," & Request.form("CanNewTopic") & "," & Request.form("CanPostMyTopic") & "," & Request.form("CanPostOrtherTopic") & "," & Request.form("CanUpfile") & "," & Request.form("CanNewTopicVote") & "," & Request.form("CanPostTopicVote") & "," & Request.form("CanEditMyTopic") & "," & Request.form("CanSendMessage") & "," & Request.form("SendMaxCount") & "," & Request.form("SendMessageMaxSize") & "," & Request.Form("SmsBoxMaxSize") & "," & Request.form("CanDelTopic") & "," & Request.form("CanMoveTopic") & "," & Request.form("CanTopTopic") & "," & Request.form("CanTTopTopic") & ","& Request.form("CanEditTopic") & "," & Request.form("CanDigestTopic") & "," & Request.form("CanLockTopic") & "," & Request.form("TsTopic")
Dim Rs
Set rs=server.createobject("Adodb.Recordset")
sql="select * from YX_UserClass where ClassID="& Request.form("ClassID")
rs.open sql,conn,1,3
If not (rs.eof and rs.bof) then
'rs("ClassName")=ClassName
rs("ClassSetting")=ClassSetting
rs.update
Else
Call GoBack("错误提示","没有此用户组，或者已被删除。")
Exit sub
End if
rs.close
Set rs=nothing
Call Suc("","用户组修改成功！","?")
End sub
Sub UserClassEdit
Dim Rs,ClassID,ClassName,ClassSetting
ClassID=Request("ClassID")
if Not IsNumeric(ClassID) then
Call GoBack("错误提示","参数错误，请提交正确的参数")
Exit sub
end if
set rs=Conn.execute("Select * from YX_UserClass where ClassID="& ClassID)
if rs.eof or rs.bof then
Call GoBack("错误提示","找不到此用户组或已被删除。")
Exit sub
else
ClassName=rs("ClassName")
ClassSetting=split(rs("ClassSetting"),",")
%>
<form action="?action=saveeditClass" method=post name="creator">
<table width=95% border=0 align="center" cellpadding=6 cellspacing=1 bgcolor="#FFFFFF">
<tr>
<td bgcolor=#e7e7e7 valign=middle colspan=2 align=center>
<font color="#800000"><b>用 户 组 编 辑</b></font></td></tr>
<tr>
<td bgcolor=#d7d7d7 width="35%">组名称</td>
<td bgcolor=#d7d7d7><INPUT TYPE="hidden" name="ClassID" value="<%=ClassID%>">
<input name="ClassName" size="20" value="<%=ClassName%>" readonly> </td>
</tr><tr>
<td bgcolor=#E7E7E7 colspan="2"><font color="#000077"><b>一般权限</b></font></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以查看会员信息</td>
<td bgcolor=#d7d7d7>是<input name="canviewuserinfo" type="radio" value="1" <%if ClassSetting(0)=1 then response.write "checked"%>> 否<input name="canviewuserinfo" type="radio" value="0" <%if ClassSetting(0)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以查看其他人发布的主题</td>
<td bgcolor=#d7d7d7>是<input name="CanViewNewTopic" type="radio" value="1" <%if ClassSetting(1)=1 then response.write "checked"%>> 否<input name="CanViewNewTopic" type="radio" value="0" <%if ClassSetting(1)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以浏览精华帖子</td>
<td bgcolor=#d7d7d7>是<input name="canviewTopicDigest" type="radio" value="1" <%if ClassSetting(2)=1 then response.write "checked"%>> 否<input name="canviewTopicDigest" type="radio" value="0" <%if ClassSetting(2)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以发布新主题</td>
<td bgcolor=#d7d7d7>是<input name="CanNewTopic" type="radio" value="1" <%if ClassSetting(3)=1 then response.write "checked"%>> 否<input name="CanNewTopic" type="radio" value="0" <%if ClassSetting(3)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以回复自己的主题</td>
<td bgcolor=#d7d7d7>是<input name="CanPostMyTopic" type="radio" value="1" <%if ClassSetting(4)=1 then response.write "checked"%>> 否<input name="CanPostMyTopic" type="radio" value="0" <%if ClassSetting(4)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以回复其他人的主题</td>
<td bgcolor=#d7d7d7>是<input name="CanPostOrtherTopic" type="radio" value="1" <%if ClassSetting(5)=1 then response.write "checked"%>> 否<input name="CanPostOrtherTopic" type="radio" value="0" <%if ClassSetting(5)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以上传附件 </td>
<td bgcolor=#d7d7d7>是<input name="CanUpfile" type="radio" value="1" <%if ClassSetting(6)=1 then response.write "checked"%>> 否<input name="CanUpfile" type="radio" value="0" <%if ClassSetting(6)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以发布新投票</td>
<td bgcolor=#d7d7d7>是<input name="CanNewTopicVote" type="radio" value="1" <%if ClassSetting(7)=1 then response.write "checked"%>> 否<input name="CanNewTopicVote" type="radio" value="0" <%if ClassSetting(7)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以参与投票</td>
<td bgcolor=#d7d7d7>是<input name="CanPostTopicVote" type="radio" value="1" <%if ClassSetting(8)=1 then response.write "checked"%>> 否<input name="CanPostTopicVote" type="radio" value="0" <%if ClassSetting(8)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以编辑自己的帖子</td>
<td bgcolor=#d7d7d7>是<input name="CanEditMyTopic" type="radio" value="1" <%if ClassSetting(9)=1 then response.write "checked"%>> 否<input name="CanEditMyTopic" type="radio" value="0" <%if ClassSetting(9)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以发送短信</td>
<td bgcolor=#d7d7d7>是<input name="CanSendMessage" type="radio" value="1" <%if ClassSetting(10)=1 then response.write "checked"%>> 否<input name="CanSendMessage" type="radio" value="0" <%if ClassSetting(10)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#d7d7d7>每天最多上传附件</td>
<td bgcolor=#d7d7d7><input name="SendMaxCount" size="10" value="<%=ClassSetting(11)%>"></td>
</tr><tr>
<td bgcolor=#d7d7d7>上传附件大小限制</td>
<td bgcolor=#d7d7d7><input name="SendMessageMaxSize" size="10" value="<%=ClassSetting(12)%>">byte</td>
</tr><tr>
<td bgcolor=#d7d7d7>信箱大小限制</td>
<td bgcolor=#d7d7d7><input name="SmsBoxMaxSize" size="10" value="<%=ClassSetting(13)%>">KB</td>
</tr><tr>
<td bgcolor=#E7E7E7 colspan="2"><font color="#000077"><b>管理权限</b></font></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以删除其它人帖子</td>
<td bgcolor=#d7d7d7>是<input name="CanDelTopic" type="radio" value="1" <%if ClassSetting(14)=1 then response.write "checked"%>> 否<input name="CanDelTopic" type="radio" value="0" <%if ClassSetting(14)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以移动其它人帖子</td>
<td bgcolor=#d7d7d7>是<input name="CanMoveTopic" type="radio" value="1" <%if ClassSetting(15)=1 then response.write "checked"%>> 否<input name="CanMoveTopic" type="radio" value="0" <%if ClassSetting(15)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以固顶/解除固顶帖子</td>
<td bgcolor=#d7d7d7>是<input name="CanTopTopic" type="radio" value="1" <%if ClassSetting(16)=1 then response.write "checked"%>> 否<input name="CanTopTopic" type="radio" value="0" <%if ClassSetting(16)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以进行帖子总固顶操作</td>
<td bgcolor=#d7d7d7>是<input name="CanTTopTopic" type="radio" value="1" <%if ClassSetting(17)=1 then response.write "checked"%>> 否<input name="CanTTopTopic" type="radio" value="0" <%if ClassSetting(17)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以编辑其它人帖子</td>
<td bgcolor=#d7d7d7>是<input name="CanEditTopic" type="radio" value="1" <%if ClassSetting(18)=1 then response.write "checked"%>> 否<input name="CanEditTopic" type="radio" value="0" <%if ClassSetting(18)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以加入/解除精华帖子</td>
<td bgcolor=#d7d7d7>是<input name="CanDigestTopic" type="radio" value="1" <%if ClassSetting(19)=1 then response.write "checked"%>> 否<input name="CanDigestTopic" type="radio" value="0" <%if ClassSetting(19)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以锁定/解除锁定其它人帖子</td>
<td bgcolor=#d7d7d7>是<input name="CanLockTopic" type="radio" value="1" <%if ClassSetting(20)=1 then response.write "checked"%>> 否<input name="CanLockTopic" type="radio" value="0" <%if ClassSetting(20)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以提升他人帖子</td>
<td bgcolor=#d7d7d7>是<input name="TsTopic" type="radio" value="1" <%if ClassSetting(21)=1 then response.write "checked"%>> 否<input name="TsTopic" type="radio" value="0" <%if ClassSetting(21)=0 then response.write "checked"%>></td>
</tr><tr>
<td bgcolor=#e7e7e7 valign=middle colspan=2 align=center>
<input type="submit" value="修 改" name="B1"></td></tr>
</table>
</form>
<%
end if
End sub
Sub saveaddClass
Dim ClassName,ClassSetting
ClassName=Request.form("ClassName")
IF ClassName="" then
Call GoBack("","您没有输入组名,请输入组名。")
Exit sub
End if
ClassSetting=Request.form("CanViewUserinfo") & "," & Request.form("CanViewNewTopic") & "," & Request.form("CanViewTopicDigest") & "," & Request.form("CanNewTopic") & "," & Request.form("CanPostMyTopic") & "," & Request.form("CanPostOrtherTopic") & "," & Request.form("CanUpfile") & "," & Request.form("CanNewTopicVote") & "," & Request.form("CanPostTopicVote") & "," & Request.form("CanEditMyTopic") & "," & Request.form("CanSendMessage") & "," & Request.form("SendMaxCount") & "," & Request.form("SendMessageMaxSize") & "," & Request.form("MessageMaxSize") & "," & Request.form("CanDelTopic") & "," & Request.form("CanMoveTopic") & "," & Request.form("CanTopTopic") & "," & Request.form("CanTTopTopic") & ","& Request.form("CanEditTopic") & "," & Request.form("CanDigestTopic") & "," & Request.form("CanLockTopic") & "," & Request.form("TsTopic")
Dim Rs
Set rs=Conn.Execute("Select * from YX_UserGrade where GradeName='" & ClassName & "'")
If Not(rs.eof and rs.bof) then
Call GoBack("","该等级名称已经存在!")
Exit sub
End if
Dim Sql
Set Rs=Server.CreateObject("Adodb.Recordset")
sql="select * from YX_UserClass where ClassName='"& ClassName &"'"
rs.open sql,conn,1,3
If rs.eof or rs.bof then
rs.addnew
rs("ClassName")=ClassName
rs("ClassSetting")=ClassSetting
rs.update
Else
Call GoBack("","该用户组名称已经存在！")
Exit sub
End if
rs.close
set rs=nothing
Call Suc("","用户组添加成功！","?Action=UserClass")
End sub
Sub UserClassAdd
%>
<form action="?action=saveaddClass" method=post name="creator">
<table width=95% border=0 align="center" cellpadding=6 cellspacing=1 bgcolor="#FFFFFF">
<tr>
<td bgcolor=#e7e7e7 valign=middle colspan=2 align=center>
<font color="#800000"><b>用 户 组 添 加</b></font></td></tr>
<tr>
<td bgcolor=#d7d7d7 width="35%">组名称</td>
<td bgcolor=#d7d7d7>
<input name="ClassName" size="20"> </td>
</tr><tr>
<td bgcolor=#E7E7E7 colspan="2"><font color="#000077"><b>一般权限</b></font></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以查看会员信息</td>
<td bgcolor=#d7d7d7>是<input CHECKED name="canviewuserinfo" type="radio" value="1"> 否<input name="canviewuserinfo" type="radio" value="0"></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以查看其他人发布的主题</td>
<td bgcolor=#d7d7d7>是<input CHECKED name="CanViewNewTopic" type="radio" value="1"> 否<input name="CanViewNewTopic" type="radio" value="0"></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以浏览精华帖子</td>
<td bgcolor=#d7d7d7>是<input CHECKED name="canviewTopicDigest" type="radio" value="1"> 否<input name="canviewTopicDigest" type="radio" value="0"></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以发布新主题</td>
<td bgcolor=#d7d7d7>是<input CHECKED name="CanNewTopic" type="radio" value="1"> 否<input name="CanNewTopic" type="radio" value="0"></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以回复自己的主题</td>
<td bgcolor=#d7d7d7>是<input CHECKED name="CanPostMyTopic" type="radio" value="1"> 否<input name="CanPostMyTopic" type="radio" value="0"></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以回复其他人的主题</td>
<td bgcolor=#d7d7d7>是<input CHECKED name="CanPostOrtherTopic" type="radio" value="1"> 否<input name="CanPostOrtherTopic" type="radio" value="0"></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以上传附件 </td>
<td bgcolor=#d7d7d7>是<input CHECKED name="CanUpfile" type="radio" value="1"> 否<input name="CanUpfile" type="radio" value="0"></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以发布新投票</td>
<td bgcolor=#d7d7d7>是<input CHECKED name="CanNewTopicVote" type="radio" value="1"> 否<input name="CanNewTopicVote" type="radio" value="0"></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以参与投票</td>
<td bgcolor=#d7d7d7>是<input CHECKED name="CanPostTopicVote" type="radio" value="1"> 否<input name="CanPostTopicVote" type="radio" value="0"></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以编辑自己的帖子</td>
<td bgcolor=#d7d7d7>是<input CHECKED name="CanEditMyTopic" type="radio" value="1"> 否<input name="CanEditMyTopic" type="radio" value="0"></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以发送短信</td>
<td bgcolor=#d7d7d7>是<input name="CanSendMessage" type="radio" value="1" checked> 否<input name="CanSendMessage" type="radio" value="0"></td>
</tr><tr>
<td bgcolor=#d7d7d7>最多发送用户</td>
<td bgcolor=#d7d7d7><input name="SendMaxCount" size="10" value="5"></td>
</tr><tr>
<td bgcolor=#d7d7d7>短信内容大小限制</td>
<td bgcolor=#d7d7d7>
<input name="SendMessageMaxSize" size="10" value="300">byte</td>
</tr><tr>
<td bgcolor=#d7d7d7>信箱大小限制</td>
<td bgcolor=#d7d7d7><input name="MessageMaxSize" size="10" value="100">KB</td>
</tr><tr>
<td bgcolor=#E7E7E7 colspan="2"><font color="#000077"><b>管理权限</b></font></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以删除其它人帖子</td>
<td bgcolor=#d7d7d7>是<input name="CanDelTopic" type="radio" value="1"> 否<input name="CanDelTopic" type="radio" value="0" checked></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以移动其它人帖子</td>
<td bgcolor=#d7d7d7>是<input name="CanMoveTopic" type="radio" value="1"> 否<input name="CanMoveTopic" type="radio" value="0" checked></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以固顶/解除固顶帖子</td>
<td bgcolor=#d7d7d7>是<input name="CanTopTopic" type="radio" value="1"> 否<input name="CanTopTopic" type="radio" value="0" checked></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以进行帖子总固顶操作</td>
<td bgcolor=#d7d7d7>是<input name="CanTTopTopic" type="radio" value="1"> 否<input name="CanTTopTopic" type="radio" value="0" checked></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以编辑其它人帖子</td>
<td bgcolor=#d7d7d7>是<input name="CanEditTopic" type="radio" value="1"> 否<input name="CanEditTopic" type="radio" value="0" checked></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以加入/解除精华帖子</td>
<td bgcolor=#d7d7d7>是<input name="CanDigestTopic" type="radio" value="1"> 否<input name="CanDigestTopic" type="radio" value="0" checked></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以锁定/解除锁定其它人帖子</td>
<td bgcolor=#d7d7d7>是<input name="CanLockTopic" type="radio" value="1"> 否<input name="CanLockTopic" type="radio" value="0" checked></td>
</tr><tr>
<td bgcolor=#d7d7d7>可以提升他人帖子</td>
<td bgcolor=#d7d7d7>是<input name="TsTopic" type="radio" value="1"> 否<input name="TsTopic" type="radio" value="0" checked></td>
</tr><tr>
<td bgcolor=#e7e7e7 valign=middle colspan=2 align=center>
<input type="submit" value="添 加" name="B1"></td></tr>
</table>
</form>
<%
End sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -