admin_forum.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

  end if
%></table><%
end sub

sub forum_edit_board(cid,fid,ff,nid)
  dim rsboard,strsqlboard,forumid,forumname,fi,foo,fb
  strsqlboard="select forum_id,forum_name,forum_power,forum_hidden from bbs_forum where forum_f="&fid&" and class_id=" & cid & " order by forum_order"
  set rsboard=conn.execute(strsqlboard)
  if rsboard.eof and rsboard.bof then
    rsboard.close:set rsboard=nothing
    exit sub
  end if
  do while not rsboard.eof
    forumid=rsboard("forum_id"):forumname=rsboard("forum_name")
    foo=vbcrlf&"<option value='"&cid&"-"&forumid&"'"
    if int(nid)=int(forumid) then foo=foo&" selected"
    foo=foo&">"
    for fi=0 to ff
      if fi=ff then
        foo=foo&"├"
      else
        foo=foo&"│"
      end if
    next
    foo=foo&"" & forumname & "</option>"
    response.write foo
    call forum_edit_board(cid,forumid,ff+1,nid)
    rsboard.movenext
  loop
  rsboard.close:set rsboard=nothing
end sub

sub forum_add()
  dim rs,strsql,classname,classid,forum_name,forum_order,fid,forum_pro
  classid=trim(request.querystring("class_id"))
  fid=trim(request.querystring("forum_id"))
  if not(isnumeric(fid)) then fid=0
  if not(isnumeric(classid)) then call forum_main():exit sub
  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_admin(request.form("forum_name"))
  forum_pro=code_admin(request.form("forum_pro"))
  if not(isnumeric(forum_pro)) then forum_pro=0
  if int(forum_pro)<>1 and int(forum_pro)<>2 then forum_pro=0
  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
    forum_order=0
    set rs=server.createobject("adodb.recordset")
    strsql="Select top 1 forum_order from bbs_forum where class_id="&classid&" and forum_f="&fid&" order by forum_order desc"
    set rs=conn.execute(strsql)
    if not(rs.eof and rs.bof) then forum_order=rs("forum_order")
    rs.close
    forum_order=forum_order+1
    strsql="Select * from bbs_forum"
    rs.open strsql,conn,1,3
    rs.addnew
    rs("class_id")=classid
    rs("forum_order")=forum_order
    rs("forum_f")=fid
    rs("forum_n")=0
    if request.form("forum_w")="yes" then
      rs("forum_w")=true
    else
      rs("forum_w")=false
    end if
    rs("forum_name")=forum_name
    rs("forum_remark")=request.form("forum_remark")
    rs("forum_power")=code_form(request.form("forum_power"))
    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_pro")=forum_pro
    rs("forum_type")=request.form("forum_type")
    rs("forum_topic_num")=0
    rs("forum_data_num")=0
    rs("forum_new_info")="|||"
    rs.update
    conn.execute("update bbs_forum set forum_n=forum_n+1 where forum_id="&fid)
    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&forum_id=<%=fid%>&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><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&"'>"&right(tdim(i),len(tdim(i))-instr(tdim(i),":"))&"</option>"
  next
  erase tdim
%></select>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;是否开放：<input type=checkbox name=forum_hidden value='no' checked>&nbsp;（选上为开放）</td></tr>
<tr><td align=center>论坛属性：</td><td><input type=radio name=forum_pro value='0' checked>正常&nbsp;<input type=radio name=forum_pro value='1'>只读</td></tr>
<tr><td align=center>发贴模式：</td><td><input type=checkbox name=forum_w value='yes' checked>&nbsp;（选上为可以发表新的主题）</td></tr>
<tr><td align=center>论坛图片：</td><td><input type=text name=forum_pic value='' size=30 maxlength=50> 例：<a title='代表 images/forum/sample.gif 这个图片<br>也可以直接填写图片的URL地址'>$sample.gif</a></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,fb:fb=""
  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>"
      call forum_list_board(rsclass("class_id"),0,0,fb)
      response.write fb
      rsclass.movenext
    loop
  end if
  set rsclass=nothing:set rsboard=nothing
end sub

sub forum_list_board(cid,fid,ff,fo)
  dim rsboard,strsqlboard,forumid,forumname,fi,foo
  strsqlboard="select forum_id,forum_name,forum_power,forum_hidden from bbs_forum where forum_f="&fid&" and class_id=" & cid & " order by forum_order"
  set rsboard=conn.execute(strsqlboard)
  if rsboard.eof and rsboard.bof then
    rsboard.close:set rsboard=nothing
    exit sub
  end if
  do while not rsboard.eof
    forumid=rsboard("forum_id"):forumname=rsboard("forum_name")
    foo=vbcrlf&"document.write (""<option value='" &forumid& "'>"
    for fi=0 to ff
      if fi=ff then
        foo=foo&"├"
      else
        foo=foo&"│"
      end if
    next
    foo=foo&forumname & "</option>"");"
    fo=fo&foo
    call forum_list_board(cid,forumid,ff+1,fo)
    rsboard.movenext
  loop
  rsboard.close:set rsboard=nothing
end sub

sub form_board(cid,fid,ff)
  dim rsboard,strsqlboard,forumid,forumname,fi
  strsqlboard="select forum_id,forum_name,forum_power,forum_hidden from bbs_forum where forum_f="&fid&" and class_id=" & cid & " order by forum_order"
  set rsboard=conn.execute(strsqlboard)
  if rsboard.eof and rsboard.bof then
    rsboard.close:set rsboard=nothing
    exit sub
  end if
  do while not rsboard.eof
    forumid=rsboard("forum_id"):forumname=rsboard("forum_name")
    response.write vbcrlf&"<tr align=center"
    if ff mod 2<>0 then response.write " class=bg_2"
    response.write "><td align=left class=blue>"
    for fi=0 to ff
      response.write "　"
    next
    response.write img_small("fk_plus")&"<b>" & forumname & "</b>"
    if rsboard("forum_hidden")=true then response.write " <font class=gray>隐藏</font>"
    response.write "</td><td><a href='admin_forum.asp?action=forum_add&class_id=" & cid & "&forum_id="&forumid&"'>添加分论坛</a></td><td><a href='?action=forum_edit&class_id="&cid&"&forum_id=" & forumid & "'>编辑</a></td><td><a href=""javascript:Do_del_forum(" & forumid & ");"">删除</a></td><td>排序：<a href='?fid="&fid&"&forum_id="&forumid&"&class_id="&cid&"&action=orders&actions=up'>向上</a> <a href='?fid="&fid&"&forum_id="&forumid&"&class_id="&cid&"&action=orders&actions=down'>向下</a></td></tr>"
    call form_board(cid,forumid,ff+1)
    rsboard.movenext
  loop
  rsboard.close:set rsboard=nothing
end sub

sub forum_main()
%><table border=1 cellspacing=0 cellpadding=2 width=500 bordercolorlight=#C0C0C0 bordercolordark=#FFFFFF>
<%
dim rsclass,strsqlclass,classid
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 class=bg_3 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='?action=class_edit&class_id=" & classid & "'>修改</a></td><td><a href=""javascript:Do_del_class('" & classid & "');"">删除</a></td><td>排序：<a href='?class_id="&classid&"&action=orderc&actions=up'>向上</a> <a href='?class_id="&classid&"&action=orderc&actions=down'>向下</a></td></tr>"
    call form_board(classid,0,0)
    rsclass.movenext
  loop
end if
set rsclass=nothing
%>
<tr><td align=center height=30 colspan=5><a href='?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="?action=del_class&class_id="+data1
}

function Do_del_forum(data1)
{
if (confirm("此操作将删除id为 "+data1+" 的论坛！\n\n真的要删除吗？\n\n删除后将无法恢复！"))
  window.location="?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_board(fid,ff)
  dim rsboard,strsqlboard,forumid
  strsqlboard="select forum_id from bbs_forum where forum_f="&fid&" order by forum_order"
  set rsboard=conn.execute(strsqlboard)
  if rsboard.eof and rsboard.bof then
    rsboard.close:set rsboard=nothing
    exit sub
  end if
  do while not rsboard.eof
    forumid=rsboard("forum_id")
    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)
    call del_forum_board(forumid,ff+1)
    rsboard.movenext
  loop
  rsboard.close:set rsboard=nothing
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
  conn.execute("update bbs_forum set forum_n=forum_n+1 where forum_id="&forumid)
  call del_forum_board(forumid,0)
  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)
  sql="delete from log where l_boardid="&forumid
  conn.execute(sql)
  response.write "<script language=javascript>alert(""已成功能删除了一个论坛！\n\n（包括其所属的贴子、事件）"");</script>"
  call forum_main()
end sub
%>