forum_isaction.asp

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

    rs.close
    sql_0="select top 1 username,tim from bbs_data where forum_id="&forumid&" and reply_id="&ftid&" order by id desc"
    set rs=joekoe_cms.exec(sql_0,1)
    if not rs.eof then
      re_username=joekoe_cms.code_form(rs("username"))
      re_tim=rs("tim")
    end if
    rs.close
    sql="update bbs_topic set re_counter="&re_counter-1&",re_username='"&re_username&"'"	',re_tim='"&re_tim&"'"
    if action="revert" then sql=sql&",istop=0,isgood=0,islock=0"
    sql=sql&" where id="&ftid
    call joekoe_cms.exec(sql,0)
    if action="revert" then
      if int(n_istop)=1 then
        application.lock
        application(joekoe_cms.web_cookies&"_forum_istop_state_"&forumid)=""
        application.unlock
      end if
      if int(n_istop)=2 then
        application.lock
        application(joekoe_cms.web_cookies&"_forum_istops_state")=""
        application.unlock
      end if
    end if
  case "rap"
    '奖惩项暂时没有操作
  case "move"
    sql="select count(id) from bbs_data where reply_id="&ftid
    set rs=joekoe_cms.exec(sql,1)
    numd=rs(0)
    rs.close
    if not int_true(numd) then numd=0
    call joekoe_cms.exec("update bbs_topic set forum_id="&t_move_fid&" where id="&ftid,0)
    call joekoe_cms.exec("update bbs_data set forum_id="&t_move_fid&" where reply_id="&ftid,0)
    call joekoe_cms.exec("update bbs_forum set forum_topic_num=forum_topic_num-1,forum_data_num=forum_data_num-"&numd&" where forum_id="&forumid,0)
    call joekoe_cms.exec("update bbs_forum set forum_topic_num=forum_topic_num+1,forum_data_num=forum_data_num+"&numd&" where forum_id="&t_move_fid,0)
    call forum_new_info_update(t_move_fid)
    if int(n_istop)=1 then
      application.lock
      application(joekoe_cms.web_cookies&"_forum_istop_state_"&forumid)=""
      application(joekoe_cms.web_cookies&"_forum_istop_state_"&t_move_fid)=""
      application.unlock
    end if
  case "istop","istops","isgood","islock"
    sql="update bbs_topic set "&action&"=1 where id="&ftid
    if action="istops" then
      sql="update bbs_topic set istop=2 where id="&ftid
    end if
    call joekoe_cms.exec(sql,0)
    if action="istop" then
      if int(n_istop)<>1 then
        application.lock
        application(joekoe_cms.web_cookies&"_forum_istop_state_"&forumid)=""
        if int(n_istop)=2 then
          application(joekoe_cms.web_cookies&"_forum_istops_state")=""
        end if
        application.unlock
      end if
    end if
    if action="istops" then
      if int(n_istop)<>2 then
        application.lock
        application(joekoe_cms.web_cookies&"_forum_istops_state")=""
        if int(n_istop)=1 then
          application(joekoe_cms.web_cookies&"_forum_istop_state_"&forumid)=""
        end if
        application.unlock
      end if
    end if
  case "del"
    call joekoe_cms.exec("delete from bbs_data where id="&re_id,0)
    call joekoe_cms.exec("update bbs_topic set re_counter=re_counter-1 where id="&ftid,0)
    call joekoe_cms.exec("update bbs_forum set forum_data_num=forum_data_num-1 where forum_id="&forumid,0)
    call joekoe_cms.exec("update configs set num_data=num_data-1 where id=1",0)
    if ducou=1 then      
      call joekoe_cms.exec("update user_data set bbs_counter=bbs_counter-1 where username='"&id_username&"'",0)
    end if    
    application.lock
    application(joekoe_cms.web_cookies&"_configs_num_data")=application(joekoe_cms.web_cookies&"_configs_num_data")-1
    application.unlock
  case "delete"
    call upload_del(index_url,ftid)
    sql="select count(id) from bbs_data where forum_id="&forumid&" and reply_id="&ftid
    set rs=joekoe_cms.exec(sql,1)
    numd=rs(0)
    rs.close
    if not int_true(numd) then numd=0
    call joekoe_cms.exec("update bbs_data set forum_id=999999999 where reply_id="&ftid,0)
    call joekoe_cms.exec("update bbs_topic set forum_id=999999999,form_id="&forumid&",istop=0 where id="&ftid,0)
    call joekoe_cms.exec("update bbs_forum set forum_topic_num=forum_topic_num-1,forum_data_num=forum_data_num-"&numd&" where forum_id="&forumid,0)
    call joekoe_cms.exec("update configs set num_topic=num_topic-1,num_data=num_data-"&numd&" where id=1",0)
    if ducou=1 then      
      call joekoe_cms.exec("update user_data set bbs_counter=bbs_counter-1 where username='"&id_username&"'",0)
    end if
    application.lock
    application(joekoe_cms.web_cookies&"_configs_num_topic")=application(joekoe_cms.web_cookies&"_configs_num_topic")-1
    application(joekoe_cms.web_cookies&"_configs_num_data")=application(joekoe_cms.web_cookies&"_configs_num_data")-numd
    if int(n_istop)=1 then
      application(joekoe_cms.web_cookies&"_forum_istop_state_"&forumid)=""
    end if
    if int(n_istop)=2 then
      application(joekoe_cms.web_cookies&"_forum_istops_state")=""
    end if
    application.unlock
  end select
  
  if sql_u<>"" then conn.execute(sql_u)
  it_chk_msg=joekoe_cms.code_form(it_chk_msg)
  sql_e="insert into bbs_event(forum_id,topic_id,username,o_user,integral,remark,tim) " & _
	"values("&forumid&","&ftid&",'"&login_username&"','"&id_username&"',"&it_integral&",'"&it_chk_msg&"','"&joekoe_cms.now_time&"')"
  call joekoe_cms.exec(sql_e,0)
  if t_ismail="yes" then
    sql_e="insert into user_mail(send_u,accept_u,topic,word,tim,types,isread) " & _
	  "values('"&login_username&"','"&id_username&"','系统短信（论坛主题处理）','"&it_chk_msg&"；附加信息："&t_m_topic&"','"&joekoe_cms.now_time&"',1,0)"
    conn.execute(sql_e)
  end if
  num_ok=num_ok+1
end sub

sub forum_new_info_update(nfid)
  dim rsnf,nf_id,nf_topic,nf_username,nf_tim
  nf_id=""
  nf_topic=""
  nf_username=""
  nf_tim=""
  set rsnf=joekoe_cms.exec("select top 1 id,topic,re_username,re_tim from bbs_topic where forum_id="&nfid&" order by re_tim desc",1)
  if not rsnf.eof then
    nf_id=rsnf("id")
    nf_topic=rsnf("topic")
    nf_username=rsnf("re_username")
    nf_tim=rsnf("re_tim")
    nf_topic=replace(nf_topic,"'","")
    nf_topic=replace(nf_topic,"|","")
  end if
  rsnf.close
  set rsnf=nothing
  'forum_new_num=(select count(id) from bbs_data where forum_id="&nfid&" and tim>'"&joekoe_cms.time_type(joekoe_cms.now_time,4)&" 00:00:00')
  'forum_topic_num=(select count(id) from bbs_topic where forum_id="&nfid&")
  'forum_data_num=(select count(id) from bbs_data where forum_id="&nfid&")
  call joekoe_cms.exec("update bbs_forum set forum_new_info='"&nf_username&"|"&nf_tim&"|"&nf_id&"|"&nf_topic&"' where forum_id="&nfid,0)
end sub

sub forum_isaction_main()
  dim ddim,dnum
%>
<form name=isaction_frm action='' method=post onsubmit="javascript:frm_submitonce(this);">
<input type=hidden name=chk value='yes'>
<tr class=bg_td>
<td width='20%'>&nbsp;操作原因：</td>
<td width='80%'>&nbsp;<select name=cause>
<option value='' selected class=bg_td>自定义</option>
<%
  ddim=split(dim_cause,"|")
  dnum=ubound(ddim)
  for i=0 to dnum
    response.write vbcrlf&"<option value='"&ddim(i)&"'>"&ddim(i)&"</option>"
  next
  erase ddim
%>
</select>&nbsp;<input type=input name=c_topic size=47 maxlength=20></td>
</tr>
<%if action="move" then%>
<tr class=bg_td>
<td>&nbsp;主题转移：</td>
<td>&nbsp;<%response.write forum_isaction_list(forumid)%></td>
</tr>
<%end if%>
<tr class=bg_tds>
<td>&nbsp;加减积分：</td>
<td>&nbsp;<select name=pm>
<option value='p' selected>加</option>
<option value='m'>减</option>
</select>&nbsp;<select name=pn>
<option class=bg_3 selected>0</option>
<%
for i=1 to action_num
   response.write "<option>"&i&"</option>"
next
%>
</select>&nbsp;分</td>
</tr>
<tr class=bg_td>
<td>&nbsp;站内短信：</td>
<td>&nbsp;<input type=checkbox name=ismail value='yes' class=bg_td>&nbsp;&nbsp;附加内容：<input type=input name=m_topic size=60 maxlength=50></td>
</tr>
<tr class=bg_tds height=30>
<td>&nbsp;</td>
<td>&nbsp;<input type=submit value=' 提 交 操 作 '>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=reset value='重新填写'></td>
</tr>
</form>
<%
end sub

function forum_isaction_list(il_forumid)
  dim temp1,ncid,forumn,nfid,classid
  ncid=0
  temp1="<select name=move_fid>"
  sql="select forum_id,class_id,forum_name,forum_n,forum_w,forum_star,forum_hidden,forum_pro from bbs_forum where forum_hidden=0 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_tds>╋"&rs("forum_name")&"</option>"
      ncid=classid
    else
      forumn=rs("forum_n")
      nfid=rs("forum_id")
      temp1=temp1&vbcrlf&"<option value='"&nfid&"'"
      if int(nfid)=int(il_forumid) then
        temp1=temp1&" selected"
      end if
      temp1=temp1&">"
      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
  temp1=temp1&"</select>"
  forum_isaction_list=temp1
end function
%>