admin_forum.asp

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

  if int(forumstar)=int(star_min) then
    num1=classid
    sql="select top 1 class_id from bbs_forum where class_id>"&classid&" order by class_id"
    if actions="up" then
      sql="select top 1 class_id from bbs_forum where class_id<"&classid&" order by class_id desc"
    end if
    set rs=joekoe_cms.exec(sql,1)
    if rs.eof then
      rs.close
      call forum_main()
      exit sub
    end if
    num2=rs(0)
    rs.close
    sql="select top 1 class_id from bbs_forum order by class_id desc"
    set rs=joekoe_cms.exec(sql,1)
    num3=rs(0)+10000
    rs.close
    sql="update bbs_forum set class_id="&num3&" where class_id="&classid
    call joekoe_cms.exec(sql,0)
    sql="update bbs_forum set class_id="&classid&" where class_id="&num2
    call joekoe_cms.exec(sql,0)
    sql="update bbs_forum set class_id="&num2&" where class_id="&num3
    call joekoe_cms.exec(sql,0)
    call forum_main()
    exit sub
  end if
  dim forumid2,forumorder2,forumparent2,forder1,forder2
  sql="select top 1 forum_id,forum_order,forum_parent from bbs_forum where class_id="&classid&" and forum_f="&forumf&" and forum_star="&forumstar&" and forum_id<>"&forumid&" and forum_order>"&forumorder&" order by forum_order"
  if actions="up" then
    sql="select top 1 forum_id,forum_order,forum_parent from bbs_forum where class_id="&classid&" and forum_f="&forumf&" and forum_star="&forumstar&" and forum_id<>"&forumid&" and forum_order<"&forumorder&" order by forum_order desc"
  end if
  set rs=joekoe_cms.exec(sql,1)
  if rs.eof then
    rs.close
    call forum_main()
    exit sub
  end if
  forumid2=rs("forum_id")
  forumorder2=rs("forum_order")
  forumparent2=rs("forum_parent")
  rs.close
  sql="select top 1 forum_order from bbs_forum where class_id="&classid&" and ( left(forum_parent,"&len(forumparent2)+1&")='"&forumparent2&",' or forum_id="&forumid2&" ) order by forum_order desc"
  set rs=joekoe_cms.exec(sql,1)
  forder2=rs(0)
  rs.close
  sql="select top 1 forum_order from bbs_forum where class_id="&classid&" and ( left(forum_parent,"&len(forumparent)+1&")='"&forumparent&",' or forum_id="&forumid&" ) order by forum_order desc"
  set rs=joekoe_cms.exec(sql,1)
  forder1=rs(0)
  rs.close
  num1=forder1-forumorder+1
  num2=forder2-forumorder2+1
  sql="update bbs_forum set forum_order=forum_order"
  if actions="up" then
    sql=sql&"-"
  else
    sql=sql&"+"
  end if
  sql=sql&num2&" where left(forum_parent,"&len(forumparent)+1&")='"&forumparent&",' or forum_id="&forumid
  call joekoe_cms.exec(sql,0)
  sql="update bbs_forum set forum_order=forum_order"
  if actions="up" then
    sql=sql&"+"
  else
    sql=sql&"-"
  end if
  sql=sql&num1&" where left(forum_parent,"&len(forumparent2)+1&")='"&forumparent2&",' or forum_id="&forumid2
  call joekoe_cms.exec(sql,0)
  call forum_main()
end sub

sub forum_edit()
  dim funder,ftrue,fir_true,forumname,forumtype,forumpro,forumstar,forumparent,forumorder,fparent,forumhidden,fhidden,rs2,forumf,forumid2,classid2,fhn
  fhidden=false
  funder=false
  ftrue=false
  fir_true=false
  sql="select count(forum_id) from bbs_forum where forum_f="&forumid
  set rs=joekoe_cms.exec(sql,1)
  if int(rs(0))>0 then funder=true
  rs.close
  sql="select top 1 * from bbs_forum where forum_id="&forumid
  call joekoe_cms.exec(sql,-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")
  if cstr(rs("forum_star"))="0" and cstr(rs("forum_star"))="0" then fir_true=true
  call admin_td("编辑论坛（"&forumname&"）信息")
  if chk() then
    classid=rs("class_id")
    forumf=rs("forum_f")
    forumparent=rs("forum_parent")
    forumhidden=rs("forum_hidden")
    forumid2=trim(request.form("forum_id"))
    if not(isnumeric(forumid2)) then forumid2=forumid
    forumname=code_admin("forum_name",1,20)
    forumtype=trim(request.form("forum_type"))
    if not(isnumeric(forumtype)) then forumtype=0
    forumpro=trim(request.form("forum_pro"))
    if not(isnumeric(forumpro)) then forum_pro=0
    if int(forumpro)<>1 and int(forumpro)<>2 then forumpro=0
    if forumname="" then
      rs.close
      call admin_error("论坛名称不能为空！")
      exit sub
    end if
    if int(forumid2)<>int(forumid) and int(forumid2)<>int(forumf) and funder=false then
      ftrue=true
      sql="select top 1 class_id,forum_star,forum_parent,forum_hidden from bbs_forum where forum_id="&forumid2
      set rs2=joekoe_cms.exec(sql,1)
      if rs2.eof then
        rs2.close
        set rs2=nothing
        rs.close
        call admin_msg("要更改所属的父级论坛ID（"&forumid2&"）不存在！","?",1)
        exit sub
      end if
      classid2=rs2("class_id")
      forumstar=rs2("forum_star")
      fparent=rs2("forum_parent")
      fhidden=rs2("forum_hidden")
      rs2.close
      forumorder=0
      sql="select max(forum_order) from bbs_forum where class_id="&classid2
      set rs2=joekoe_cms.exec(sql,1)
      if not rs2.eof then forumorder=rs2(0)
      rs2.close
      rs("forum_order")=forumorder+1
      rs("forum_star")=forumstar+1
      'sql="select top 1 forum_order,forum_star from bbs_forum where class_id="&classid2&" and ( left(forum_parent,"&len(fparent)+1&")='"&fparent&",') order by forum_order desc"
      'set rs2=joekoe_cms.exec(sql,1)
      'if not rs2.eof then
      '  forumorder=rs2("forum_order")
      '  rs("forum_order")=forumorder
      '  rs("forum_star")=rs2("forum_star")
      'end if
      'rs2.close
      set rs2=nothing
      call joekoe_cms.exec("update bbs_forum set forum_order=forum_order+1 where class_id="&classid2&" and forum_order>"&forumorder,0)
      rs("class_id")=classid2
      rs("forum_f")=forumid2
      rs("forum_n")=0
      rs("forum_parent")=fparent&","&forumid
    else
      if not fir_true then
        sql="select top 1 forum_hidden from bbs_forum where forum_id="&forumf
        set rs2=joekoe_cms.exec(sql,1)
        if rs2.eof then
          rs2.close
          call admin_msg("所属的父级论坛ID（"&forumf&"）不存在！","?",1)
          exit sub
        end if
        fhidden=rs2("forum_hidden")
        rs2.close
      end if
    end if
    if fhidden=false and trim(request.form("forum_hidden"))<>"no" then fhidden=true
    if trim(request.form("forum_w"))="yes" then
      rs("forum_w")=true
    else
      rs("forum_w")=false
    end if
    rs("forum_name")=forumname
    rs("forum_pic")=code_admin("forum_pic",1,50)
    rs("forum_hidden")=fhidden
    rs("forum_pro")=forumpro
    rs("forum_type")=forumtype
    rs("forum_remark")=code_admin("forum_remark",1,250)
    rs("forum_power")=code_admin("forum_power",1,50)
    rs("forum_user")=code_admin("forum_user",1,0)
    rs.update
    rs.close
    if ftrue=true 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
    if ftrue=false and forumhidden<>fhidden then
      if forumhidden=true then
        call joekoe_cms.exec("update bbs_forum set forum_n=forum_n+1 where class_id="&classid&" and forum_id in ("&forumparent&") and forum_id<>"&forumid,0)
      else
        fhn=1
        sql="select count(forum_id) from bbs_forum where class_id="&classid&" and ( left(forum_parent,"&len(forumparent)+1&")='"&forumparent&",')"
        set rs=joekoe_cms.exec(sql,1)
        fhn=fhn+rs(0)
        rs.close
        call joekoe_cms.exec("update bbs_forum set forum_n=forum_n-"&fhn&" where class_id="&classid&" and forum_id in ("&forumparent&")",0)
        call joekoe_cms.exec("update bbs_forum set forum_hidden=1 where class_id="&classid&" and ( left(forum_parent,"&len(forumparent)+1&")='"&forumparent&",')",0)
      end if
    end if
    if fhidden=false and len(fparent)>0 then
      call joekoe_cms.exec("update bbs_forum set forum_n=forum_n+1 where class_id="&classid2&" and forum_id in ("&fparent&")",0)
    end if
    call admin_msg("成功编辑了论坛（"&forumname&"）信息！","?",1)
    exit sub
  end if
  call form_first()
  forumtype=rs("forum_type")
  forumpro=rs("forum_pro")
  forumhidden=rs("forum_hidden")
%>
<form action='?action=edit&forum_id=<%response.write forumid%>' method=post>
<input type=hidden name='chk' value='yes'>
<tr><td>论坛名称：</td><td><input type=text name=forum_name value='<%response.write forumname%>' size=30 maxlength=20></td></tr>
<tr><td>所属分类：</td><td><%
  if funder=true then
    response.write "<font class=red2>本论坛有下级论坛，不可更改所属分类</font><input type=hidden name=forum_id value='"&forumid&"'>"
  else
    if forumhidden then
      response.write "<font class=red>本论坛隐藏论坛，不可更改所属分类</font><input type=hidden name=forum_id value='"&forumid&"'>"
    else
      call forum_add_edit_list(forumid)
    end if
  end if
%></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&"'"
    if int(forumtype)=(i+1) then response.write " selected"
    response.write ">"&right(ddim(i),len(ddim(i))-instr(ddim(i),":"))&"</option>"
  next
  erase ddim
%><option value='0' class=tr1<%if int(forumtype)=0 then response.write " selected"%>>认证论坛</option></td></tr>
<tr><td>开放隐藏：</td><td><input type=checkbox name=forum_hidden value='no'<%if forumhidden=false then response.write " checked"%>>&nbsp;（选上为开放，否则为隐藏）</td></tr>
<tr><td>论坛属性：</td><td><input type=radio name=forum_pro value='0'<%if int(forumpro)<>1 then response.write " checked"%>>正常&nbsp;<input type=radio name=forum_pro value='1'<%if int(forumpro)=1 then response.write " checked"%>>只读</td></tr>
<tr><td>发贴模式：</td><td><input type=checkbox name=forum_w value='yes'<%if rs("forum_w")=true then response.write " checked"%>>&nbsp;（选上为可以发表新的主题）</td></tr>
<tr><td>论坛图片：</td><td><input type=text name=forum_pic value='<%response.write rs("forum_pic")%>' 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 value='<%response.write rs("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><%response.write joekoe_cms.code_word(rs("forum_remark"))%></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=6 cols=50><%response.write joekoe_cms.code_word(rs("forum_user"))%></textarea></td>
  <td width=5></td>
  <td valign=bottom><%call textarea_resize("forum_user")%></td>
  </tr>
  </table>
</td>
</tr><%
  call submit_edit()
  rs.close
end sub

sub forum_add_edit_list(fid)
  dim temp1,nfid,ncid,forumn,rsf,sqlf
  ncid=0
  temp1="<select name=forum_id size=1><option value='0'>将本论坛作为主论坛分类</option>"
  sqlf="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 rsf=joekoe_cms.exec(sqlf,1)
  do while not rsf.eof
    classid=rsf("class_id")
    nfid=rsf("forum_id")
    if int(ncid)<>int(classid) then
      temp1=temp1&vbcrlf&"<option class=bg_2 value='"&nfid&"'"
      if int(nfid)=int(fid) then temp1=temp1&" selected"
      temp1=temp1&">╋"&rsf("forum_name")&"</option>"
      ncid=classid
    else
      forumn=rsf("forum_n")
      temp1=temp1&vbcrlf&"<option value='"&nfid&"'"
      if int(nfid)=int(fid) then temp1=temp1&" selected"
      temp1=temp1&">"
      for i=1 to rsf("forum_star")-1
        temp1=temp1&"│"
      next
      temp1=temp1&"├"&rsf("forum_name")
      if rsf("forum_w")=false then temp1=temp1&" <不可发贴>"
      if rsf("forum_hidden")=true then temp1=temp1&" <隐>"
      if rsf("forum_pro")=1 then temp1=temp1&" <只读>"
      temp1=temp1&"</option>"
    end if
    rsf.movenext
  loop
  rsf.close
  set rsf=nothing
  temp1=temp1&"</select>"
  response.write temp1
end sub

sub forum_add()
  call admin_td("添加新论坛")
  dim forumname,forumf,forumstar,forumparent,forumorder,forumtype,forumpro,fhidden,fo_id
  classid=1
  sql="select top 1 class_id from bbs_forum order by class_id"
  set rs=joekoe_cms.exec(sql,1)
  if not rs.eof then classid=rs(0)-1
  rs.close
  forumparent=""
  forumorder=-1
  forumf=0
  fhidden=false
  if chk() then
    classid=0
    forumid=trim(request.form("forum_id"))
    if not int_true(forumid) then forumid=0
    if int(forumid)<1 then
      sql="select top 1 class_id from bbs_forum order by class_id desc"
      set rs=joekoe_cms.exec(sql,1)
      if not rs.eof then classid=rs(0)
      rs.close
      classid=classid+1
    else
      sql="select top 1 class_id,forum_order,forum_star,forum_parent,forum_hidden from bbs_forum where forum_id="&forumid
      set rs=joekoe_cms.exec(sql,1)
      if rs.eof then
        rs.close
        call admin_msg("所属分类论坛ID（"&forumid&"）不存在！","?",1)
        exit sub
      end if
      classid=rs("class_id")
      forumorder=rs("forum_order")
      forumstar=rs("forum_star")
      forumparent=rs("forum_parent")
      fhidden=rs("forum_hidden")
      rs.close
      forumf=forumid
      fo_id=forumid
      sql="select top 1 forum_id,forum_order from bbs_forum where left(forum_parent,"&(len(forumparent)+1)&")='"&forumparent&",' order by forum_order desc"
      set rs=joekoe_cms.exec(sql,1)
      if not rs.eof then
        fo_id=rs(0)
        forumorder=rs(1)
      end if
      rs.close
    end if
    forumname=code_admin("forum_name",1,20)
    forumtype=trim(request.form("forum_type"))
    if not(isnumeric(forumtype)) then forumtype=0
    forumpro=trim(request.form("forum_pro"))
    if not(isnumeric(forumpro)) then forumpro=0
    if int(forumpro)<>1 and int(forumpro)<>2 then forumpro=0
    if fhidden=false then
      if trim(request.form("forum_hidden"))<>"no" then fhidden=true
    end if
    if forumname="" then
      call admin_error("论坛名称不能为空！")
      exit sub
    end if
    if int(forumid)>0 then
      sql="select top 1 forum_order from bbs_forum where class_id="&classid&" and forum_f="&fo_id&" order by forum_order desc"
      set rs=joekoe_cms.exec(sql,1)
      if not rs.eof then forumorder=rs(0)
      rs.close
      if int(forumid)>0 then call joekoe_cms.exec("update bbs_forum set forum_order=forum_order+1 where class_id="&classid&" and forum_order>"&forumorder,0)
    end if
    sql="select * from bbs_forum"
    call joekoe_cms.exec("",-1)
    rs.open sql,conn,1,3