==@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
==说明请看仔细，以免发生错误，本插件以测试通过==
==本插件已经在http://www.alitaitai.cn安装测试
==有时间请访问
==如果你安装了插件，请到发言，不会安装的我们可以协助安装，但仅限我们论坛注册用户
==安装文件可以直接上传到BBS文件夹，但请备份原文件，
==文件一共三个
==call_G_hjz.asp调用回复贴积分操作
==call_G_jz.asp调用主贴积分操作
==adminpost.asp积分操作入库
==@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
本插件演示地址http://www.alitaitai.cn/BBS/dispost.asp?BoardID=92&PostID=7
本插件需要修改数据，如果不会，请找人帮忙
本插件制作时间2007年12月20日，发布时间2007年12月26日
修改原有的数据库是
1,帖子积分显示增加了LxTel_JzInfo表俩个值
一是主贴Topic_id，数据类型数字，功能，为了定位是那个帖子的积分，操作文件adminpost.asp
寻找 case 10 修改case 10与case 11之间代码
======================================================================
 if UserPower(admin,"IsJz")=false then
                Response.Write "<p align=""alitaitaicenter"">你没有设置奖惩的权限</p>"
            else       
                If Request.QueryString("save")=1 then
                    If UserName<>rs("PostUser") then
                        Dim jctype
                        jctype=Cint(Request.Form("jctype"))
                        If jctype=1 then
                            Conn.execute ("Update LxTel_User set MoneyNum=MoneyNum+"&Cint(RequestNumSafe(Request.Form("moneynum")))&" Where UserName='"&rs("PostUser")&"' ")
                        Else
                            Conn.execute ("Update LxTel_User set MoneyNum=MoneyNum-"&Cint(RequestNumSafe(Request.Form("moneynum")))&" Where UserName='"&rs("PostUser")&"' ")
                        End IF'''增加了Topic_id帖子对象
                        conn.execute("insert into LxTel_JZInfo (UserName,JZType,JZNum,CZSpeak,CZUser,CZTime,Topic_id) values('"&rs("PostUser")&"',"&jctype&","&Cint(RequestNumSafe(Request.Form("moneynum")))&",'"&trim(Request.Form("speak"))&"','"&username&"','"&now()&"',"&PostID&")")
                    else
                        Response.Write "<p align=""alitaitaicenter"">自己不能对自己进行相关的奖惩操作!!!</p>"
                        Call SaveMatter("奖惩事件","自己不能对自己进行相关的奖惩操作",0)
                    end if
                    Response.Write "<p align=""alitaitaicenter"">操作完成!</p>"
                else
                    Response.Write "<br><br><br><form name=""money""  method=""post"" action=""adminpost.asp?cz=10&save=1&BoardID="&BoardID&"&PostID="&PostID&"""><table width=""500"" align=""alitaitaicenter"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""table1"" style=""border-collapse: collapse"">"
                    Response.Write "<tr align=""alitaitaicenter"" height=""25""><td class=""td1_title3"">类型</td><td class=""td1_title3"">金币数值</td><td class=""td1_title3"">操作原因</td></tr>"
                    Response.Write "<tr height=""50""><td class=""td1_back"" align=""alitaitaicenter""> <input name=PostID type=hidden value="&PostID&"><select name=""jctype""> <option value=""1"">奖励</option><option value=""2"">惩罚</option></select></td><td class=""td1_back"" align=""alitaitaicenter""><input type=""text"" name=""moneynum"" size=""5"" value=""1""></td><td class=""td1_back"">&nbsp;<input type=""text"" name=""speak"" size=""30""></td></tr>"
                    Response.Write "<tr><td colspan=""3"" align=""alitaitaicenter"" class=""td1_back"" height=""30""><input type=""submit"" value=""确 定""></td></tr>"
                    Response.Write "</table></form><br><br>"
                    tom
                    Response.End
                end if
            end if
==================================================================

二是回帖积分操作，增加了Hic_id 数据类型数字，功能，为了定位是那个回帖子的积分，操作文件adminpost.asp
寻找end select，在这前面直接加上下列代码
==============================================================   
  case 15
  DIM RS2
  sql="select top 1 ID,PostID,BoardID,Text,PostUser,PostTime,IP,PostSh from LxTel_ReTopic where ID="&PostID&" "
        Set rs2 = Server.CreateObject("ADODB.Recordset")
        rs2.open sql,conn,1,1
            if UserPower(admin,"IsJz")=false then
                Response.Write "<p align=""center"">你没有设置奖惩的权限</p>"
            else       
                If Request.QueryString("save")=1 then
                    If UserName<>rs2("PostUser") then
                        jctype=Cint(Request.Form("jctype"))
                        If jctype=1 then
                            Conn.execute ("Update LxTel_User set MoneyNum=MoneyNum+"&Cint(RequestNumSafe(Request.Form("moneynum")))&" Where UserName='"&rs2("PostUser")&"' ")
                        Else
                            Conn.execute ("Update LxTel_User set MoneyNum=MoneyNum-"&Cint(RequestNumSafe(Request.Form("moneynum")))&" Where UserName='"&rs2("PostUser")&"' ")
                        End IF'''增加了Hic_id回帖子对象
                        conn.execute("insert into LxTel_JZInfo (UserName,JZType,JZNum,CZSpeak,CZUser,CZTime,Hic_id) values('"&rs2("PostUser")&"',"&jctype&","&Cint(RequestNumSafe(Request.Form("moneynum")))&",'"&trim(Request.Form("speak"))&"','"&username&"','"&now()&"',"&PostID&")")
                    else
                        Response.Write "<p align=""alitaitaicenter"">自己不能对自己进行相关的奖惩操作!!!</p>"
                        Call SaveMatter("奖惩事件","自己不能对自己进行相关的奖惩操作",0)
                    end if
                    Response.Write "<p align=""alitaitaicenter"">操作完成!</p>"
                else
                    Response.Write "<br><br><br><form name=""money""  method=""post"" action=""adminpost.asp?cz=15&save=1&BoardID="&BoardID&"&PostID="&PostID&"""><table width=""500"" align=""alitaitaicenter"" border=""0"" cellpadding=""0"" cellspacing=""0"" class=""table1"" style=""border-collapse: collapse"">"
                    Response.Write "<tr align=""alitaitaicenter"" height=""25""><td class=""td1_title3"">类型</td><td class=""td1_title3"">金币数值</td><td class=""td1_title3"">操作原因</td></tr>"
                    Response.Write "<tr height=""50""><td class=""td1_back"" align=""alitaitaicenter""> <input name=PostID type=hidden value="&PostID&"><select name=""jctype""> <option value=""1"">奖励</option><option value=""2"">惩罚</option></select></td><td class=""td1_back"" align=""alitaitaicenter""><input type=""text"" name=""moneynum"" size=""5"" value=""1""></td><td class=""td1_back"">&nbsp;<input type=""text"" name=""speak"" size=""30""></td></tr>"
                    Response.Write "<tr><td colspan=""3"" align=""alitaitaicenter"" class=""td1_back"" height=""30""><input type=""submit"" value=""确 定""></td></tr>"
                    Response.Write "</table></form><br><br>"
                    tom
                    Response.End
                end if
            end if
   '''''''''''''''''''''''
======================================================================
CSS修改
直接插入以下代码
====================================
.showf {/*帖子评分记录框*/
 font-size: 12px;
 color: #FFCC00;
 
}
.smalltxt {
 FONT: 11px Arial, Tahoma
}
.hr {
 position: relative;
 width: 50%;
}
==============================
到系统CSS文件

==========================================================
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@首贴调用
进入BBS后台，--打开[普通帖子模板]到[首帖模板编辑]
寻找[楼主]
在这前面增加
========================
<a href="$setupdir$/adminpost.asp?cz=10&BoardID=$BoardID$&PostID=$PostID$">奖罚</a>
=====================

寻找 $HtmlNL$，在这后面有
==========================
</td></tr>

<tr><td valign="bottom">
<table valign="bottom" border="0" height="200"><tr><td>
===========================
这后面插入
<script src="$setupdir$/call_G_jz.asp?id=$PostID$"></script>
调用代码
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@回贴调用
进入BBS后台，--打开[普通帖子模板]到[回帖模板编辑]
寻找[第$j$楼 ]
在这前面增加
========================
<a href="$setupdir$/adminpost.asp?cz=15&BoardID=$BoardID$&PostID=$ID$">奖罚</a>
=====================

寻找 $HtmlNL$，在这后面有
==========================
</td></tr>

<tr><td valign="bottom">
<table valign="bottom" border="0" height="200"><tr><td>
===========================
这后面插入
<script src="$setupdir$/call_G_Hjz.asp?id=$ID$"></script>
调用代码
安装完毕后，如果是生成静态页面的用户，请重新生成页面

帖子评分.rar

本压缩包是修正版

修改为

Conn.execute ("Update LxTel_User set MoneyNum=MoneyNum+"&Cint(RequestNumSafe(Request.Form("moneynum")))&" Where UserName='"&2rs("PostUser")&"' ")

注意2

好用不 转sql没问题吧