📄 super_point.asp
字号:
<!-- #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&" ┋ <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>奖励会员 <font color=blue><%=usern%></font>
<input type="hidden" value="<%=usern%>" name="user"></td>
</tr>
<tr>
<td class=Forumrow>会员属性 <input type="radio" value="integral" name="R1" checked> 积分 <input type="radio" value="emoney" name="R1"> <%response.write web_var(web_config,8)%> <input type="radio" value="usercp" name="R1"> 魅力
威望(暂不提供)
</td>
</tr>
<tr>
<td class=Forumrow>操作分值
<input type="text" name="num" size="8"> <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支持
<input type="submit" name="Submit" value="确认操作">
<input type="reset" name="Submit2" value="重新填写">
</td>
</tr>
</form>
</table></center>
</div>
<%end sub%>
<%
call close_conn()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -