<!-- #include file="include/config.asp" -->
<!-- #include file="include/conn.asp" -->
<%
tit="会员奖惩管理－版主专用"
response.write head(7,tit)

dim actions:actions=trim(request.querystring("actions"))
dim usern:usern=trim(request.querystring("userna"))

if action="addemoney" then
  call saveemoney ()
else
  action="adde"
  call addetb()
end if
%>
<%
sub saveemoney()
    dim word,isok,r1,u_n,topic,num,y
    word=trim(request.form("word"))
    r1=trim(request.form("r1"))
    u_n=trim(request.form("user"))
    num=trim(request.form("num"))
    if var_null(word)=""  or len(word)>500 then
      isok=1   
    end if
if var_null(num)="" or (not isnumeric(request.form("num"))) then
 isok=2
end if
if r1="" then 
  isok=2
end if
select case request("r1")
 case "integral"
  y="点积分"
 case "emoney"
  y=web_var(web_config,8)
 case "usercp"
  y="点魅力"
end select

if isok="" then
	dim tim
	tim=Now()
    if u_n<>"" then 
     '单个用户操作
      set rs = server.CreateObject ("adodb.recordset")
      sql="update user_data set "&r1&"="&r1&"+"&num&" where username='"&u_n&"'"
      conn.execute(sql)
      sql="insert into user_mail(accept_u,send_u,topic,word,tim,types,isread) values('"&u_n&"','"&login_username&"','社区奖励您"&num&""&y&"','"&TRim(Request("word"))&"',Now(),1,false)"
	  conn.Execute(sql)
	  sql="insert into bbs_cast (sort,username,topic,word,tim) values('forum','"&login_username&"','社区奖励用户"&u_n&""&num&""&y&"','"&TRim(Request("word"))&"',Now())"
      conn.Execute(sql) 
      'rs.close
      set rs=nothing
       response.write "<script language=javascript>alert(""操作成功！"")</script><a href='super_point.asp?action=adde'>返回</a>"
	end if   
else
      if isok=1 then
	response.write "<script language=javascript>alert(""奖惩理由不能为空！"")</script><a href='super_point.asp?action=adde'>返回</a>"
	  ELSE
	     response.write "<script language=javascript>alert(""奖惩的分值不能为空"")</script><a href='super_point.asp?action=adde'>返回</a>"

	  END IF
end if     	
end sub
function head(popedomnum,titmenu)

  head = VbCrLf & "<html><head><title>"&web_var(web_config,1)&" - 版主会员分值管理</title>" & _
	   VbCrLf & "<meta http-equiv=Content-Type content=text/html; charset=gb2312>" & _
	   VbCrLf & "<link rel=stylesheet href='images/joekoe.css' type=text/css>" & _
	   VbCrLf & "<script langiage='javascript' src='style/open_win.js'></script>" & _
	   VbCrLf & "<script langiage='javascript' src='style/mouse_on_title.js'></script>" & _
	   VbCrLf & "</head>" & VbCrLf & "<body topmargin=0 leftmargin=5>" & _
	   VbCrLf & "<table align='center' border=0 width=360 cellspacing=0 cellpadding=0>" & _
	   vbcrlf & "<tr><td height=50 align=center>"&titmenu&"&nbsp;┋&nbsp;<a href='javascript:;' onclick=""javascript:document.location.reload()"">刷新</a></td></tr><tr><td align=center height=50>"
end function
sub addetb()
%>
<div align="center">
  <center>
<table width="360" border="1" cellspacing="0" cellpadding="3" class="tableBorder" style="border-collapse: collapse" bordercolor="#808080">
<form action="super_point.asp?action=addemoney" method=post>
<tr><td class=Forumrow>奖励会员&nbsp;&nbsp;&nbsp;<font color=blue><%=usern%></font>
<input type="hidden" value="<%=usern%>" name="user"></td>                              
</tr>
<tr> 
<td class=Forumrow>会员属性&nbsp;<input type="radio" value="integral" name="R1" checked>&nbsp;积分&nbsp;<input type="radio" value="emoney" name="R1">&nbsp<%response.write web_var(web_config,8)%>&nbsp<input type="radio" value="usercp" name="R1">&nbsp;魅力                                       
&nbsp;&nbsp;&nbsp;&nbsp;威望(暂不提供)
</td>
</tr>
<tr> 
<td class=Forumrow>操作分值&nbsp;                                    
<input type="text" name="num" size="8">&nbsp;&nbsp;<font color=red>请严格按论坛规则操作</font></td>                    
</tr>
<tr><td width="400" class=Forumrow> 
<textarea name="word" cols="55" rows="10"></textarea>
</td>
</tr>
<tr> 
<td align=center class=Forumrow>操作理由<font color=blue>(请仔细填写，将在<b>论坛公告</b>发布及<b>用户短信</b>通知)</font></td>
</tr>
<tr>
<td align=center height="23" class=Forumrow>
UBB支持&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;                                     
<input type="submit" name="Submit" value="确认操作">
<input type="reset" name="Submit2" value="重新填写">                                    
</td>
</tr>
</form>
</table></center>
</div>
<%end sub%>
<%
call close_conn()
%>