admin_board.asp

应用于高等院校党团思想教育

      <input type="text" name="Tabletitle" size="24"  value='<%=rs("Tabletitle")%>'>
    </td>
  </tr>
  <tr> 
    <td width="52%">版面内容表格颜色1</td>
    <td width="48%"> 
      <input type="text" name="Tablebody" size="24"  value='<%=rs("Tablebody")%>'>
    </td>
  </tr>
  <tr > 
    <td width="52%">版面内容表格颜色2，颜色1和颜色2在bbs风格中互相穿插排列</td>
    <td width="48%"> 
      <input type="text" name="aTablebody" size="24"  value='<%=rs("aTablebody")%>'>
    </td>
  </tr>
  <tr> 
    <td width="52%">版面标题表格字体颜色</td>
    <td width="48%"> 
      <input type="text" name="TableFont" size="24"  value='<%=rs("Tablefont")%>'>
    </td>
  </tr>
  <tr> 
    <td width="52%">版面内容表格字体颜色</td>
    <td width="48%"> 
      <input type="text" name="TableContent" size="24"  value='<%=rs("TableContent")%>'>
    </td>
  </tr>
  <tr> 
    <td width="52%">提醒语句颜色</td>
    <td width="48%"> 
      <input type="text" name="AlertFont" size="24"  value='<%=rs("AlertFont")%>'>
    </td>
  </tr>
  <tr bgcolor=<%=aTableTitleColor%>> 
    <td width="52%">&nbsp;</td>
    <td width="48%"> 
      <input type="submit" name="Submit" value="提交">
    </td>
  </tr>
</table>
</form>
<%
rs.close
end sub

sub boardinfo()
	    set rs_1 = server.CreateObject ("adodb.recordset")
            set rs_2 = server.CreateObject ("adodb.recordset")
            sql_2 = "select * from class order by id"
            rs_2.Open sql_2,conn,1,1
	    do while not rs_2.Eof
%>
            <table width="100%" border="0" cellspacing="3" cellpadding="0">
              <tr bgcolor="<%=aTableTitleColor%>">

                <td height="21"><%=rs_2("id")%>,分类名：<b><%=rs_2("class")%></b>    <a href="admin_board.asp?action=add">新增论坛</a> | <a href=admin_board.asp?action=orders&id=<%=rs_2("id")%>>分类排序修改</a> | <a href=admin_board.asp?action=del1&id=<%=rs_2("id")%>>删除分类</a></td>
              </tr>
            </table>
<%
            sql_1 = "select boardid,boardtype,readme from board where class="&rs_2("id")&" order by boardid"
            rs_1.Open sql_1,conn,1,1
            do while not rs_1.EOF 
            %>
            <table width="100%" border="0" cellspacing="3" cellpadding="0">
              <tr> 
                <td height="18"><%=rs_1("boardid")%>,论坛名：<%=rs_1("boardtype")%></td>
              </tr>
              <tr>
                <td height="18">论坛简介：<%=rs_1("readme")%></td>
              </tr>
              <tr>
                <td height="15"><a href="admin_board.asp?action=edit&editid=<%=rs_1("boardid")%>">编辑此论坛</a> | <a href="admin_board.asp?action=del&boardid=<%=rs_1("boardid")%>">删除此论坛</a></td>
              </tr>
            </table>
<hr color=black height=1 width="70%" align=left>
<%
		  rs_1.MoveNext
		  loop
                  rs_1.Close 
        rs_2.MoveNext 
        Loop
        rs_2.Close
%>
          </td>
            </tr>
        </table>      
        </td>
       </tr>
</table>
<%
end sub

sub savenew()
	set rs = server.CreateObject ("adodb.recordset")
	if request("boardtype")="" then
		Errmsg=Errmsg+"<br>"+"<li>请输入论坛名称。"
		Founderr=true
	end if
	if request("class")="" then
		Errmsg=Errmsg+"<br>"+"<li>请选择论坛分类。"
		Founderr=true
	end if
	if request("boardmaster")="" then
		Errmsg=Errmsg+"<br>"+"<li>请输入版主姓名。"
		Founderr=true
	end if
	if request("readme")="" then
		Errmsg=Errmsg+"<br>"+"<li>请输入论坛说明。"
		Founderr=true
	end if
	if request("password")="" then
		Errmsg=Errmsg+"<br>"+"<li>请输入版主密码。"
		Founderr=true
	end if
	if request("lockboard")="" then
		Errmsg=Errmsg+"<br>"+"<li>请选择论坛开放状态。"
		Founderr=true
	end if
	if request("boardskin")="" then
		Errmsg=Errmsg+"<br>"+"<li>请选择论坛样式。"
		Founderr=true
	end if
	if founderr=true then
	response.write ""&Errmsg&""
	else
		dim boardid
		sql="select boardid from board where boardid="+cstr(request("boardid"))
		rs.open sql,conn,1,1
		if not rs.eof and not rs.bof then
			response.write "您不能指定和别的论坛一样的序号。"
			exit sub
		else
			boardid=request("boardid")
		end if
		rs.close
	sql = "select * from board where (boardid=null)"
	rs.Open sql,conn,1,3
	rs.AddNew
	rs("boardid") = Request("boardid")
	rs("boardtype") = Request.Form ("boardtype")
	rs("class") = Request.Form  ("class")
	rs("boardmaster") = Request("boardmaster")
	rs("readme") = Request("readme")
	rs("masterpwd") = Request("password")
	rs("boardmaster1") = Request("boardmaster1")
	rs("masterpwd1") = Request("password1")
	rs("boardmaster2") = Request("boardmaster2")
	rs("masterpwd2") = Request("password2")
	rs("lockboard") = Trim(Request("lockboard"))
	rs("boardskin") = Trim(Request("boardskin"))
	rs("Tableback") = Request("Tableback")
	rs("Tabletitle") = Request("Tabletitle")
	rs("Tablebody") = Request("Tablebody")
	rs("aTablebody") = Request("aTablebody")
	rs("TableFont") = Request("TableFont")
	rs("TableContent") = Request("TableContent")
	rs("AlertFont") = Request("AlertFont")
	rs("lastpostuser") ="未知"
	rs("lastposttime") = now()
	rs("lastbbsnum") = 0 
	rs("lasttopicnum") = 0 
	rs.Update 
	rs.Close 
	end if
end sub

sub savedit()
	dim newboardid
	set rs = server.CreateObject ("adodb.recordset")
	if request("newboardid")=request("editid") then
		newboardid=request("newboardid")
	else
		sql="select boardid from board where boardid="+cstr(request("newboardid"))
		rs.open sql,conn,1,1
		if not rs.eof and not rs.bof then
			response.write "您不能指定和别的论坛一样的序号。"
			exit sub
		else
			newboardid=request("newboardid")
		end if
		rs.close
	end if
	sql = "select * from board where boardid="+Cstr(request("editid"))
	rs.Open sql,conn,1,3
	rs("boardid") = Request.Form ("newboardid")
	rs("boardtype") = Request.Form ("boardtype")
	rs("class") = Request.Form  ("class")
	rs("boardmaster") = Request("boardmaster")
	rs("readme") = Request("readme")
	rs("masterpwd") = Request("password")
	rs("boardmaster1") = Request("boardmaster1")
	rs("masterpwd1") = Request("password1")
	rs("boardmaster2") = Request("boardmaster2")
	rs("masterpwd2") = Request("password2")
	rs("lockboard") = Trim(Request("lockboard"))
	rs("boardskin") = Trim(Request("boardskin"))
	rs("Tableback") = Request("Tableback")
	rs("Tabletitle") = Request("Tabletitle")
	rs("Tablebody") = Request("Tablebody")
	rs("aTablebody") = Request("aTablebody")
	rs("TableFont") = Request("TableFont")
	rs("TableContent") = Request("TableContent")
	rs("AlertFont") = Request("AlertFont")
	rs.Update 
	rs.Close 
	response.write "<p>论坛修改成功！"
end sub

sub del()
	set rs = server.CreateObject ("adodb.recordset")
	sql = "delete from board where boardid="+Cstr(Request("boardid"))
	conn.execute(sql)
	sql = "delete from bbs1 where boardid="+cstr(Request("boardid"))
	conn.execute(sql)
	response.write "<p>论坛修改成功！"
end sub

sub del1()
	set rs = server.CreateObject ("adodb.recordset")
	sql = "delete from class where id="+Cstr(Request("id"))
	conn.execute(sql)
	sql = "delete from board where class="+Cstr(Request("id"))
	conn.execute(sql)
	sql="select boardid from board where class="+Cstr(Request("id"))
	rs.open sql,conn,1,1
	do while not rs.eof
	sql_1 = "delete from bbs1 where boardid="+cstr(rs("boardid"))
	conn.execute(sql_1)
	rs.movenext
	loop
	rs.close
	response.write "<p>分类删除成功！"
end sub

sub orders()
%><br>
            <table width="95%" border="0" cellspacing="3" cellpadding="0" align=center>
              <tr> 
                <td height="22"><b>论坛分类重新排序修改</b><br>
注意：请在相应论坛分类的排序表单内输入相应的排列序号，注意不能和别的论坛分类有相同的排列序号。
		</td>
              </tr>
	      <tr>
		<td>
<%
	set rs = server.CreateObject ("Adodb.recordset")
	sql="select * from class where id="&cstr(request("id"))
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "没有找到相应的论坛分类。"
	else
		response.write "<form action=admin_board.asp?action=updateorders method=post>"
		response.write "<input type=text name=classname size=25 value="&rs("class")&">"
		response.write "  <input type=text name=newid size=2 value="&rs("id")&">"
		response.write "<input type=hidden name=id value="&request("id")&">"
		response.write "<input type=submit name=Submit value=修改></form>"
	end if
	rs.close
%>
		</td>
	      </tr>
            </table>
<%
end sub

sub updateorders()
	dim newid
	set rs = server.CreateObject ("Adodb.recordset")
	if request("newid")=request("id") then
		sql="update class set class='"&request("classname")&"' where id="&cstr(request("id"))
		conn.execute(sql)
		response.write "<p align=center>更新成功！</p>"
	else
	sql="select * from class where id="&cstr(request("newid"))
	rs.open sql,conn,1,1
	if not rs.eof and not rs.bof then
		response.write "您输入的序号和其他分类序号相同，请重新输入。"
	else
		sql="update class set id="&request("newid")&",class='"&request("classname")&"' where id="&cstr(request("id"))
		conn.execute(sql)
		sql="update board set class="&request("newid")&" where class="&cstr(request("id"))
		conn.execute(sql)
		response.write "<p align=center>更新成功！</p>"
	end if
	end if
end sub

sub addclass()
	set rs = server.CreateObject ("Adodb.recordset")
	sql="select id from class"
	rs.open sql,conn,1,1
	classnum=rs.recordcount
	rs.close
%>
            <table width="95%" border="0" cellspacing="3" cellpadding="0" align=center>
              <tr> 
                <td height="22" bgcolor=<%=aTableTitleColor%>><b>添加新的论坛分类</b><br>
注意：请完整填写以下表单信息，注意不能和别的论坛分类有相同的排列序号。
		</td>
              </tr>
<form action=admin_board.asp?action=saveclass method=post>
	      <tr>
		<td>分类名：<input name=classname type=text size=25>  序号：
<input name=id type=text size=2 value=<%=classnum+1%>>   
<input type=submit name=Submit value=添加>
		</td>
	      </tr>
</form>
	    </table>
<%
end sub

sub saveclass()
	set rs = server.CreateObject ("Adodb.recordset")
	if request("id")="" or request("classname")="" then
		response.write "您输入的序号和原来的相同，不必更新啦：）"
	else
	sql="select * from class where id="&cstr(request("id"))
	rs.open sql,conn,1,1
	if not rs.eof and not rs.bof then
		response.write "您输入的序号和其他分类序号相同，请重新输入。"
	else
		sql="insert into class(id,class) values("&request("id")&",'"&request("classname")&"')"
		conn.execute(sql)
		response.write "<p align=center>更新成功！</p>"
	end if
	end if
end sub

sub delclass()

end sub
%>