<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="Forum_css.asp"-->
<!-- #include file="chkuser.asp" -->
<!--#include file="inc/char.asp"-->
<!--#include file="jifen.inc"-->

<%
membername=request.cookies("aspsky")("username")
stats="保存积分"%>
	<title><%=forumname%>--<%=stats%></title>
	
	<%
dim msgtext,savestats

if membername="" then
	savestats="失败"
	msgtext="<br><img src=face/face8.gif border=0> 对不起，<font color=red>客人</font>不可以保存积分！<br>"
	msgtext=msgtext&"<br><a href=login.asp><font color=navy>>> 请先登陆 <<</font></a><br>"
	msgtext=msgtext&"<br><a href=reg.asp><font color=navy>>> 我要注册 <<</font></a><br>"
	call message()
else
	call main()
end if
'下面是主程序
sub main()

 dim username
 username=membername
 dim stat,online
 dim Srs
 set rs=server.createobject("adodb.recordset")
 sql="select * from [User] where username='"&username&"'"
 rs.open sql,conn,1,1
 if err.number<>0 then 
 	savestats="失败"
    msgtext="<br><br><br>数据库操作失败："&err.description&"<BR><BR><BR>"
	call message()
    exit sub
 end if

 if rs.eof and rs.bof then
 	savestats="失败"
	msgtext="<br><br><br>用户不存在! <BR><BR><BR><BR><BR>"
	call message()
    exit sub
 else
	dim srss,Q,W,C,T
	set Srs=conn.execute("select stats,startime from online where username='"&username&"'")
	if Srs.eof and Srs.bof then        '用户在线数据未写入online表中或因超时已从online表中删除  
		Response.Redirect "jifen.asp"
		Response.End
	
	end if 
	online=datediff("n",Srs(1),Now()) '提取在线时间
	
	'online=在线时间（分）

	Q=iif(Int(online / jf_WealthRate)>0,Int(online / jf_WealthRate),1) '财产值=在线时间 / 10
	W=iif(Int(online / jf_EPRate)>0,Int(online / jf_EPRate),1) '经验值=在线时间 / 20
	C=iif(Int(online / jf_CPRate)>0,Int(online / jf_CPRate),1) '魅力值=在线时间 / 20
	T=jf_StartTime            '在线时间（分）后开始计算
	
	dim rsl,sqll
	sqll="select * from [User] where  username='"&username&"'"
		set rsl=server.createobject("adodb.recordset")
	 rsl.open sqll,conn,1,3
	
	'userCP     魅力值
	'userEP     经验值
	'userWealth 财产值
	
	if online>=T then
		sqll="update [user] set userWealth=userWealth+"&Q&",userEP=userEP+"&W&",userCP=userCP+"&C&" where username='"&username&"'"
		conn.execute(sqll)
		rsl.close
		set rsl=nothing
	'保存当前时间
		set Srss=conn.execute("update [online] set startime=Now() where username='"&username&"'") 
		Srs.close
		set Srs=nothing
		rs.close
		set rs=nothing
		savestats="成功"
		msgtext="<br><img src=face/face7.gif border=0> <font color=blue>"&username&"</font>,恭喜你"
		msgtext=msgtext&"<br><br>============= <font color=red>积分情况</font> =============<br><br>"
		msgtext=msgtext&username&" 你在线 "&online&" 分钟 <br><br>"
		msgtext=msgtext&username&" 增加了 "&Q&" 个金币 <br>"
		msgtext=msgtext&username&" 增加了 "&w&" 点经验 <br>"
		msgtext=msgtext&username&" 增加了 "&c&" 点魅力 <br>"
		msgtext=msgtext&"<br>============= <font color=red>积分规则</font> =============<br>"
		msgtext=msgtext&"<br><li>在线 "&T&" 分钟以上才可以保存积分&nbsp;&nbsp;"
		msgtext=msgtext&"<br><li>保存积分的时间间隔为 "&T&" 分钟&nbsp;&nbsp;&nbsp;&nbsp;"
		msgtext=msgtext&"<br><li>系统不提供自动保存积分功能&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
		msgtext=msgtext&"<br><li>您的在线时间将会清零重新开始计算"		
		msgtext=msgtext&"<br><br>============= <font color=red>计算方法</font> =============<br>"
		msgtext=msgtext&"<br><li>财产值 = 在线时间 / 10"
		msgtext=msgtext&"<br><li>经验值 = 在线时间 / 20"
		msgtext=msgtext&"<br><li>魅力值 = 在线时间 / 30"	
		msgtext=msgtext&"<br><br>============= <font color=red>提示结束</font> =============<br><br>"
		call message()
	else
		savestats="失败"
		msgtext="<br><img src=face/face18.gif border=0> 这么快就想来拿工资啦？时间还没有到啊！<br><br>"
		msgtext=msgtext&username&" 你才上线 "&online&" 分钟 <br>"
		msgtext=msgtext&"<br><br>============= <font color=red>积分规则</font> =============<br>"
		msgtext=msgtext&"<br><li>在线 "&T&" 分钟以上才可以保存积分&nbsp;&nbsp;"
		msgtext=msgtext&"<br><li>保存积分的时间间隔为 "&T&" 分钟&nbsp;&nbsp;&nbsp;&nbsp;"
		msgtext=msgtext&"<br><li>系统不提供自动保存积分功能&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
		msgtext=msgtext&"<br><li>您的在线时间将会清零重新开始计算"		
		msgtext=msgtext&"<br><br>============= <font color=red>计算方法</font> =============<br>"
		msgtext=msgtext&"<br><li>财产值 = 在线时间 / 10"
		msgtext=msgtext&"<br><li>经验值 = 在线时间 / 20"
		msgtext=msgtext&"<br><li>魅力值 = 在线时间 / 30"
		msgtext=msgtext&"<br><br>============= <font color=red>提示结束</font> =============<br><br>"
		call message()
		exit sub
	end if 
end if
end sub

sub message()
%>
<html>
<body leftmargin="0" topmargin="0">
<table cellspacing=0 cellpadding=0 width=350 align=center border=0 bordercolor="<%=Tablebackcolor%>" bgcolor="<%=Tablebodycolor%>">
  <tbody>
  <tr> 
    <td valign=bottom align=right width=347 rowspan=2> 
      <table cellspacing=0 cellpadding=0 width="100%" border=0 style="BORDER-RIGHT: #333333 1px solid; BORDER-TOP: #333333 1px solid; BORDER-LEFT: #333333 1px solid; BORDER-BOTTOM: #333333 1px solid;">
        <tbody> 
        <tr align="middle" bgcolor="<%=Tabletitlecolor%>">
          <td colspan=4 height=18 style="BORDER-BOTTOM: #333333 1px solid;"><b><font 
            color=#FF0000>保存积分 － <%=savestats%></font></b></td>
        </tr>
        <tr>
          <td colspan="4" height="20">&nbsp;</td>
        </tr>
        <tr>
		<td colspan="4" nowrap align="center" height="30">
			<%=msgtext%>
          </td>
        </tr>
               </tbody>
      </table>
    </td>
    </tr>

  </tbody>
</table>
</body>
</html>
<%
end sub

function iif(expr,truepart,falsepart)
	'函数功能：如果表达式 expr 为真，则返回 truepart 的值；否则返回 falsepart 的值
	if expr then 
		iif=truepart
	else
		iif=falsepart
	end if	
end function

%>
