adminboard.asp

程序网络论坛HigroupBBS v4.00 默认管理员帐号密码都是Marcos

    <td height="25">操作ID</td>
      <td height="25">版块名
        <input name="theAct" type="hidden" id="theAct" value="update"></td>
    <td>版主</td>
    <td>顺序号</td>
    <td height="25">操作</td>
  </tr>
  <%
	sql="select * from Marcos_Board where topBoardId=" & topBoardId & " order by " & byOrder
	rs.open sql,conn,1,1
	do until rs.eof
  %>
    <tr align="center"> 
      <td height="25"><%=rs("boardId")%> <input name="boardId" type="hidden" id="boardId" value="<%=rs("boardId")%>">
      </td>
      <td height="25"><input name="boardName" type="text" id="boardName" value="<%=enCode(rs("boardName"))%>">
        <%if topBoardId=0 then echo "<input type=button value=""下级"" onclick=""location.href='?topBoardId="&rs("boardId")&"';this.disabled=true;"">"%>
      </td>
      <td><input name="boardManagerList" type="text" id="boardManagerList" value="<%=rs("boardManagerList")%>"></td>
      <td><input name="<%=byOrder%>" type="text" id="<%=byOrder%>" value="<%=rs(byOrder)%>" size="3"></td>
      <td height="25"><a href="?theAct=edit&boardId=<%=rs("boardId")%>&topBoardId=<%=topBoardId%>">编辑</a> 
        <a href="javascript:;" onclick="delIt(this,'<%=rs("boardId")%>','<%=jsCode(rs("boardName"))%>')">删除</a></td>
    </tr>
  <%
  			maxOrder=rs(byOrder)+1
  		rs.movenext
  	loop
	rs.close

	if maxOrder="" then
		maxOrder=1
	end if
  %>
  <tr align="right"> 
    <td height="25" colspan="5" class="tr"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr align="center"> 
            <td><input type="button" name="Submit4" value="添加版块" onClick="location.href='adminBoard.asp?topBoardId=<%=topBoardId%>';this.disabled=true;"></td>
            <td><input name="Submit" type="submit" id="Submit2" value="更 新"></td>
            <td><input name="button" type="button" onClick="location.href='?theAct=join&topBoardId=<%=topBoardId%>';this.disabled=true;" value="全并版块"> 
            </td>
        </tr>
      </table> </td>
  </tr>
</form>
</table>
<%
end sub
sub newBoard()
%>
<br>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="<%=borderColor%>">
  <form method="post">
  <tr> 
      <td height="25" colspan="2" align="center" class="tr">添加版块
        <input name="theAct" type="hidden" id="theAct" value="new">
        <input name="topBoardId" type="hidden" id="topBoardId" value="<%=topBoardId%>">
        <input name="<%=byOrder%>" type="hidden" id="<%=byOrder%>" value="<%=maxOrder%>"></td>
  </tr>
  <tr> 
    <td width="190" height="25" align="right">版块名：</td>
    <td width="404" height="25"><input name="boardName" type="text" id="boardName"></td>
  </tr>
  <tr class="td"> 
    <td height="25" align="right">版&nbsp;&nbsp;主：</td>
    <td height="25"><input name="boardManagerList" type="text" id="boardManagerList"></td>
  </tr>
  <tr> 
      <td height="25" align="right">版块说明：</td>
    <td height="25"><textarea name="boardDescription" cols="39" rows="6" id="boardDescription"></textarea></td>
  </tr>
  <tr> 
    <td height="25" colspan="2" align="center" class="tr"><input name="Submit" type="button" id="Submit" value="提 交" onclick="checkIt(this.form)">
      <input type="reset" name="Submit3" value="重 置"></td>
  </tr>
</form>
</table>
<%
end sub
sub editBoard()
	sql="select boardName,boardManagerList,boardDescription from Marcos_Board where boardId=" & boardId
	rs.open sql,conn,1,1
	
%>
<br>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="<%=borderColor%>">
  <form method="post">
    <tr> 
      <td height="25" colspan="2" align="center" class="tr">编辑版块 
        <input name="theAct" type="hidden" id="theAct" value="modify"> <input name="boardId" type="hidden" id="boardId" value="<%=boardId%>"> 
        <input name="topBoardId" type="hidden" id="topBoardId" value="<%=topBoardId%>"> 
      </td>
    </tr>
    <tr> 
      <td width="190" height="25" align="right">版块名：</td>
      <td width="404" height="25"><input name="boardName" type="text" id="boardName" value="<%=rs(0)%>"></td>
    </tr>
    <tr class="td"> 
      <td height="25" align="right">版&nbsp;&nbsp;主：</td>
      <td height="25"><input name="boardManagerList" type="text" id="boardManagerList" value="<%=rs(1)%>"></td>
    </tr>
    <tr>
      <td height="25" align="right">属&nbsp;&nbsp;于：</td>
      <td height="25"><select name="topBoardIdE" id="topBoardIdE">
	  <%
	  	if topBoardId=0 then
			boardList="<option value=""0"" selected>主分类</option>"
		 else
			sql="select boardId,boardName from Marcos_Board where topBoardId=0 order by bigOrder"
			set rs_sys=conn.execute(sql)
			do until rs_sys.eof
				boardList=boardList & "<option value=""" & rs_sys(0) & """ {$selected" & _
				rs_sys(0) & "}>" & rs_sys(1) & "</option>"
				rs_sys.movenext
			loop
			boardList=replace(boardList,"{$selected" & topBoardId & "}","selected")
		end if
		echo boardList
	  %>
        </select></td>
    </tr>
    <tr class="td"> 
      <td height="25" align="right">版块说明：</td>
      <td height="25"> 
        <textarea name="boardDescription" cols="39" rows="6" id="boardDescription"><%=rs(2)%></textarea></td>
    </tr>
    <tr> 
      <td height="25" colspan="2" align="center" class="tr"><input name="Submit" type="button" id="Submit" value="提 交" onclick="checkIt(this.form)"> 
        <input type="reset" name="Submit32" value="重 置"></td>
    </tr>
  </form>
</table>
<%
	rs.close
end sub

sub joinBoard()
%>
<br>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="<%=borderColor%>">
  <form method="post" onsubmit="this.Submit2.disabled=true;">
    <tr align="center"> 
      <td height="25" class="tr">全并版块 <input name="theAct" type="hidden" id="theAct" value="combin"> 
        <input name="topBoardId" type="hidden" id="topBoardId" value="<%=topBoardId%>"></td>
    </tr>
    <tr align="center"> 
      <td height="25" class="td">注意:该操作不可逆,操作前请先<a href="adminDataBase.asp">备份数据库</a>!</td>
    </tr>
    <tr align="center"> 
      <td height="25">将分类 <input name="fromBoardId" type="text" id="fromBoardId" onfocus="if(this.value=='这里填写操作ID')this.value='';" onblur="if(this.value=='')this.value='这里填写操作ID';isNum(this.value);" value="这里填写操作ID">
        合并到分类 <input name="toBoardId" type="text" id="toBoardId" onfocus="if(this.value=='这里填写操作ID')this.value='';" onblur="if(this.value=='')this.value='这里填写操作ID';isNum(this.value);" value="这里填写操作ID">
        里</td>
    </tr>
    <tr align="center"> 
      <td height="25" class="tr"><input type="submit" name="Submit2" value="确 认"></td>
    </tr>
  </form>
</table>
<%
end sub
%>
<br>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="<%=borderColor%>">
  <tr> 
    <td height="25" align="center" class="tr"> </td>
  </tr>
  <tr> 
    <td height="60" align="center" bgcolor="#FFFFFF"><font face="Wingdings">v</font> 
      HigroupBBS <font face="Wingdings">v</font><br>
      Powered By <a href="javascript:;" title="QQ 26696782">Marcos</a> 2004.10</td>
  </tr>
</table>
</body>
</html>
<script language="javascript">
function delIt(th,id,name){
	if(confirm("真的要删除 "+name+" 吗?\n该操作不可逆!")){
		th.href="?theAct=del&topBoardId=<%=topBoardId%>&boardId="+id;
	}
}
function checkIt(frm){
	if(frm.boardName.value==""){
		alert("请填写版块名称!");
		return false;
	}
	if(frm.boardDescription.value==""){
		alert("请填写版块说明!");
		return false;
	}
	frm.Submit.disabled=true;
	frm.submit();
}
function isNum(x){
	if(x!='这里填写操作ID'){
		if(isNaN(x)){
			alert("请填写操作ID(数字)");
		}
	}
}
</script>