<% dim admin_flag admin_flag="17" if not master or instr(session("flag"),admin_flag)=0 then Errmsg=Errmsg+"
"+"
  • 本页面为管理员专用，请登陆后进入。
  • 您没有管理本页面的权限。" call dvbbs_error() else call main() conn.close set conn=nothing end if sub main() if request("action")="save" then call savegroup() elseif request("action")="savedit" then call savedit() elseif request("action")="del" then call del() else call gradeinfo() end if end sub sub gradeinfo() %> <%if request("action")="edit" then%> <% set rs=conn.execute("select * from GroupName where id="&request("id")) %> <%set rs=nothing%> <%else%> <%end if%> <% set rs=conn.execute("select * from GroupName") do while not rs.eof %> <% rs.movenext loop set rs=nothing %>
    论坛门派管理
    用户门派管理：您可以添加修改或者删除论坛门派。
    修改门派 | 添加门派
    门派名称 ">  ">
    添加门派
    门派名称  
    管理门派
    &action=edit">修改 | &action=del">删除 | <%=rs("GroupName")%>
    <% end sub sub savegroup() dim GroupName GroupName=Checkstr(trim(request("GroupName"))) set rs=conn.execute("select top 1 id from GroupName where GroupName='"&GroupName&"' order by id desc") if rs.eof and rs.bof then conn.execute("insert into GroupName (GroupName) values ('"&GroupName&"')") else errmsg=errmsg+"
    "+"
  • 不能添加相同的组名。" call dvbbs_error() exit sub end if set rs=nothing %>

    添加成功！ <% end sub sub savedit() dim GroupName GroupName=Checkstr(trim(request("GroupName"))) set rs=conn.execute("select top 1 id from GroupName where GroupName='"&GroupName&"' order by id desc") if rs.eof and rs.bof then conn.execute("update GroupName set GroupName='"&GroupName&"' where id="&request("id")) else errmsg=errmsg+"
    "+"

  • 不能修改成已存在相同的组名。" call dvbbs_error() exit sub end if set rs=nothing %>

    修改成功！ <% end sub sub del() conn.execute("delete from GroupName where id="&request("id")) %>

    删除成功！ <% end sub %>