📄 users.asp
字号:
<div class="td1 h20">可以上传附件</div>
<div class="td2 h20">是<input name="canupfile" type="radio" value="1" <%if classsetting(6)=1 then response.write "checked=""true"""%>> 否<input name="canupfile" type="radio" value="0" <%if classsetting(6)=0 then response.write "checked=""true"""%>></div>
<div class="td1 h20">可以发布新投票</div>
<div class="td2 h20">是<input name="cannewtopicvote" type="radio" value="1" <%if classsetting(7)=1 then response.write "checked=""true"""%>> 否<input name="cannewtopicvote" type="radio" value="0" <%if classsetting(7)=0 then response.write "checked=""true"""%>></div>
<div class="td1 h20">可以参与投票</div>
<div class="td2 h20">是<input name="canposttopicvote" type="radio" value="1" <%if classsetting(8)=1 then response.write "checked=""true"""%>> 否<input name="canposttopicvote" type="radio" value="0" <%if classsetting(8)=0 then response.write "checked=""true"""%>></div>
<div class="td1 h20">可以编辑自己的帖子</div>
<div class="td2 h20">是<input name="caneditmytopic" type="radio" value="1" <%if classsetting(9)=1 then response.write "checked=""true"""%>> 否<input name="caneditmytopic" type="radio" value="0" <%if classsetting(9)=0 then response.write "checked=""true"""%>></div>
<div class="td1 h20">可以发送短信</div>
<div class="td2 h20">是<input name="cansendmessage" type="radio" value="1" <%if classsetting(10)=1 then response.write "checked=""true"""%>> 否<input name="cansendmessage" type="radio" value="0" <%if classsetting(10)=0 then response.write "checked=""true"""%>></div>
<div class="td1 h20">每日最多上传</div>
<div class="td2 h20"><input name="sendmaxcount" size="10" value="<%=classsetting(11)%>"></div>
<div class="td1 h20">上传大小限制</div>
<div class="td2 h20"><input name="sendmessagemaxsize" size="10" value="<%=classsetting(12)%>"> KB</div>
<div class="td1 h20">信箱大小限制</div>
<div class="td2 h20"><input name="smsboxmaxsize" size="10" value="<%=classsetting(13)%>"> KB</div>
<div style="clear: both;"></div><div class="tf">管理权限</div>
<div class="td1 h20">可以删除其它人帖子</div>
<div class="td2 h20">是<input name="candeltopic" type="radio" value="1" <%if classsetting(14)=1 then response.write "checked=""true"""%>> 否<input name="candeltopic" type="radio" value="0" <%if classsetting(14)=0 then response.write "checked=""true"""%>></div>
<div class="td1 h20">可以移动其它人帖子</div>
<div class="td2 h20">是<input name="canmovetopic" type="radio" value="1" <%if classsetting(15)=1 then response.write "checked=""true"""%>> 否<input name="canmovetopic" type="radio" value="0" <%if classsetting(15)=0 then response.write "checked=""true"""%>></div>
<div class="td1 h20">可以固顶/解除固顶帖子</div>
<div class="td2 h20">是<input name="cantoptopic" type="radio" value="1" <%if classsetting(16)=1 then response.write "checked=""true"""%>> 否<input name="cantoptopic" type="radio" value="0" <%if classsetting(16)=0 then response.write "checked=""true"""%>></div>
<div class="td1 h20">可以进行帖子总固顶操作</div>
<div class="td2 h20">是<input name="canttoptopic" type="radio" value="1" <%if classsetting(17)=1 then response.write "checked=""true"""%>> 否<input name="canttoptopic" type="radio" value="0" <%if classsetting(17)=0 then response.write "checked=""true"""%>></div>
<div class="td1 h20">可以编辑其它人帖子</div>
<div class="td2 h20">是<input name="canedittopic" type="radio" value="1" <%if classsetting(18)=1 then response.write "checked=""true"""%>> 否<input name="canedittopic" type="radio" value="0" <%if classsetting(18)=0 then response.write "checked=""true"""%>></div>
<div class="td1 h20">可以加入/解除精华帖子</div>
<div class="td2 h20">是<input name="candigesttopic" type="radio" value="1" <%if classsetting(19)=1 then response.write "checked=""true"""%>> 否<input name="candigesttopic" type="radio" value="0" <%if classsetting(19)=0 then response.write "checked=""true"""%>></div>
<div class="td1 h20">可以锁定/解除锁定其它人帖子</div>
<div class="td2 h20">是<input name="canlocktopic" type="radio" value="1" <%if classsetting(20)=1 then response.write "checked=""true"""%>> 否<input name="canlocktopic" type="radio" value="0" <%if classsetting(20)=0 then response.write "checked=""true"""%>></div>
<div class="td1 h20">可以提升他人帖子</div>
<div class="td2 h20">是<input name="tstopic" type="radio" value="1" <%if classsetting(21)=1 then response.write "checked=""true"""%>> 否<input name="tstopic" type="radio" value="0" <%if classsetting(21)=0 then response.write "checked=""true"""%>></div>
<div style="clear: both;"></div><div class="tf jz"><input type="submit" value="修 改" name="b1"></div></div>
</form>
<%
end if
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("","用户组修改成功！","?action=userclass")
end sub
sub deluserclass
dim classid
classid=request("classid")
yxbbs.execute("delete * from [yx_userclass] where classid="&classid&"")
call suc("","用户组删除成功！建议您到更新用户数据中进行更新操作！","?action=userclass")
end sub
sub usergradeadd
%>
<form action="?action=saveaddgrade" method=post>
<div class="ta">
<div class="th jz">添加新的用户等级</div>
<div class="td1 h20">名称</div>
<div class="td2 h20"><input name="gradename" size="30"></div>
<div class="td1 h20">等级</div>
<div class="td2 h20"><input name="gradenum" size="30"></div>
<div class="td1 h20">图片</div>
<div class="td2 h20"><input name="gradepic" size="30"></div>
<div class="td1 h20">最少发贴量</div>
<div class="td2 h20"><input name="userminpostnum" size="30"></div>
<div class="td1 h20">所属用户组</div>
<div class="td2 h20"><select size="1" name="classid">
<%
dim rs
set rs=conn.execute("select classid,classname from yx_userclass order by classid asc")
while not rs.eof
%>
<option value="<%=rs("classid")%>"><%=rs("classname")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</select></div>
<div style="clear: both;"></div><div class="tf jz"><input type="submit" value="添 加" name="b1"></div>
</div></form>
<%
end sub
sub saveaddgrade
dim gradename,gradenum,gradepic,userminpostnum,classid,flag,errstr
gradename=request.form("gradename")
gradenum=request.form("gradenum")
gradepic=request.form("gradepic")
userminpostnum=request.form("userminpostnum")
classid=request.form("classid")
flag=false
errstr=""
if gradename="" then
errstr="<li>等级名没写。</li><br />"
flag=true
end if
if gradenum="" then
errstr=errstr&"<li>等级序号没写。</li><br />"
flag=true
elseif not isnumeric(gradenum) then
errstr=errstr&"<li>等级序号只能是数字。</li><br />"
flag=true
end if
if gradepic="" then
errstr=errstr&"<li>等级图片没有。</li><br />"
flag=true
end if
if userminpostnum="" then
errstr=errstr&"<li>新的等级需要文章数没写</li>"
flag=true
elseif not isnumeric(userminpostnum) then
errstr=errstr&"<li>新的等级文章数只能是数字</li>"
flag=true
end if
if flag then
call goback("错误提示",errstr)
exit sub
end if
dim rs,sql
set rs = server.createobject ("adodb.recordset")
sql="select * from yx_usergrade where gradename='" & gradename& "'"
rs.open sql,conn,1,3
if rs.eof or rs.bof then
rs.addnew
rs("gradename")=gradename
rs("gradenum")=gradenum
rs("gradepic")=gradepic
rs("userminpostnum")=userminpostnum
rs("classid")=classid
rs.update
else
call goback("","<li>该等级名称已经存在。")
exit sub
end if
rs.close
set rs=nothing
call suc("","用户等级添加成功！建议您到更新用户数据中进行更新操作！","?action=usergrade")
end sub
sub usergrade
%>
<form method="post" action="?action=updategrade">
<div class="ta">
<div class="th jz">用 户 等 级 管 理</div>
<div class="td3 h20 w160">名称</div>
<div class="td3 h20 w160">图片</div>
<div class="td3 h20 w100">等级</div>
<div class="td3 h20 w100">最少发贴量</div>
<div class="td3 h20 w100">所属用户组id</div>
<div class="td3 h20 w106">操作</div>
<%
dim rs
set rs=conn.execute("select * from yx_usergrade order by gradeid asc")
while not rs.eof
%>
<div class="td3 h20 w160">
<input type="hidden" name="gradeid" value="<%=rs("gradeid")%>">
<input type="text" name="gradename" size="14" value="<%=rs("gradename")%>"></div>
<div class="td3 h20 w160">
<input type="text" name="gradepic" size="22" value="<%=rs("gradepic")%>"></div>
<div class="td3 h20 w100">
<input type="text" name="gradenum" size="10" value="<%=rs("gradenum")%>"></div>
<div class="td3 h20 w100"><input type="text" name="userminpostnum" size="10" value="<%=rs("userminpostnum")%>"></div>
<div class="td3 h20 w100"><input type="text" name="classid" size="10" value="<%=rs("classid")%>"></div>
<div class="td3 h20 w106">
<a href="?action=delusergrade&gradeid=<%=rs("gradeid")%>">删除</a></div>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
<div style="clear: both;"></div><div class="tf jz">
<input type="submit" value="提交" name="b1"></div>
</div>
</form>
<%
end sub
sub updateusergrade
server.scripttimeout=99999999
dim gradenum,gradename,gradepic,userminpostnum,classid,i
for i=1 to request.form("gradenum").count
gradenum=replace(request.form("gradenum")(i),"'","")
gradename=replace(request.form("gradename")(i),"'","")
gradenum=replace(request.form("gradenum")(i),"'","")
gradepic=replace(request.form("gradepic")(i),"'","")
userminpostnum=replace(request.form("userminpostnum")(i),"'","")
classid=replace(request.form("classid")(i),"'","")
if isnumeric(gradenum) and gradename<>"" and gradepic<>"" and isnumeric(userminpostnum) and isnumeric(classid) and isnumeric(gradenum)then
dim rs
set rs=conn.execute("select gradenum,classid from yx_user where gradenum="&gradenum)
if not rs.eof then
if rs("classid")<>cint(classid) then
conn.execute("update yx_user set gradenum=" & gradenum & ",classid="&classid&" where gradename='"& rs("gradename") &"'")
end if
end if
set rs=nothing
conn.execute("update yx_usergrade set gradename='"&gradename &"',gradenum="&gradenum&",gradepic='"&gradepic&"',userminpostnum="&userminpostnum&",classid="&classid&" where gradenum="&gradenum)
end if
next
call suc("","用户等级设置成功！","?action=usergrade")
end sub
sub delusergrade
dim gradeid
gradeid=request("gradeid")
yxbbs.execute("delete * from [yx_usergrade] where gradeid="&gradeid&"")
call suc("","用户等级删除成功！建议您到更新用户数据中进行更新操作！","?action=usergrade")
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -