paytopic.asp

教师评估系统

'完成转账
if instr(givemoneyorder,"|")>0 then
givemoneyorder_1=split(givemoneyorder,"|")
for i = 0 to UBound(givemoneyorder_1)
givemoneyorder_2=split(givemoneyorder_1(i),",")
sql="select * from [WxUsers] where username='"&givemoneyorder_2(0)&"'"
rs.Open sql,Conn,1,3
if Not rs.Eof then
rs("usermoney")=rs("usermoney")+givemoneyorder_2(1)

'添加威望值
if openweiwang=1 then'威望值启动的情况下
rs("prestige")=rs("prestige")+(int(prestige_set*(givemoneyorder_2(1)/allpaymoney)))
showinreforum=""&showinreforum&"<br />&nbsp;"&rs("username")&"&nbsp;获得威望值："&(int(prestige_set*(givemoneyorder_2(1)/allpaymoney)))&""
weiwang_pay=weiwang_pay+(int(prestige_set*(givemoneyorder_2(1)/allpaymoney)))
if checkrich=rs("username") then rich_prestige=(int(prestige_set*(givemoneyorder_2(1)/allpaymoney))) '得到最多报酬者第一次分得的钱
end if

rs.update
end if
rs.close
next
else
givemoneyorder_1=split(givemoneyorder,",")
sql="select * from [WxUsers] where username='"&givemoneyorder_1(0)&"'"
rs.Open sql,Conn,1,3
if Not rs.Eof then
rs("usermoney")=rs("usermoney")+givemoneyorder_1(1)

'添加威望值
if openweiwang=1 then'威望值启动的情况下
rs("prestige")=rs("prestige")+prestige_set
showinreforum="&nbsp;"&rs("username")&"&nbsp;获得威望值："&prestige_set&""
end if

rs.update
end if
rs.close
end if

'添加威望值
if openweiwang=1 then'威望值启动的情况下
if prestige_set-weiwang_pay>0 then '把分不掉的威望值加给最有钱的人
sql="select * from [WxUsers] where username='"&checkrich&"'"
rs.Open sql,Conn,1,3
if Not rs.Eof then
rs("prestige")=rs("prestige")+(prestige_set-weiwang_pay)
rs.update
end if
rs.close
showinreforum=""&showinreforum&"<br />&nbsp;"&checkrich&"&nbsp;再加威望值："&prestige_set-weiwang_pay&"（最有贡献的人）"
end if
showinreforum="<font color=red><b>本帖威望分配情况公布</b></font><br />分配方法：威望值按得到的钱占总报酬钱数的百分比来分配。<br />（总威望值："&prestige_set&"）"&showinreforum&"<br />(此回复由系统结帖时生成)<br /><br />"
end if

'自动回复一个带有报酬分配表的帖子
sql="select * from [WxPosts"&PostsTableName&"]"
rs.Open sql,Conn,1,3
rs.addnew
rs("ThreadID")=id
rs("Username")=CookieUserName
rs("Subject")="Re:"&Conn.Execute("select topic from [WxThreads] where id="&id&"")(0)
rs("Content")="<span class=""red""><b>本帖报酬分配情况公布</b></span><br />"&showmoneyhowtogive&"<br /><br />"&showinreforum&""
rs("PostTime")=Now()
rs("PostIP")=Request.ServerVariables("REMOTE_ADDR")
rs.update
rs.close

Succ "悬赏结帖","<li><a href=Threads.asp?Tid="&id&">返回主题</a></li>","Threads.asp?Tid="&id

end if

'###如果能给的钱和要给的钱刚好相等，就执行此代码段###
if dolaw="2" then

'把该报酬帖设置为已结帖并在最后以当前管理员身份回复出分配表
sql="select * from [WxThreads] where id="&ID&""
rs.Open sql,Conn,1,3
if Not rs.Eof then
rs("PayTopicMoney")=-rs("PayTopicMoney")
rs("icon")=12
rs("replies")=rs("replies")+1
rs.update
end if
rs.close

'生成分配表下步回复到帖子里
sql="select * from [WxPayTopic] where ThreadID="&id&" order by id"
rs.Open sql,Conn,1
do while Not rs.Eof
if givemoneyorder=empty then
givemoneyorder=""&rs("username")&","&rs("getmoney")&""
else
givemoneyorder=""&givemoneyorder&"|"&rs("username")&","&rs("getmoney")&""
end if
if showmoneyhowtogive="" then
showmoneyhowtogive="&nbsp;&nbsp;（总报酬金："&allpaymoney&"）&nbsp;<br />&nbsp;"&rs("username")&"&nbsp;获得报酬：&nbsp;"&rs("getmoney")&"&nbsp;元"
else
showmoneyhowtogive=""&showmoneyhowtogive&"<br />&nbsp;"&rs("username")&"&nbsp;获得报酬：&nbsp;"&rs("getmoney")&"&nbsp;元"
end if
rs.MoveNext
loop
rs.close

if openweiwang=1 then'威望值启动的情况下
weiwang_pay=0 '累加已送的威望值
'on Error resume next
end if

'完成转账
if instr(givemoneyorder,"|")>0 then
givemoneyorder_1=split(givemoneyorder,"|")
for i = 0 to UBound(givemoneyorder_1)
givemoneyorder_2=split(givemoneyorder_1(i),",")
sql="select * from [WxUsers] where username='"&givemoneyorder_2(0)&"'"
rs.Open sql,Conn,1,3
if Not rs.Eof then
rs("usermoney")=rs("usermoney")+givemoneyorder_2(1)

'添加威望值
if openweiwang=1 then'威望值启动的情况下
rs("prestige")=rs("prestige")+(int(prestige_set*(givemoneyorder_2(1)/allpaymoney)))
showinreforum=""&showinreforum&"<br />&nbsp;"&rs("username")&"&nbsp;获得威望值："&(int(prestige_set*(givemoneyorder_2(1)/allpaymoney)))&""
weiwang_pay=weiwang_pay+(int(prestige_set*(givemoneyorder_2(1)/allpaymoney)))
if checkrich=rs("username") then rich_prestige=(int(prestige_set*(givemoneyorder_2(1)/allpaymoney))) '得到最多报酬者第一次分得的钱
end if

rs.update
end if
rs.close
next
else
givemoneyorder_1=split(givemoneyorder,",")
sql="select * from [WxUsers] where username='"&givemoneyorder_1(0)&"'"
rs.Open sql,Conn,1,3
if Not rs.Eof then
rs("usermoney")=rs("usermoney")+givemoneyorder_1(1)

'添加威望值
if openweiwang=1 then'威望值启动的情况下
rs("prestige")=rs("prestige")+prestige_set
showinreforum="&nbsp;"&rs("username")&"&nbsp;获得威望值："&prestige_set&""
end if

rs.update
end if
rs.close
end if

'添加威望值
if openweiwang=1 then'威望值启动的情况下
if prestige_set-weiwang_pay>0 then '把分不掉的威望值加给最有钱的人
sql="select * from [WxUsers] where username='"&checkrich&"'"
rs.Open sql,Conn,1,3
if Not rs.Eof then
rs("prestige")=rs("prestige")+(prestige_set-weiwang_pay)
rs.update
end if
rs.close
showinreforum=""&showinreforum&"<br />&nbsp;"&checkrich&"&nbsp;再加威望值："&prestige_set-weiwang_pay&"（最有贡献的人）"
end if
showinreforum="<font color=red><b>本帖威望分配情况公布</b></font><br />分配方法：威望值按得到的钱占总报酬钱数的百分比来分配。<br />（总威望值："&prestige_set&"）"&showinreforum&"<br />(此回复由系统结帖时生成)<br /><br />"
end if

'自动回复一个带有报酬分配表的帖子
sql="select * from [WxPosts"&PostsTableName&"]"
rs.Open sql,Conn,1,3
rs.addnew
rs("ThreadID")=id
rs("username")=CookieUserName
rs("Subject")="Re:"&Conn.Execute("select topic from [WxThreads] where id="&id&"")(0)
rs("content")="<br /><br /><br /><font color=red><b>本帖报酬分配情况公布</b></font><br />分配方法：<br />由发帖者或管理员进行手工分配，如果手工分<br />完钱还有剩余，就平分给得到钱的人；如果不<br />够平分就按各自得到的钱占分出总数的百分<br />比分配；如果还有剩余就分给得到钱<br />最多的人；如果有N个人得到最大份的<br />钱，就分给首先回复的那个。<br />"&showmoneyhowtogive&"<br /><br /><br />"&showinreforum&""
rs("posttime")=now()
rs("postip")=Request.ServerVariables("REMOTE_ADDR")
rs.update
rs.close

Response.redirect "Threads.asp?Tid="&id&""'跳回帖子
end if

'###如果能给的钱不够分，就执行此代码段###
if dolaw="3" then
%>
<script type="text/javascript">           
alert("[系统提示]您要分出去的总钱数居然是 <%=allreadygivemoney%> ，您分出的总钱数大于报酬总数。如果分出的钱少于报酬总数，那系统将自动把剩余的钱平分，如果不够平分每人一份(仅分给至少得到一元钱的那部分人)，就按大家得到的报酬占已分配总钱数的百分比分配剩余报酬，如果还有剩余，就给得钱最多的人，如果有多个得钱最多的，就把最后剩余的钱给首先回复的人。数据还在临时区域，还没有真正把钱转账，您可以后退到任何一页再从该页设置到最后页；如果想全部重新分配全部处理过，请点顶上的 [重新分配] 链接，可删除全部临时数据并从头开始！");
</script> 
<%
end if

end if'平分
else

%>
<script type="text/javascript">
alert("[系统提示]全部有效回复都分配过了，但数据还在临时区域，还没有真正把钱转账，确定后请您看看分配是否合理并满意，满意的话再点下一步，如果有哪步分配不满意，您可以后退到该页面再从该页设置到最后页；如果想全部重新分配全部处理过，请点顶上的 [重新分配] 链接，可删除全部临时数据并从头开始！");
</script> 
<%
end if
end if

fpage=int(ii/10)
fpage_1=ii/10
if fpage_1-fpage>0 then
fpage=fpage+1
end if

%>
<form method="post" name="form" action="?menu=givemoney&id=<%=id%>">
<%if LCase(adminname)=LCase(CookieUserName) and realtoplou<=toplou then Response.write "<input type='hidden' name='doallnow' value='yes' />"%>
<div class="tb dt">
<div id="tt">悬赏帖结帖设置</div>
<div class="tc b cb">
<div class="fl r w1a si">提问人：<%=picuser%></div><div class="fl r w1a si">悬赏金钱：<%=allpaymoney%></div>
<div class="fl r w1a si">回复人数：<%=ii%></div><div class="fl r w1a si">显示分页：<%=fpage%></div>
<div class="fl w2 si">若平均分则每人得到金钱：<%=int(allpaymoney/ii)%></div>
</div>
<div class="tc b">
<%if UBound(Split(AllRename&"|","|"))>11 Then%><div class="t"><%end if%>回复名单：<%=Replace(AllRename_1,"|","、")%><%if UBound(Split(AllRename&"|","|"))>11 Then%></div><%end if%>
</div>
<div class="tc b cb">
<div class="fl r w2 si">操作选项</div>
<div class="fl si"><input type="checkbox" name="allgetsame" value="1" /><label for=allgetsame>平分所有金钱</label></div>
</div>
 <div class="tc">
  操作说明：<br />
      ⒈您可以把钱均分给所有人或填写各人获得的报酬数；如分钱后还有多余的，余下的钱将进行自动平分(只平分给分过钱的人)<br />
      ⒉列表是按回复从早到晚的顺序，每页显示10个有效项
<%if openweiwang=1 then
Response.write "<br />⒊本帖有100点威望值，按各人获得的钱数占总钱数的比例发放"
end if
%> </div>
</div>
<div class="tb dt">
<div id="tt">按回答问题的实用价值分配金钱</div>
<div class="intro cb">
<div class="fl r w0a">楼层</div>
<div class="fl r w1a">回帖用户名</div>
<div class="fl r w1a">所得钱数</div>
<div class="fl w5">回复内容简单情况</div>
</div>
<%
sql="select * from [WxPosts"&PostsTableName&"] where ThreadID="&ID&" and IsTopic=0 order by id"
rs.Open sql,Conn,1
if rs.Eof then
Response.write "<div class=""tc"">错误！没有找到回复数据，如果原来有回复，可能已被全部删除</div>"
else
i=1'楼层
ii=0'有效项参数
do while Not rs.Eof and ii<10 '这里的有效项参数10是不能改的！因为涉及代码很多
i=i+1
hisre=Replace(Rs("content"),"<br />","")
hisre=Replace(hisre,vbcrlf,"")
hisre=Replace(hisre,"<","&lt;")
hisre=Replace(hisre,">","&gt;")

hisre="文章长度："&len(rs("content"))&"；内容简介："&left(hisre,24)&" ..."

if picuser=rs("username") then showgiveroom="-"

if picuser=rs("username") or instr("|"&allrename&"|","|"&rs("username")&"|")>0 then thesame="yes"

if thesame="yes" or showgiveroom="-" then
showgiveroom="---"
'on Error resume next
showgiveroom_2=showgiveroom_1

sql="select * from [WxPayTopic] where ThreadID="&id&" and username='"&rs("username")&"' order by id desc"
Rs1.Open sql,Conn,1
if Not rs1.Eof then
showgiveroom_1=""&rs1("getmoney")&""
else
showgiveroom_1=""
end if
rs1.close
if showgiveroom_1<>empty and showgiveroom_1<>showgiveroom_2 then showgiveroom=""&showgiveroom_1&""
else
ii=ii+1
showgiveroom="<input type=hidden name='getmoneyuser"&ii&"' value="&rs("username")&"><input maxlength=15 size=14 name='givemoney"&ii&"' style='color: #808000; border: 1px solid #808000; background-color: #FFFFtb' value=0 onkeyup=ChkNaN(this)>"
if allrename="" then
allrename=""&rs("username")&""
else
allrename=""&allrename&"|"&rs("username")&""
end if
end if
if picuser=rs("username") then showgiveroom="-"
if showgiveroom="-" then
else
%>
<div class="tc b cb">
<div class="fl ac r si w0a"><%=i%></div>
<div class="fl ac r si w1a"><%=Rs("Username")%></div>
<div class="fl ac r si w1a"><%=showgiveroom%></div>
<div class="fl ac si w5"><%=hisre%></div>
</div>
<%end if
thesame="no"
showgiveroom=""
rs.MoveNext
loop
end if
rs.close
%>
<div class="tc">
<input type="hidden" name="oklouid" value="<%=i%>" />
<input type="hidden" name="allrename" value="<%=allrename%>" />
<input type="hidden" name="toplou" value="<%=i%>" />
<input type="submit" id="submit" value="继续" /></div>
</div>
<%HtmlEnd%>