boards.asp

BBS论坛的开发和设计

    </tr>
    <tr> 
      <td bgcolor="#EFEFE7"> 
        <div align="center"> 
          <input name="Submit4" type="submit" class="form1" value="确定修改">
          　 
          <input name="Submit23" type="reset" class="form1" value="重填">
        </div></td>
    </tr>
  </form>
</table>
<%
	End if
	rs.close
	set rs = Nothing
End Sub
'================================
Sub DelClass()
	ClassID = trim(request.QueryString("Class_ID"))
		if Not(ISnumeric(ClassID)) then ErrorMsg "参数错误!~"
	if trim(request.Form("Submit")) = "确定删除" then
		Conn.ExeCute("Delete From JBB_Class where Class_ID ="&ClassID)
		Conn.ExeCute("Delete From JBB_Board where ClassID ="&ClassID)
		response.Write("<br><br>　　删除完毕!~")
		Application.Lock
			Application(JBBMasterCookies&"BoardAll") = ""
		Application.UnLock
	else
%>
<br>
<br>
<br>
<br>
<table width="340" height="47" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
  <form name="form2" method="post" action="?action=DelClass&Class_ID=<%=ClassID%>">
  <tr> 
      <td bgcolor="#EFEFE7">
<div align="center"><strong>确认删除</strong></div></td>
  </tr>
  <tr> 
      <td height="50" bgcolor="#FFFFFF"><font color="#FF0000">您确定删除此分类吗？这将导致此分类下的所有论坛同时全部删除，请慎重考虑!</font></td>
  </tr>
  <tr>
      <td bgcolor="#EFEFE7">
<div align="center">
          <input name="Submit" type="submit" class="form1" id="Submit" value="确定删除">
        　
          <input name="Submit6" type="button" class="form1" onClick="MM_callJS('history.back()')" value="返回">
        </div></td>
  </tr>
        </form>
</table>
<%
	End if
End Sub
'================================
Sub DelBoard()
	BoardID = trim(request.QueryString("BoardID"))
		if Not(ISnumeric(BoardID)) then ErrorMsg "参数错误!~"
	if trim(request.Form("Submit")) = "确定删除" then
		Conn.ExeCute("Delete From JBB_Board where BoardID ="&BoardID)
		response.Write("<br><br>　　删除完毕!~")
		Application.Lock
			Application(JBBMasterCookies&"BoardAll") = ""
		Application.UnLock
	else
%>
<br>
<br>
<br>
<br>
<table width="340" height="47" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
  <form name="form2" method="post" action="?action=DelBoard&BoardID=<%=BoardID%>">
  <tr> 
      <td bgcolor="#EFEFE7">
<div align="center"><strong>确认删除</strong></div></td>
  </tr>
  <tr> 
      <td height="50" bgcolor="#FFFFFF">
<div align="center"><font color="#FF0000">您确定删除此论坛吗？</font></div></td>
  </tr>
  <tr>
      <td bgcolor="#EFEFE7"> 
        <div align="center">
          <input name="Submit" type="submit" class="form1" id="Submit" value="确定删除">
        　
          <input name="Submit6" type="button" class="form1" onClick="MM_callJS('history.back()')" value="返回">
        </div></td>
  </tr>
        </form>
</table>
<%
	End if
End Sub
'================================
Sub DelMod()
	Mod_ID = trim(request.QueryString("Mod_ID"))
		if Not(ISnumeric(Mod_ID)) then ErrorMsg "参数错误!~"
	set rs = Conn.ExeCute("select Mod_BoardID from JBB_Mod where Mod_id="&Mod_ID)
	if Not(rs.eof and rs.bof) then
		BoardID=rs(0)
	End if
	set rs = nothing
	if trim(request.Form("Submit")) = "确定删除" then
		Conn.ExeCute("Delete From JBB_Mod where Mod_ID ="&Mod_ID)
		response.Write("<br><br>　　删除完毕!~请编辑该用户到适当用户组!")
		Application.Lock
			Application(JBBMasterCookies&"Board_Config"&BoardID) = ""
		Application.UnLock
	else
%>
<br>
<br>
<br>
<br>
<table width="340" height="47" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
  <form name="form2" method="post" action="?action=DelMod&Mod_ID=<%=Mod_ID%>">
  <tr> 
      <td bgcolor="#EFEFE7">
<div align="center"><strong>确认删除</strong></div></td>
  </tr>
  <tr> 
      <td height="50" bgcolor="#FFFFFF">
<div align="center"><font color="#FF0000">您确定删除此版主吗？</font></div></td>
  </tr>
  <tr>
      <td bgcolor="#EFEFE7">
<div align="center">
          <input name="Submit" type="submit" class="form1" id="Submit" value="确定删除">
        　
          <input name="Submit6" type="button" class="form1" onClick="MM_callJS('history.back()')" value="返回">
        </div></td>
  </tr>
        </form>
</table>
<%
	End if
End Sub
'==========================================
Sub addMod()
	BoardID=trim(request.querystring("BoardID"))
		if Not(IsNumeric(BoardID)) then ErrorMsg "参数错误!~"
%>
<br>
  
<form name="form4" method="post" action="?action=SaveNewMod&BoardID=<%=BoardID%>">
  <table width="484" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2"><strong>添加版主</strong></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="250">论坛</td>
      <td width="215"><%=trim(request.QueryString("BoardName"))%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>用户名<br></td>
      <td> 
        <input name="Mod_name" type="text" id="Mod_name"></td>
    </tr>
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2"><strong>权限设置</strong></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>暂停所有权限?<br>
        如果暂停所有权限,此版主将为挂名版主<br>
        不能执行任何管理操作</td>
      <td>是 
        <input type="radio" name="Mod_stop" value="1">
        　否 <input name="Mod_stop" type="radio" value="0" checked></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以删除贴子?</td>
      <td>是 
        <input name="Mod_del_post" type="radio" value="1" checked>
        　否 
        <input name="Mod_del_post" type="radio" value="0"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以编辑贴子?</td>
      <td>是 
        <input name="Mod_edit_post" type="radio" value="1" checked>
        　否 
        <input name="Mod_edit_post" type="radio" value="0"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以批量删除贴子?</td>
      <td>是 
        <input type="radio" name="Mod_bat_del" value="1">
        　否 
        <input name="Mod_bat_del" type="radio" value="0" checked></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以批量移动贴子?</td>
      <td>是 
        <input type="radio" name="Mod_bat_move" value="1">
        　否 
        <input name="Mod_bat_move" type="radio" value="0" checked></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以删除主题为开头的贴子?</td>
      <td>是 
        <input name="Mod_del_ferstPost" type="radio" value="1" checked>
        　否 
        <input name="Mod_del_ferstPost" type="radio" value="0"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以查看IP？</td>
      <td>是 
        <input name="Mod_viewIP" type="radio" value="1" checked>
        　否 
        <input name="Mod_viewIP" type="radio" value="0"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以发布/管理公告?</td>
      <td>是 
        <input name="Mod_announcement" type="radio" value="1" checked>
        　否 
        <input name="Mod_announcement" type="radio" value="0"></td>
    </tr>
  </table>
<div align="center"><br>
  <input name="Submit7" type="submit" class="form1" value="确定添加">
  　
  <input name="Submit8" type="reset" class="form1" value="重置">
    <br>
    <br>
  </div>
  </form>
  <%
End Sub
'==========================================
Sub EditMod()
Mod_ID = trim(request.querystring("Mod_ID"))
	if Not(ISnumeric(Mod_ID)) then ErrorMsg "参数错误!~"
set rs = server.CreateObject("adodb.recordset")
rs.open "select * from JBB_Mod where Mod_ID="&Mod_ID,conn,1,1
if Not(rs.Eof and rs.Bof) then
%>
<br>  
<form name="form4" method="post" action="?action=SaveEditMod&Mod_ID=<%=Mod_ID%>">
  <table width="484" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2"><strong>修改 
        <%if rs("Mod_super") then response.Write("超级")%>
        版主</strong></td>
    </tr>
	<%
	if rs("Mod_BoardID") > 0 then
	%>
    <tr bgcolor="#FFFFFF"> 
      <td width="250">论坛</td>
      <td width="215"><%=trim(request.QueryString("BoardName"))%></td>
    </tr>
	<%
	End if
	%>
    <tr bgcolor="#FFFFFF"> 
      <td>用户名<br></td>
      <td><%=trim(request.querystring("Mod_name"))%></td>
    </tr>
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2"><strong>权限设置</strong></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>暂停所有权限?<br>
        如果暂停所有权限,此版主将为挂名版主<br>
        不能执行任何管理操作</td>
      <td>是 
        <input type="radio" name="Mod_stop" value="1" <%if rs("Mod_stop") then response.write "checked" End if%>>
        　否 <input name="Mod_stop" type="radio" value="0" <%if Not(rs("Mod_stop")) then response.write "checked" End if%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以删除贴子?</td>
      <td>是 
        <input name="Mod_del_post" type="radio" value="1" <%if rs("Mod_del_post") then response.write "checked" End if%>>
        　否 
        <input name="Mod_del_post" type="radio" value="0" <%if Not(rs("Mod_del_post")) then response.write "checked" End if%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以编辑贴子?</td>
      <td>是 
        <input name="Mod_edit_post" type="radio" value="1" <%if rs("Mod_edit_post") then response.write "checked" End if%>>
        　否 
        <input name="Mod_edit_post" type="radio" value="0" <%if Not(rs("Mod_edit_post")) then response.write "checked" End if%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以批量删除贴子?</td>
      <td>是 
        <input type="radio" name="Mod_bat_del" value="1" <%if rs("Mod_bat_del") then response.write "checked" End if%>>
        　否 
        <input name="Mod_bat_del" type="radio" value="0" <%if Not(rs("Mod_bat_del")) then response.write "checked" End if%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以批量移动贴子?</td>
      <td>是 
        <input type="radio" name="Mod_bat_move" value="1" <%if rs("Mod_bat_move") then response.write "checked" End if%>>
        　否 
        <input name="Mod_bat_move" type="radio" value="0" <%if Not(rs("Mod_bat_move")) then response.write "checked" End if%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以删除主题为开头的贴子?</td>
      <td>是 
        <input name="Mod_del_ferstPost" type="radio" value="1" <%if rs("Mod_del_ferstPost") then response.write "checked" End if%>>
        　否 
        <input name="Mod_del_ferstPost" type="radio" value="0" <%if Not(rs("Mod_del_ferstPost")) then response.write "checked" End if%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以查看IP？</td>
      <td>是 
        <input name="Mod_viewIP" type="radio" value="1" <%if rs("Mod_viewIP") then response.write "checked" End if%>>
        　否 
        <input name="Mod_viewIP" type="radio" value="0" <%if Not(rs("Mod_viewIP")) then response.write "checked" End if%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>可以发布/管理公告?</td>
      <td>是 
        <input name="Mod_announcement" type="radio" value="1" <%if rs("Mod_announcement") then response.write "checked" End if%>>
        　否 
        <input name="Mod_announcement" type="radio" value="0" <%if Not(rs("Mod_announcement")) then response.write "checked" End if%>></td>
    </tr>
  </table>
<div align="center"><br>
    <input name="Submit7" type="submit" class="form1" value="确定修改">
  　
    <input name="Submit8" type="button" class="form1" onClick="MM_callJS('history.back()')" value="返回">
    <br>
    <br>
  </div>
  </form>
  <%
 	End if
	rs.close
	set rs = Nothing
End Sub
set conn = nothing
%>
</body>
</html>