admin_forum.asp

这是一个师姐请我做的英语爱好者的毕业设计 已经通过东北大学的毕业答辩 有论文数据库结构分析等全套 已经是可以直接用的毕业设计!

</select>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;是否开放：<input type=checkbox name=forum_hidden value='no'<% if rs("forum_hidden")=false then response.write " checked" %>>&nbsp;（选上为开放）</td> 
</tr>
<tr height=50>
<td align=center>论坛版主：<br><br></td> 
<td><input type=text name=forum_power value='<%=rs("forum_power")%>' size=50 maxlength=50><br>多个请用“|”分开，如：“joekoe|apple|5271”</td> 
</tr>
<tr height=30><td colspan=2 align=center height=30><input type=submit value=' 提 交 修 改 '></td></tr>
</form><%
  end if
%></table><%
end sub

sub forum_add()
  dim rs,strsql,classname,classid,forum_name,forum_order
  classid=trim(request("class_id"))
  if not(isnumeric(classid)) then
    call forum_main():exit sub
  end if
  strsql="select class_name from bbs_class where class_id="&classid
  set rs=conn.execute(strsql)
  if rs.eof and rs.bof then
    rs.close:set rs=nothing
    call forum_main():exit sub
  end if
  classname=rs("class_name")
  rs.close:set rs=nothing
%><font class=red>添加论坛</font>（<font class=blue_1><%=classname%></font>）<br><br><br>
<table border=0 width=400>
<%
if trim(request("add"))="ok" then
  forum_name=code_form(request.form("forum_name"))
  if forum_name="" then
    response.write( VbCrLf & "<tr><td height=80 align=center><font class=red_2>论坛名称不能为空！</font><br><br>"&go_back&"</td></tr>")
  else
    set rs=server.createobject("adodb.recordset")
    strsql="Select top 1 * from bbs_forum where class_id="&classid&" order by forum_order desc"
    rs.open strsql,conn,1,1
    if rs.eof and rs.bof then
      forum_order=0
    else
      forum_order=rs("forum_order")
    end if
    forum_order=forum_order+1
    rs.close
    strsql="Select * from bbs_forum"
    rs.open strsql,conn,1,3
    rs.addnew
    rs("class_id")=classid
    rs("forum_order")=forum_order
    rs("forum_name")=forum_name
    rs("forum_remark")=request.form("forum_remark")
    rs("forum_power")=code_form(request.form("forum_power"))
    rs("forum_hidden")=false
    rs("forum_type")=1
    rs("forum_topic_num")=0
    rs("forum_data_num")=0
    rs("forum_new_info")="|||"
    rs.update
    response.write( VbCrLf & "<tr><td height=80 align=center>成功的添加了论坛：<font class=red>" & forum_name & "</font></td></tr>")
    rs.close:set rs=nothing
  end if
else
%>
<form method=post action='admin_forum.asp?action=forum_add&add=ok&class_id=<%=classid%>'>
<tr><td width='20%' align=center></td><td width='80%'></td></tr>
<tr height=30>
<td align=center>论坛名称：</td> 
<td><input type=text name=forum_name size=30 maxlength=20></td> 
</tr>
<tr>
<td align=center>论坛说明：</td> 
<td><textarea name=forum_remark rows=5 cols=50></textarea></td> 
</tr>
<tr height=50>
<td align=center>论坛版主：<br><br></td> 
<td><input type=text name=forum_power size=50 maxlength=50><br>多个请用“|”分开，如：“joekoe|apple|5271”</td> 
</tr>
<tr height=30><td colspan=2 align=center height=30><input type=submit value=' 提 交 添 加 '></td></tr>
</form><%
  end if
  response.write "</table>"
end sub

sub forum_mod()
%>
<table border=0>
<form action='admin_forum.asp?action=mod' method=post>
<input type=hidden name=modok value='ok'>
<tr><td align=center height=50 colspan=4><font class=red>合并论坛</font></td></tr>
<%
  if trim(request.form("modok"))="ok" then
    response.write "<tr><td align=center height=50 colspan=4>"
    dim sel1,sel2,rs,sql
    sel1=trim(request.form("sel_1"))
    sel2=trim(request.form("sel_2"))
    if not(isnumeric(sel1)) or not(isnumeric(sel2)) then
      response.write "<font class=red_2>您没有选择要合并的论坛！</font>"
    else
      sql="update bbs_topic set forum_id="&int(sel2)&" where forum_id="&int(sel1)
      conn.execute(sql)
      sql="update bbs_data set forum_id="&int(sel2)&" where forum_id="&int(sel1)
      conn.execute(sql)
      response.write "<font class=red_3>论坛合并成功！</font>"
    end if
    response.write "</td></tr>"
  end if
%>
<tr height=50>
<td>从</td>
<td><select name=sel_1><% call forum_list() %></select></td>
<td>合并到</td>
<td><select name=sel_2><% call forum_list() %></select></td>
</tr>
<tr><td align=center height=50 colspan=4><input type=submit value='开始合并'></td></tr>
</form>
</table>
<%
end sub

sub forum_list()
  dim strsqlclass,rsclass,strsqlboard,rsboard
  strsqlclass="select class_id,class_name from bbs_class order by class_order"
  set rsclass=conn.execute(strsqlclass)
  if not(rsclass.bof and rsclass.eof) then
    do while not rsclass.eof
      response.write vbcrlf & "<option class=bg_2>╋ "& rsclass("class_name") &"</option>"
      strsqlboard="select forum_id,forum_name from bbs_forum where class_id=" & rsclass("class_id") & " order by forum_order"
      set rsboard=conn.execute(strsqlboard)
      if rsboard.eof and rsboard.bof then
        response.write vbcrlf & "<option>没有论坛</option>"
      else
        do while not rsboard.eof
          response.write vbcrlf & "<option value='" &rsboard("forum_id")& "'>　├" & rsboard("forum_name") & "</option>"
	  rsboard.movenext
        loop
      end if
      rsclass.movenext
    loop
  end if
  set rsclass=nothing:set rsboard=nothing
end sub

sub forum_main()
%><table border=1 cellspacing=0 cellpadding=2 width=500 bordercolorlight=#C0C0C0 bordercolordark=#FFFFFF>
<%
dim rsclass,strsqlclass,rsboard,strsqlboard,classid,forumid,forumname
strsqlclass="select * from bbs_class order by class_order"
set rsclass=conn.execute(strsqlclass)
if rsclass.bof and rsclass.eof then
  response.write vbcrlf & "<tr><td align=center height=200><font class=red_2>现在好像还没有论坛分类！</font></td></tr>"
else
  do while not rsclass.eof
    classid=rsclass("class_id")
    response.write vbcrlf & "<tr height=20 bgcolor=#ffffff align=center><td align=left>" & img_small("fk2") & vbcrlf & "<font class=red_3><b>" & rsclass("class_name") & "</b></font></td><td><a href='admin_forum.asp?action=forum_add&class_id=" & classid & "'>添加论坛</a></td><td><a href='admin_forum.asp?action=class_edit&class_id=" & classid & "'>修改</a></td><td><a href=""javascript:Do_del_class('" & classid & "');"">删除</a></td><td>排序：<a href='admin_class_order.asp?class_id="&classid&"&action=up'>向上</a> <a href='admin_class_order.asp?class_id="&classid&"&action=down'>向下</a></td></tr>"
    strsqlboard="select forum_id,forum_name,forum_power,forum_hidden from bbs_forum where class_id=" & classid & " order by forum_order"
    set rsboard=conn.execute(strsqlboard)
    if rsboard.eof and rsboard.bof then
      response.write vbcrlf & "<tr><td colspan=5><font class=gray>　　本分类还没有论坛</font></td></tr>"
    else
      do while not rsboard.eof
        forumid=rsboard("forum_id"):forumname=rsboard("forum_name")
        response.write vbcrlf&"<tr align=center><td align=left>　　<font class=blue><b>" & forumname & "</b></font>"
        if rsboard("forum_hidden")=true then response.write " <font class=gray>隐藏</font>"
        response.write "</td><td align=left>（版主：" & rsboard("forum_power") & "）</td><td><a href='admin_forum.asp?action=forum_edit&class_id="&classid&"&forum_id=" & forumid & "'>编辑</a></td><td><a href=""javascript:Do_del_forum(" & forumid & ");"">删除</a></td><td>排序：<a href='admin_forum_order.asp?forum_id="&forumid&"&class_id="&classid&"&action=up'>向上</a> <a href='admin_forum_order.asp?forum_id="&forumid&"&class_id="&classid&"&action=down'>向下</a></td></tr>"
	rsboard.movenext
      loop
    end if
    rsclass.movenext
  loop
end if
set rsclass=nothing:set rsboard=nothing
%>
<tr><td align=center height=30 colspan=5><a href='admin_forum.asp?action=class_add'>添加论坛分类</a></td></tr>
</table>
<script language=JavaScript>
<!--
function Do_del_class(data1)
{
if (confirm("此操作将删除id为 "+data1+" 的论坛分类！\n\n真的要删除吗？\n\n删除后将无法恢复！"))
  window.location="admin_forum.asp?action=del_class&class_id="+data1
}

function Do_del_forum(data1)
{
if (confirm("此操作将删除id为 "+data1+" 的论坛！\n\n真的要删除吗？\n\n删除后将无法恢复！"))
  window.location="admin_forum.asp?action=del_forum&forum_id="+data1
}
//-->
</script><%
end sub

sub del_class()
  dim classid,sql,rs,forumid
  classid=trim(request.querystring("class_id"))
  if not(isnumeric(classid)) then
    call forum_main():exit sub
  end if
  sql="delete from bbs_class where class_id="&classid
  conn.execute(sql)
  sql="select forum_id from bbs_forum where class_id="&classid
  set rs=conn.execute(sql)
  do while not rs.eof
    forumid=rs("forum_id")
    sql="delete from bbs_topic where forum_id="&forumid
    conn.execute(sql)
    sql="delete from bbs_data where forum_id="&forumid
    conn.execute(sql)
    rs.movenext
  loop
  sql="delete from bbs_forum where class_id="&classid
  conn.execute(sql)
  response.write "<script language=javascript>alert(""已成功能删除了一个论坛分类！\n\n（包括其所属的论坛的贴子）"");</script>"
  call forum_main()
end sub

sub del_forum()
  dim classid,forumid,sql
  forumid=trim(request.querystring("forum_id"))
  if not(isnumeric(forumid)) then
    call forum_main():exit sub
  end if
  sql="delete from bbs_forum where forum_id="&forumid
  conn.execute(sql)
  sql="delete from bbs_topic where forum_id="&forumid
  conn.execute(sql)
  sql="delete from bbs_data where forum_id="&forumid
  conn.execute(sql)
  response.write "<script language=javascript>alert(""已成功能删除了一个论坛！\n\n（包括其所属的贴子）"");</script>"
  call forum_main()
end sub
%>