对回帖者奖罚的修改

chagny需要的东西吧

需要修改的文件：forum_edit.asp

一，查找 sub forum_reply_chk()

  1.增加jl_edit,cause,pm,pn,infs定义

  2.在word=request.form("jk_word")增加
      cause=request.form("cause")
      pm=request.form("pm")
      pn=request.form("pn")

  3.在这段后面
  if not(int(login_modep)=1 and trim(request.form("edit_info"))<>"yes") then
    word_edit=vbcrlf&vbcrlf&""
  end if
     增加

  if int(login_modep)=1 and cause<>"" and pn<>"" then
    jl_edit=vbcrlf&""
     if pm="加" then
       infs="+"&pn
     else
       infs="-"&pn
     end if
    call joekoe_cms.exec("update user_data set integral=integral"&infs&" where username='"&cstr(username)&"'",0)
  end if

  sub forum_reply_chk()修改完毕

二，查找forum_reply_main()

  1.在
    <tr class=bg_td>
     <td>当前心情：</td>
     <td><%response.write jk_icon(rs("icon"))%></td>
    </tr>
    后面添加：

<%if int(login_modep)=1 and is_topic=false then%>
<tr class=bg_td>
<td>奖罚维护：</td>
<td colspan=3>奖罚原因：
<input type=input name=cause size=40 maxlength=20>  
<select name=pm>
<option value='加' selected>加</option>
<option value='减'>减</option>
</select>  
<input type=input name=pn size=3 maxlength=2> 分</td>
</tr>
<%end if%>


我是菜鸟不是高手。。。。。
点击下载

chagny 这下次 就高兴了

感谢分享

高兴/兴奋/感激.........语无伦次.......终于有高手帮忙啊..........崇拜你!!!!!!!!!!!!!!!!!!!

可以用,谢谢了.提个意见,最好有短信通知回帖者或在被编辑的帖子上显示奖励情况

谢谢,收藏