admin_forum.asp

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

<!-- #include file="include/onlogin.asp" -->
<!-- #include file="include/conn.asp" -->
<%
dim admin_menu
admin_menu="<a href='admin_forum.asp'>论坛管理</a> ┋ " & _
	   "<a href='admin_forum.asp?action=mod'>合并论坛</a> ┋ " & _
	   "<a href='admin_forum.asp?action=order'>重新排序</a>"
response.write header(11,admin_menu)

select case action
case "mod"
  call forum_mod()
case "order"
  call forum_order()
case "forum_add"
  call forum_add()
case "forum_edit"
  call forum_edit()
case "del_forum"
  call del_forum()
case "class_add"
  call class_add()
case "class_edit"
  call class_edit()
case "del_class"
  call del_class()
case else
  call forum_main()
end select

close_conn
response.write ender()

sub forum_order()
  dim rs,sql,rsf,sqlf,i,j,cid,fid
  i=1
  sql="select class_id from bbs_class order by class_order,class_id"
  set rs=conn.execute(sql)
  do while not rs.eof
    j=1:cid=rs(0)
    conn.execute("update bbs_class set class_order="&i&" where class_id="&cid)
    sqlf="select forum_id from bbs_forum where class_id="&cid&" order by forum_order,forum_id"
    set rsf=conn.execute(sqlf)
    do while not rsf.eof
      fid=rsf(0)
      conn.execute("update bbs_forum set forum_order="&j&" where forum_id="&fid)
      rsf.movenext
      j=j+1
    loop
    rsf.close:set rsf=nothing
    rs.movenext
    i=i+1
  loop
  rs.close:set rs=nothing
  call forum_main()
end sub

sub class_edit()
  dim classid,rs,strsql,class_name,class_order
  classid=trim(request("class_id"))
  if not(isnumeric(classid)) then
    response.redirect "admin_forum.asp"
    response.end
  end if
  set rs=server.createobject("adodb.recordset")
  strsql="Select * from bbs_class where class_id="&classid
  rs.open strsql,conn,1,3
%><font class=red>修改论坛分类</font><br><br><br>
<table border=0 width=300><%
if trim(request("edit"))="ok" then
  class_name=code_form(request.form("class_name"))
  if class_name="" then
    response.write( VbCrLf & "<tr><td height=80 align=center><font class=red_2>论坛分类名称不能为空！</font><br><br>"&go_back&"</td></tr>")
  else
    rs("class_name")=class_name
    rs.update
    response.write( VbCrLf & "<tr><td height=80 align=center>成功的修改了论坛分类：<font class=red>" & class_name & "</font></td></tr>")
  end if
else
%>
<tr>
<form method=post action='admin_forum.asp?action=class_edit&class_id=<%=classid%>&edit=ok'>
<td width='40%' align=center></td><td width='60%'></td>
</tr>
<tr height=30>
<td align=center>论坛分类名称：</td> 
<td><input type=text name=class_name value='<%=rs("class_name")%>' size=20 maxlength=20></td> 
</tr>
<tr height=30> 
<td colspan=2 align=center height=30><input type=submit value=' 提 交 修 改 '></td>
</form>
</tr><%
  end if
  rs.close:set rs=nothing
%></table><%
end sub

sub class_add()
%><font class=red>添加论坛分类</font><br><br><br>
<table border=0 width=300>
<%
if trim(request.querystring("add"))="ok" then
  dim rs,strsql,class_name,class_order
  class_name=code_form(request.form("class_name"))
  if class_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_class order by class_order desc"
    rs.open strsql,conn,1,1
    if rs.eof and rs.bof then
      class_order=0
    else
      class_order=rs("class_order")
    end if
    class_order=class_order+1
    rs.close
    strsql="Select * from bbs_class"
    rs.open strsql,conn,1,3
    rs.addnew
    rs("class_order")=class_order
    rs("class_name")=class_name
    rs.update
    response.write( VbCrLf & "<tr><td height=80 align=center>成功的添加了论坛分类：<font class=red>" & class_name & "</font></td></tr>")
    rs.close:set rs=nothing
  end if
else
%>
<tr>
<form method=post action='admin_forum.asp?action=class_add&add=ok'>
<td width='40%' align=center></td><td width='60%'></td>
</tr>
<tr height=30>
<td align=center>论坛分类名称：</td> 
<td><input type=text name=class_name size=20 maxlength=20></td> 
</tr>
<tr height=30> 
<td colspan=2 align=center height=30><input type=submit value=' 提 交 添 加 '></td>
</form>
</tr><%
end if
%></table><%
end sub

sub forum_edit()
  dim classid,forumid,rs,strsql,classname,forum_name
  classid=trim(request("class_id"))
  forumid=trim(request("forum_id"))
  if not(isnumeric(classid)) or not(isnumeric(forumid)) 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><%
  set rs=server.createobject("adodb.recordset")
  strsql="Select * from bbs_forum where forum_id="&forumid
  rs.open strsql,conn,1,3
  if trim(request.querystring("edit"))="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
      rs("class_id")=classid
      rs("forum_name")=forum_name
      rs("forum_pic")=trim(request.form("forum_pic"))
      if request.form("forum_hidden")="no" then
        rs("forum_hidden")=false
      else
        rs("forum_hidden")=true
      end if
      rs("forum_type")=request.form("forum_type")
      rs("forum_remark")=request.form("forum_remark")
      rs("forum_power")=code_form(request.form("forum_power"))
      rs.update
      response.write( VbCrLf & "<tr><td height=80 align=center>成功的修改了论坛：<font class=red>" & forum_name & "</font></td></tr>")
    end if
  else
%><form method=post action='admin_forum.asp?action=forum_edit&forum_id=<%=forumid%>&edit=ok'>
<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 value='<%=rs("forum_name")%>' size=30 maxlength=20></td> 
</tr>
<tr height=30>
<td align=center>所属分类：</td> 
<td><select name=class_id size=1>
<%
dim crs,csql,cid,ctype
csql="select * from bbs_class order by class_order"
set crs=conn.execute(csql)
do while not crs.eof
  cid=crs("class_id")
  response.write vbcrlf & "<option value='"&cid&"'"
  if int(classid)=int(cid) then
    response.write " selected class=bg_1"
  end if
  response.write ">"&crs("class_name")&"</option>"
  crs.movenext
loop

ctype=int(rs("forum_type"))
%>
</select></td> 
</tr>
<tr>
<td align=center>论坛说明：</td> 
<td><textarea name=forum_remark rows=5 cols=50><%=rs("forum_remark")%></textarea></td> 
</tr>
<tr>
<td align=center>论坛图片：</td> 
<td><input type=text name=forum_pic value='<%=rs("forum_pic")%>' size=30 maxlength=50></td> 
</tr>
<tr>
<td align=center>论坛类型：</td> 
<td><select name=forum_type size=1>
<%
  dim tdim,t2
  tdim=split(forum_type,"|")
  for i=0 to ubound(tdim)
    response.write vbcrlf&"<option value='"&i+1&"'"
    if ctype=i+1 then response.write " selected"
    response.write ">"&right(tdim(i),len(tdim(i))-instr(tdim(i),":"))&"</option>"
  next
  erase tdim
%>