📄 bbs_adminsave.asp
字号:
<!--#include file="../conn.asp"-->
<%
user=Request.QueryString ("user")
cz=Request.QueryString ("cz")
jl=Request.Form("jl")
fc=Request.Form("fc")
qu=Request.Form("qu")
if cz="" or user="" or jl="" or fc="" or qu="" or Request.Cookies("username")="" or Request.Cookies("login")<>"Y" or Request.Cookies("sf")<>1 then
Response.Write "<br><br><br>你尚未登陆,或者你没有这个权限,或者其它参数有误!<br><br><br><br>"
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT top 1 * FROM 用户资料 WHERE 用户名='"&user&"' "
rs.open sql,conn,1,3
if rs.BOF and rs.EOF then
Response.Write "没有找到这个用户"
else
if cz=1 then
select case jl '进行分值操作 奖励
case 1
rs("积分")=rs("积分")+fc
lx="积分"
case 2
rs("经验")=rs("经验")+fc
lx="经验"
case 3
rs("声望")=rs("声望")+fc
lx="声望"
case 4
rs("金钱")=rs("金钱")+fc
lx="金钱"
end select
rs.update
rs.Close
Set rs = Server.CreateObject("ADODB.Recordset") '写入奖惩信息数据库
sql="SELECT top 1 * FROM 奖惩信息 "
rs.open sql,conn,1,3
rs.addnew
rs("用户名")=user
rs("奖惩")="奖励"
rs("类型")=lx
rs("分值")=fc
rs("操作理由")=qu
rs("操作时间")=date()+time()
rs("操作人")=Request.Cookies("username")
rs.update
rs.close
set rs=nothing
else
select case jl '进行分值操作 惩罚
case 1
rs("积分")=rs("积分")-fc
lx="积分"
case 2
rs("经验")=rs("经验")-fc
lx="经验"
case 3
rs("声望")=rs("声望")-fc
lx="声望"
case 4
rs("金钱")=rs("金钱")-fc
lx="金钱"
end select
rs.update
rs.Close
Set rs = Server.CreateObject("ADODB.Recordset") '写入奖惩信息数据库
sql="SELECT top 1 * FROM 奖惩信息 "
rs.open sql,conn,1,3
rs.addnew
rs("用户名")=user
rs("奖惩")="惩罚"
rs("类型")=lx
rs("分值")=fc-fc*2
rs("操作理由")=qu
rs("操作时间")=date()+time()
rs("操作人")=Request.Cookies("username")
rs.update
rs.close
set rs=nothing
end if
Set rs = Server.CreateObject("ADODB.Recordset") '写入短信数据库，向用户发送短信
sql="SELECT top 1 * FROM ShortInfo "
rs.open sql,conn,1,3
rs.addnew
rs("发件人")=Request.Cookies("username")
rs("是否发送标记")="Y"
rs("发件人删除标记")="N"
rs("发件人回收站删除标记")="N"
rs("是否已读")="N"
rs("收件人删除标记")="N"
rs("收件人回收站删除标记")="N"
rs("收件人")=user
rs("消息标题")="系统消息"
rs("消息内容")=qu+" 具体可能的分值操作，请在奖惩信息栏或自己的资料中查询"
rs("日期")=date()+time()
rs.Update
rs.Close
set rs=nothing
Response.Write "操作完成"
end if
end if
%>
<head>
<link rel="stylesheet" type="text/css" href="../css/style1.css">
</head>
<body>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -