📄 users.asp
字号:
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=#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")
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=#e7e7e7 valign=middle colspan=2 align=center>
<input type="submit" value="添 加" name="B1"></td></tr>
</table>
</form>
<%
End sub%>
<%
Sub OutMail
Dim I,Temp,MailFso,MailObj,MailRs,USex,UBurn
I=1
Set MailFso=Server.CreateObject("Scripting.FileSystemObject")
Set MailObj=MailFso.CreateTextFile(Server.MapPath("outmail.csv"),True)
MailObj.Write"姓名,电子邮件地址,QQ,个人主页,性别,生日,foxaddrID"
Set MailRs=yxbbs.Execute("Select Name,Mail,QQ,Home,Sex,Birthday From yx_User")
Do While Not MailRs.Eof
If IsDate(MailRs("Birthday")) Then
UBurn=MailRs("Birthday")
Else
UBurn=""
End if
If MailRs("Sex") Then
USex="男"
Else
Usex="女"
End If
MailObj.Write VbCrlf&MailRs("Name")&","&MailRs("Mail")&","&MailRs("QQ")&","&MailRs("Home")&","&USex&","&UBurn&","&I
I=I+1
MailRs.MoveNext
Loop
MailRs.Close
Set MailFso=Nothing
Call Suc("","导出<span style=""color:#ff0000"">"&I&"</span>条记录.论坛管理目录下找到outmail.csv,将其导入foxmail就可以了(导入方法可以看看foxmail帮助),建议您在下载完outmail.csv后将其删除以免别人下载,并且在导入到foxmail后最好压缩修复一下.","?")
End Sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -