admin_forum.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

    rs.addnew
    rs("class_id")=classid
    rs("forum_order")=forumorder+1
    rs("forum_f")=forumf
    rs("forum_n")=0
    if trim(request.form("forum_w"))="yes" then
      rs("forum_w")=true
    else
      rs("forum_w")=false
    end if
    if int(forumf)=0 then
      rs("forum_star")=0
    else
      rs("forum_star")=forumstar+1
    end if
    rs("forum_name")=forumname
    rs("forum_remark")=code_admin("forum_remark",1,250)
    rs("forum_power")=code_admin("forum_power",1,50)
    rs("forum_pic")=code_admin("forum_pic",1,50)
    rs("forum_hidden")=fhidden
    rs("forum_pro")=forumpro
    rs("forum_type")=forumtype
    rs("forum_new_num")=0
    rs("forum_topic_num")=0
    rs("forum_data_num")=0
    rs("forum_new_info")="|||"
    rs("forum_config")="0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0"
    rs("forum_user")=joekoe_cms.code_word("forum_user")
    rs.update
    rs.close
    dim firid
    firid=first_id("bbs_forum","forum_id")
    if var_null(forumparent)<>"" then
      call joekoe_cms.exec("update bbs_forum set forum_parent='"&forumparent&","&firid&"' where forum_id="&firid,0)
    else
      call joekoe_cms.exec("update bbs_forum set forum_parent='"&firid&"' where forum_id="&firid,0)
    end if
    if fhidden=false and var_null(forumparent)<>"" then
      call joekoe_cms.exec("update bbs_forum set forum_n=forum_n+1 where class_id="&classid&" and forum_id in ("&forumparent&")",0)
    end if
    call admin_msg("成功添加一个新的论坛（"&forumname&"）！","?",1)
    exit sub
  end if
  call form_first()
%>
<form action='?action=add&forum_id=<%response.write forumid%>' method=post>
<input type=hidden name='chk' value='yes'>
<tr><td>论坛名称：</td><td><input type=text name=forum_name size=30 maxlength=20></td></tr>
<tr><td>所属分类：</td><td><%call forum_add_edit_list(forumid)%></td></tr>
<tr><td>论坛类型：</td><td><select name=forum_type size=1><%
  ddim=split(web_dim(21),"|")
  for i=0 to ubound(ddim)
    response.write vbcrlf&"<option value='"&i+1&"'>"&right(ddim(i),len(ddim(i))-instr(ddim(i),":"))&"</option>"
  next
  erase ddim
%><option value='0' class=tr1>认证论坛</option></select></td></tr>
<tr><td>开放隐藏：</td><td><input type=checkbox name=forum_hidden value='no' checked>&nbsp;（选上为开放，否则为隐藏）</td></tr>
<tr><td>论坛属性：</td><td><input type=radio name=forum_pro value='0' checked>正常&nbsp;<input type=radio name=forum_pro value='1'>只读</td></tr>
<tr><td>发贴模式：</td><td><input type=checkbox name=forum_w value='yes' checked>&nbsp;（选上为可以发表新的主题）</td></tr>
<tr><td>论坛图片：</td><td><input type=text name=forum_pic value='' size=30 maxlength=20> 例：<a title='代表 images/forum_pic/sample.gif 这个图片<br>也可以直接填写图片的URL地址'>$sample.gif</a> （绝对地址也可以）</td></tr>
<tr><td>论坛版主：</td><td><input type=text name=forum_power size=50 maxlength=50><br>多个请用“|”分开，如：“joekoe|super1|andy”</td></tr>
<tr><td>论坛说明：<br><br><=250字</td><td><textarea name=forum_remark rows=5 cols=50></textarea></td></tr>
<tr>
<td>认证用户：<br><br>只在论坛类型为“认证论坛”时有效<br>多个请用“<font class=red>,</font>”格开，<br>如：apple,allen,mary</td>
<td>
  <table border=0 cellspacing=0 cellpadding=0>
  <tr>
  <td><textarea name=forum_user rows=5 cols=50></textarea></td>
  <td width=5></td>
  <td valign=bottom><%call textarea_resize("forum_user")%></td>
  </tr>
  </table>
</td>
</tr>
<%
  call submit_add()
end sub

sub forum_main()
  dim classname,nforumid,forumname,forumn,forumstar,oclassid,foo,fi,cc,fclass,up_down
  oclassid=0
%>
<tr align=center>
<td width='50%' class=td>论坛分类/名称,是否可发贴,是否隐藏,今日新贴,主题数,贴子数</td>
<td width='15%' class=td>添加分论坛</td>
<td width='35%' class=td>相关操作</td>
</tr>
<%
  sql="select forum_id,class_id,forum_name,forum_w,forum_n,forum_star,forum_hidden,forum_pro,forum_topic_num,forum_data_num,forum_new_num from bbs_forum order by class_id,forum_order,forum_star"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    nforumid=rs("forum_id")
    classid=rs("class_id")
    forumname=rs("forum_name")
    forumn=rs("forum_n")
    forumstar=rs("forum_star")
    fclass="blue"
    up_down=2
    cc="tr"
    foo=""
    if classid<>oclassid then
      fclass="red2"
      up_down=1
      cc="tr3"
      oclassid=classid
    end if
    for fi=1 to forumstar
      foo=foo&"　"
    next
%>
<tr class=<%response.write cc%> align=center>
<td>
  <table border=0 cellspacing=0 cellpadding=0 width='100%'>
  <tr class=<%response.write cc%>>
  <td><font class=<%response.write fclass%>><b><%response.write foo&forumname%></b></font><%if int(forumn)>0 then response.write " <font class=red>"&forumn&"</font>"%></td>
  <td align=right><%
    if rs("forum_w")=false then response.write "<font class=gray>不可发贴</font>&nbsp;"
    if rs("forum_hidden")=true then response.write "<font class=gray>隐藏</font>&nbsp;"
    if rs("forum_pro")=1 then response.write "<font class=gray>只读</font>&nbsp;"
    response.write "<font class=tims><font class=red>"&rs("forum_new_num")&"</font>,"&rs("forum_topic_num")&","&rs("forum_data_num")&"</font>"
%></td>
  </tr>
  </table>
</td>
<td><a href='?action=add&forum_id=<%response.write nforumid%>'>添加分论坛</a></td>
<td>
<a href='?action=edit&forum_id=<%response.write nforumid%>'>基本设置</a>&nbsp;
<a href='?action=edit_parameter&forum_id=<%response.write nforumid%>'>参数设置</a>&nbsp;
<a href='?action=restore&forum_id=<%response.write nforumid%>' onclick="javascript:return click_return('对 <%response.write joekoe_cms.code_js(forumname,1)%> 进行主题等数据修复',0);">修复</a>&nbsp;
<a href='?action=del&forum_id=<%response.write nforumid%>' onclick="javascript:return click_return('删除论坛（<%response.write joekoe_cms.code_js(forumname,1)%>）及其下属论坛',0);">删除</a>&nbsp;&nbsp;
<a href='?forum_id=<%response.write nforumid%>&action=orders&actions=up'><%response.write img_admin("up_"&up_down,"向上移动此论坛")%></a>&nbsp;
<a href='?forum_id=<%response.write nforumid%>&action=orders&actions=down'><%response.write img_admin("down_"&up_down,"向下移动此论坛")%></a>
</td>
</tr>
<%
    rs.movenext
  loop
  rs.close
end sub

sub forum_mod()
  dim temp1,forum_topic_num,forum_data_num,forum_new_info,ftrue,fname1,fname2
  call admin_td("合并论坛数据")
  if chk() then
    dim sel1,sel2
    sel1=trim(request.form("sel_1"))
    sel2=trim(request.form("sel_2"))
    if not(isnumeric(sel1)) or not(isnumeric(sel2)) then
      response.write "<tr><td align=center height=50 colspan=2><font class=red2>您没有选择要合并的论坛！</font></td></tr>"
    else
      sel1=int(sel1)
      sel2=int(sel2)
      ftrue=true
      sql="select forum_topic_num,forum_data_num,forum_name from bbs_forum where forum_id="&sel2
      set rs=joekoe_cms.exec(sql,1)
      if rs.eof then
        ftrue=false
        response.write "<tr><td align=center height=50 colspan=2><font class=red2>转移论坛ID（"&sel1&"）不存在！</font></td></tr>"
      else
        forum_topic_num=rs(0)
        forum_data_num=rs(1)
        fname1=rs(2)
      end if
      rs.close
      if ftrue=true then
        sql="select forum_topic_num,forum_data_num,forum_name from bbs_forum where forum_id="&sel1
        set rs=joekoe_cms.exec(sql,1)
        if rs.eof then
          ftrue=false
          response.write "<tr><td align=center height=50 colspan=2><font class=red2>主论坛ID（"&sel1&"）不存在！</font></td></tr>"
        else
          forum_topic_num=forum_topic_num+rs(0)
          forum_data_num=forum_data_num+rs(1)
          fname2=rs(2)
        end if
        rs.close
      end if
      if ftrue=true then
        sql="update bbs_forum set forum_topic_num=0,forum_data_num=0,forum_new_info='' where forum_id="&sel1
        call joekoe_cms.exec(sql,0)
        sql="update bbs_forum set forum_topic_num="&forum_topic_num&",forum_data_num="&forum_data_num&" where forum_id="&sel2
        call joekoe_cms.exec(sql,0)
        sql="update bbs_topic set forum_id="&sel2&" where forum_id="&sel1
        call joekoe_cms.exec(sql,0)
        sql="update bbs_data set forum_id="&sel2&" where forum_id="&sel1
        call joekoe_cms.exec(sql,0)
        call admin_msg("成功将论坛（"&fname1&"）数据合并到论坛（"&fname2&"）中！","?action=mod",0)
        exit sub
      end if
    end if
  end if
  call form_first()
  temp1=forum_mod_list()
%>
<form action='?action=mod' method=post>
<input type=hidden name='chk' value='yes'>
<tr>
<td>从论坛：</td>
<td height=50><select name=sel_1><%response.write temp1%></select></td>
</tr>
<tr>
<td>合并到论坛：</td>
<td height=50><select name=sel_2><%response.write temp1%></select></td>
</tr>
<tr>
<td></td>
<td height=50><input type=submit value='开始合并'></td>
</tr>
</form>
<%
end sub

function forum_mod_list()
  dim temp1,ncid,forumn
  ncid=0
  sql="select forum_id,class_id,forum_name,forum_n,forum_w,forum_star,forum_hidden,forum_pro from bbs_forum order by class_id,forum_order,forum_star"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    classid=rs("class_id")
    if int(ncid)<>int(classid) then
      temp1=temp1&vbcrlf&"<option class=bg_2>╋"&rs("forum_name")&"</option>"
      ncid=classid
    else
      forumn=rs("forum_n")
      temp1=temp1&vbcrlf&"<option value='"&rs("forum_id")&"'>"
      for i=1 to rs("forum_star")-1
        temp1=temp1&"│"
      next
      temp1=temp1&"├"&rs("forum_name")
      if rs("forum_w")=false then temp1=temp1&" <不可发贴>"
      if rs("forum_hidden")=true then temp1=temp1&" <隐>"
      if rs("forum_pro")=1 then temp1=temp1&" <只读>"
      temp1=temp1&"</option>"
    end if
    rs.movenext
  loop
  rs.close
  forum_mod_list=temp1
end function

sub forum_edit_parameter()
  dim forumname,forumconfig
  sql="select top 1 forum_name,forum_config from bbs_forum where forum_id="&forumid
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,3
  if rs.eof then
    rs.close
    call admin_msg("论坛ID（"&forumid&"）不存在！","?",1)
    exit sub
  end if
  forumname=rs("forum_name")
  call admin_td("论坛（"&forumname&"）参数设置")
  if chk() then
    for i=0 to len_forum_config
      if trim(request.form("config_"&i))="" then forumconfig=forumconfig&"0"
      forumconfig=forumconfig&trim(request.form("config_"&i))&"|"
    next
    if right(forumconfig,1)="|" then
      forumconfig=left(forumconfig,len(forumconfig)-1)
    end if
    rs("forum_config")=forumconfig
    rs.update
    rs.close
    'call cache_class_clear()
    call admin_msg("成功对论坛（"&forumname&"）进行了参数设置！","?action=edit_parameter&forum_id="&forumid,1)
    exit sub
  end if
  call form_first()
  forumconfig=rs("forum_config")
  forumconfig=split(forumconfig,"|")
%>
<form action='?action=edit_parameter&forum_id=<%response.write forumid%>' method=post>
<input type=hidden name='chk' value='yes'>
<tr>
<td>论坛验证码：</td>
<td><input type=radio name=config_16 value='0'<%if int(forumconfig(16))<>1 and  int(forumconfig(16))<>2 then response.write " checked"%>>&nbsp;默认值&nbsp;&nbsp;<input type=radio name=config_16 value='2'<%if int(forumconfig(16))=2 then response.write " checked"%>>&nbsp;开启&nbsp;&nbsp;<input type=radio name=config_16 value='1'<%if int(forumconfig(16))=1 then response.write " checked"%>>&nbsp;关闭</td>
</tr>
<tr>
<td>论坛导航显示：</td>
<td><input type=radio name=config_0 value='0'<%if int(forumconfig(0))<>1 and  int(forumconfig(0))<>2 then response.write " checked"%>>&nbsp;默认值&nbsp;&nbsp;<input type=radio name=config_0 value='2'<%if int(forumconfig(0))=2 then response.write " checked"%>>&nbsp;开启&nbsp;&nbsp;<input type=radio name=config_0 value='1'<%if int(forumconfig(0))=1 then response.write " checked"%>>&nbsp;关闭</td>
</tr>
<tr>
<td>论坛版主显示：</td>
<td><input type=radio name=config_1 value='0'<%if int(forumconfig(1))<>1 and  int(forumconfig(1))<>2 then response.write " checked"%>>&nbsp;默认值&nbsp;&nbsp;<input type=radio name=config_1 value='2'<%if int(forumconfig(1))=2 then response.write " checked"%>>&nbsp;文字链接&nbsp;&nbsp;<input type=radio name=config_1 value='1'<%if int(forumconfig(1))=1 then response.write " checked"%>>&nbsp;下拉菜单框</td>
</tr>
<tr>
<td>论坛事件保密：</td>
<td><input type=radio name=config_2 value='0'<%if int(forumconfig(2))=0 then response.write " checked"%>>&nbsp;不保密&nbsp;&nbsp<input type=radio name=config_2 value='1'<%if int(forumconfig(2))=1 then response.write " checked"%>>&nbsp;保密</td>
</tr>
<tr>
<td>论坛列表页显示数：</td>
<td><input type=text name=config_3 value='<%response.write forumconfig(3)%>' size=10 maxlength=20>&nbsp;贴，填“<font class=red>0</font>”为使用默认值</td>
</tr>
<tr>
<td>论坛浏览页显示数：</td>
<td><input type=text name=config_4 value='<%response.write forumconfig(4)%>' size=10 maxlength=20>&nbsp;贴，填“<font class=red>0</font>”为使用默认值</td>
</tr>
<tr>
<td>论坛发贴最小长度：</td>
<td><input type=text name=config_5 value='<%response.write forumconfig(5)%>' size=10 maxlength=20>&nbsp;B（字节），填“<font class=red>0</font>”为使用默认值</td>
</tr>
<tr>
<td>论坛发贴最大长度：</td>
<td><input type=text name=config_6 value='<%response.write forumconfig(6)%>' size=10 maxlength=20>&nbsp;KB（千字节），填“<font class=red>0</font>”为使用默认值</td>
</tr>
<tr>
<td>论坛发新贴得分：</td>
<td><input type=text name=config_7 value='<%response.write forumconfig(7)%>' size=10 maxlength=20>&nbsp;分，填“<font class=red>0</font>”为使用默认值</td>
</tr>
<tr>
<td>论坛回贴得分：</td>
<td><input type=text name=config_8 value='<%response.write forumconfig(8)%>' size=10 maxlength=20>&nbsp;分，填“<font class=red>0</font>”为使用默认值</td>
</tr>
<tr>
<td>论坛发颜色贴扣分：</td>
<td><input type=text name=config_9 value='<%response.write forumconfig(9)%>' size=10 maxlength=20>&nbsp;分，填“<font class=red>0</font>”为使用默认值</td>
</tr>
<tr>
<td>论坛发加粗贴扣分：</td>
<td><input type=text name=config_10 value='<%response.write forumconfig(10)%>' size=10 maxlength=20>&nbsp;分，填“<font class=red>0</font>”为使用默认值</td>
</tr>
<tr>
<td>论坛热贴回贴数：</td>
<td><input type=text name=config_11 value='<%response.write forumconfig(11)%>' size=10 maxlength=20>&nbsp;贴，填“<font class=red>0</font>”为使用默认值</td>
</tr>
<tr>
<td>论坛投票项数：</td>
<td><input type=text name=config_12 value='<%response.write forumconfig(12)%>' size=10 maxlength=20>&nbsp;项，填“<font class=red>0</font>”为使用默认值</td>
</tr>
<tr>
<td>主题管理最高值：</td>
<td><input type=text name=config_13 value='<%response.write forumconfig(13)%>' size=10 maxlength=20>&nbsp;分，填“<font class=red>0</font>”为使用默认值</td>
</tr>
<tr>
<td>论坛不可回复时间：</td>
<td><input type=text name=config_18 value='<%response.write forumconfig(18)%>' size=10 maxlength=20>&nbsp;天，填“<font class=red>0</font>”为使用默认值</td>
</tr>
<tr>
<td>论坛不可编辑时间：</td>
<td><input type=text name=config_19 value='<%response.write forumconfig(19)%>' size=10 maxlength=20>&nbsp;天，填“<font class=red>0</font>”为使用默认值</td>
</tr>
<%
  erase forumconfig
  rs.close
  call submit_edit()
end sub
%>