📄 admin_board.asp

📁 应用于高等院校党团思想教育
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file=inc/char.asp-->
<!--#include file=admin_left.asp-->
<title><%=ForumName%>--管理页面</title>
<link rel="stylesheet" type="text/css" href="forum.css">

<BODY bgcolor="#ffffff" alink="#333333" vlink="#333333" link="#333333" topmargin="20">
<%
	if session("masterlogin")<>"superadmin" then
		Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=elogin.asp>登陆管理</a>后进入。"
		call Error()
	else
		dim Errmsg
		dim Founderr
		call main()
		conn.close
		set conn=nothing
	end if

	sub main()
%>
<table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor=<%=atablebackcolor%> align=center>
  <tr>
    <td>
      <table cellpadding=3 cellspacing=1 border=0 width=100%>
        <tr bgcolor='<%=aTabletitlecolor%>'>
        <td align=center colspan="2">欢迎<b>
<%=session("mastername")%></b>进入管理页面
        </td>
        </tr>
            <tr bgcolor=<%=tablebodycolor%>>
              
          <td width="20%" valign=top> 
            <%call left()%>
            </td>
              
          <td width="80%" valign=top> 
            <table width="100%" border="0" cellspacing="3" cellpadding="0">
              <tr>
                <td>1．注意事项： 在下面，您将看到目前所有的论坛分类。您可以编辑论坛分类名或是增加一个新的论坛到这个分类中。 也可以编辑或删除目前存在的论坛。您可以对目前的分类重新进行排列。 
                   <p><font color=<%=AlertFontColor%>>2.特别注意</font>：删除论坛同时将删除该论坛下所有帖子！删除分类同时删除下属论坛和其中贴子！ 操作时请完整填写表单信息。
                </td>
              </tr>
              <tr>
              <td>
              <p align=cetner><b><a href=admin_board.asp>论坛管理</a> | <a href="admin_board.asp?action=addclass">新建论坛分类</a></p>
              </td>
              <tr>
            </table>
<%
if Request("action") = "add" then
	call add()
elseif Request("action") = "edit" then
	call edit()
elseif request("action") = "savenew" then
	call savenew()
elseif request("action") = "savedit" then
	call savedit()
elseif request("action") = "del" then
	call del()
elseif request("action") = "orders" then
	call orders()
elseif request("action") = "updateorders" then
	call updateorders()
elseif request("action") = "addclass" then
	call addclass()
elseif request("action") = "saveclass" then
	call saveclass()
elseif request("action") = "del1" then
	call del1()
else
	call boardinfo()
end if
end sub

sub add()
%>
 <form action ="admin_board.asp?action=savenew" method=post>           
<%
	set rs = server.CreateObject ("Adodb.recordset")
	sql="select boardid from board"
	rs.open sql,conn,1,1
	boardnum=rs.recordcount
	rs.close
%>            
            <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr bgcolor=<%=aTableTitlecolor%>> 
    <td width="52%" height=22><b>字段名称：</b>
    </td>
    <td width="48%"><b>变量值：</b>
    </td>
  </tr>
  <tr> 
    <td width="52%">论坛序号（注意不能和别的论坛序号相同）</td>
    <td width="48%"> 
      <input type="text" name="boardid" size="24" value=<%=boardnum+1%>>
    </td>
  </tr>
  <tr> 
    <td width="52%">论坛名</td>
    <td width="48%"> 
      <input type="text" name="boardtype" size="24">
    </td>
  </tr>
  <tr> 
    <td width="52%">所属类别</td>
    <td width="48%"> 
<select name=class>
<%
	sql = "select * from class"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
	response.write "<option value=>请先添加类别"
	else
	do while not rs.EOF
%>
<option value=<%=rs("id")%>><%=rs("class")%>
<%
	rs.MoveNext 
	loop
	end if
	rs.Close 
%>
</select> 
</td>
</tr>
<tr> 
    <td width="52%">版面说明</td>
    <td width="48%"> 
      <input type="text" name="readme" size="24">
    </td>
</tr>
  <tr> 
    <td width="52%">斑竹1：</td>
    <td width="48%"> 名字： 
      <input type="text" name="boardmaster" size="12">
      密码： 
      <input type="text" name="password" size="12">
    </td>
  </tr>
  <tr> 
    <td width="52%">斑竹2：</td>
    <td width="48%"> 名字： 
      <input type="text" name="boardmaster1" size="12">
      密码： 
      <input type="text" name="password1" size="12">
    </td>
  </tr>
  <tr> 
    <td width="52%">斑竹3：</td>
    <td width="48%"> 名字： 
      <input type="text" name="boardmaster2" size="12">
      密码： 
      <input type="text" name="password2" size="12">
    </td>
  </tr>
  <tr> 
    <td width="52%">锁定版面(0开放，1锁定，2特定用户开放)</td>
    <td width="48%"> 
      <select name="lockboard">
        <option value="0" selected>0 
        <option value="1">1 
        <option value="2">2 
      </select>
    </td>
  </tr>
  <tr> 
    <td width="52%">版面风格</td>
    <td width="48%"> 
      <select name="boardskin">
        <option value="0" selected>讨论区风格 
        <option value="1">BBS风格 
      </select>
    </td>
  </tr>
  <tr> 
    <td width="52%">版面表格边框颜色</td>
    <td width="48%"> 
      <input type="text" name="Tableback" size="24" value="<%=tablebackcolor%>">
    </td>
  </tr>
  <tr> 
    <td width="52%">版面标题表格颜色</td>
    <td width="48%"> 
      <input type="text" name="Tabletitle" size="24" value="<%=tabletitlecolor%>">
    </td>
  </tr>
  <tr> 
    <td width="52%">版面内容表格颜色1</td>
    <td width="48%"> 
      <input type="text" name="Tablebody" size="24" value="<%=tablebodycolor%>">
    </td>
  </tr>
  <tr> 
    <td width="52%">版面内容表格颜色2，颜色1和颜色2在bbs风格中互相穿插排列</td>
    <td width="48%"> 
      <input type="text" name="aTablebody" size="24" value="#FFFFFF">
    </td>
  </tr>
  <tr> 
    <td width="52%">版面标题表格字体颜色</td>
    <td width="48%"> 
      <input type="text" name="TableFont" size="24" value="<%=tableFontcolor%>">
    </td>
  </tr>
  <tr> 
    <td width="52%">版面内容表格字体颜色</td>
    <td width="48%"> 
      <input type="text" name="TableContent" size="24" value="<%=tableContentcolor%>">
    </td>
  </tr>
  <tr> 
    <td width="52%">提醒语句颜色</td>
    <td width="48%"> 
      <input type="text" name="AlertFont" size="24" value="<%=AlertFontcolor%>">
    </td>
  </tr>
  <tr bgcolor="<%=atabletitlecolor%>"> 
    <td width="52%">&nbsp;</td>
    <td width="48%"> 
      <input type="submit" name="Submit" value="添加论坛">
    </td>
  </tr>
</table>
</form>
<%
end sub

sub edit()
%>
 <form action ="admin_board.asp?action=savedit" method=post>           
<%
set rs_c= server.CreateObject ("adodb.recordset")
sql = "select * from class"
rs_c.open sql,conn,1,1
set rs= server.CreateObject ("adodb.recordset")
sql = "select * from board where boardid="+CSTr(request("editid"))
rs.open sql,conn,1,1
%>            
<input type='hidden' name=editid value='<%=Request("editid")%>'>
            <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr bgcolor=<%=aTableTitleColor%>> 
    <td width="52%" height=22><b>字段名称：</b>
    </td>
    <td width="48%"> 
      <div align="center"><b>变量值：</b></div>
    </td>
  </tr>
  <tr> 
    <td width="52%">论坛序号（注意不能和别的论坛序号相同）</td>
    <td width="48%">
      <input type="text" name="newboardid" size="3"  value = '<%=rs("boardid")%>'>
    </td>
  </tr>
  <tr> 
    <td width="52%">论坛名</td>
    <td width="48%">
      <input type="text" name="boardtype" size="24"  value = '<%=rs("boardtype")%>'>
    </td>
  </tr>
  <tr> 
    <td width="52%">所属类别</td>
    <td width="48%"> 
<select name=class>
<% do while not rs_c.EOF%>
<option value=<%=rs_c("id")%> <% if rs("class") = rs_c("id") then%> selected <%end if%>><%=rs_c("class")%>
<%
rs_c.MoveNext 
loop
rs_c.Close 
%>
</select> 
</td>
</tr>
<tr> 
    <td width="52%">版面说明</td>
    <td width="48%"> 
      <input type="text" name="readme" size="24" value='<%=rs("readme")%>'>
    </td>
</tr>
  <tr> 
    <td width="52%">斑竹1：</td>
    <td width="48%"> 名字： 
      <input type="text" name="boardmaster" size="12"  value='<%=rs("boardmaster")%>'>
      密码： 
      <input type="text" name="password" size="12"  value='<%=rs("masterpwd")%>'>
    </td>
  </tr>
  <tr> 
    <td width="52%">斑竹2：</td>
    <td width="48%"> 名字： 
      <input type="text" name="boardmaster1" size="12" value='<%=rs("boardmaster1")%>'>
      密码： 
      <input type="text" name="password1" size="12"  value='<%=rs("masterpwd1")%>'>
    </td>
  </tr>
  <tr> 
    <td width="52%">斑竹3：</td>
    <td width="48%"> 名字： 
      <input type="text" name="boardmaster2" size="12"  value='<%=rs("boardmaster2")%>'>
      密码： 
      <input type="text" name="password2" size="12"  value='<%=rs("masterpwd2")%>'>
    </td>
  </tr>
  <tr> 
    <td width="52%">锁定版面(0开放，1锁定，2特定用户开放)</font></td>
    <td width="48%"> 
      <select name="lockboard">
        <option value="0" <%if rs("lockboard")=0 then%>selected<%end if%>>0 
        <option value="1" <%if rs("lockboard")=1 then%>selected<%end if%>>1 
        <option value="2" <%if rs("lockboard")=2 then%>selected<%end if%>>2 
      </select>
    </td>
  </tr>
  <tr> 
    <td width="52%">版面风格</td>
    <td width="48%"> 
      <select name="boardskin">
        <option value="0" <%if rs("boardskin")=0 then%>selected<%end if%>>讨论区风格 
        <option value="1" <%if rs("boardskin")=1 then%>selected<%end if%>>BBS风格 
      </select>
    </td>
  </tr>
  <tr> 
    <td width="52%">版面表格边框颜色</td>
    <td width="48%"> 
      <input type="text" name="Tableback" size="24"  value='<%=rs("Tableback")%>'>
    </td>
  </tr>
  <tr> 
    <td width="52%">版面标题表格颜色</td>
    <td width="48%">
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -